--- a/Unix.st Sun Aug 07 15:43:34 1994 +0200
+++ b/Unix.st Sun Aug 07 15:45:33 1994 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.17 1994-08-05 01:02:58 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.18 1994-08-07 13:45:33 claus Exp $
'!
%{
@@ -122,7 +122,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.17 1994-08-05 01:02:58 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.18 1994-08-07 13:45:33 claus Exp $
"
!
@@ -1793,6 +1793,9 @@
# ifdef SIGIO
signal(SIGIO, ioInterrupt);
# endif
+# ifdef SIGURG
+ signal(SIGURG, ioInterrupt);
+# endif
flags = fcntl(_intVal(fd), F_GETFL, 0);
ret = fcntl(_intVal(fd), F_SETFL, flags | FASYNC);
if (ret >= 0) ret = flags;
@@ -1800,12 +1803,10 @@
}
# endif
#endif
-#ifdef SIGURG
- signal(SIGURG, ioInterrupt);
-#endif
%}.
"
this error is triggered on non-integer argument
+ or if the system does not support SIGIO
"
self primitiveFailed
!