*** empty log message ***
authorclaus
Sun, 07 Aug 1994 15:45:33 +0200
changeset 101 b26288c3a005
parent 100 526c32a8492c
child 102 dd3cf69a4c50
*** empty log message ***
Unix.st
--- 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
 !