Merge the implementations of 2 sets of POSIX functions.

Using ALIAS to merge POSIX::sig{pending,suspend} and
POSIX::tc{flow,flush,sendbreak} reduces the size of POSIX.so by about 2K
on this platform.

1 files changed, 14 insertions, 15 deletions

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 764a9e53f9..50498eaaee 100644
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -1515,6 +1515,12 @@ sigaction(sig, optaction, oldaction = 0)
 SysRet
 sigpending(sigset)
 	POSIX::SigSet		sigset
+    ALIAS:
+	sigsuspend = 1
+    CODE:
+	RETVAL = ix ? sigsuspend(sigset) : sigpending(sigset);
+    OUTPUT:
+	RETVAL
 
 SysRet
 sigprocmask(how, sigset, oldsigset = 0)
@@ -1538,10 +1544,6 @@ INIT:
 	    croak("oldsigset is not of type POSIX::SigSet");
 	}
 
-SysRet
-sigsuspend(signal_mask)
-	POSIX::SigSet		signal_mask
-
 void
 _exit(status)
 	int		status
@@ -1802,17 +1804,14 @@ SysRet
 tcflow(fd, action)
 	int		fd
 	int		action
-
-
-SysRet
-tcflush(fd, queue_selector)
-	int		fd
-	int		queue_selector
-
-SysRet
-tcsendbreak(fd, duration)
-	int		fd
-	int		duration
+    ALIAS:
+	tcflush = 1
+	tcsendbreak = 2
+    CODE:
+	RETVAL = ix == 1 ? tcflush(fd, action)
+	    : (ix < 1 ? tcflow(fd, action) : tcsendbreak(fd, action));
+    OUTPUT:
+	RETVAL
 
 char *
 asctime(sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = -1)