Replaced the WEXITSTATUS, WIFEXITED, WIFSIGNALED, WIFSTOPPED, WSTOPSIG

and WTERMSIG wrappers with one wrapper using the XS "ALIAS" feature.
This gets the shared object size back below the size before the removal
of int_macro_int. It looks like there are other space savings to be
made this way.

p4raw-id: //depot/perl@33897

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 41d66a6..9c101ce 100644 (file)
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -649,26 +649,37 @@ INCLUDE: const-xs.inc
 int
 WEXITSTATUS(status)
        int status
-
-int
-WIFEXITED(status)
-       int status
-
-int
-WIFSIGNALED(status)
-       int status
-
-int
-WIFSTOPPED(status)
-       int status
-
-int
-WSTOPSIG(status)
-       int status
-
-int
-WTERMSIG(status)
-       int status
+    ALIAS:
+       POSIX::WIFEXITED = 1
+       POSIX::WIFSIGNALED = 2
+       POSIX::WIFSTOPPED = 3
+       POSIX::WSTOPSIG = 4
+       POSIX::WTERMSIG = 5
+    CODE:
+       switch(ix) {
+       case 0:
+           RETVAL = WEXITSTATUS(status);
+           break;
+       case 1:
+           RETVAL = WIFEXITED(status);
+           break;
+       case 2:
+           RETVAL = WIFSIGNALED(status);
+           break;
+       case 3:
+           RETVAL = WIFSTOPPED(status);
+           break;
+       case 4:
+           RETVAL = WSTOPSIG(status);
+           break;
+       case 5:
+           RETVAL = WTERMSIG(status);
+           break;
+       default:
+           Perl_croak(aTHX_ "Illegal alias %d for POSIX::W*", ix);
+       }
+    OUTPUT:
+       RETVAL
 
 int
 isalnum(charstring)