lang/pm3-base/files/patch-dz


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

--- graphics/lecternpkg/buildlectern/src/POSIX/OSUtilsPosix.m3.orig Sat Jul 21 16:04:09 2001
+++ graphics/lecternpkg/buildlectern/src/POSIX/OSUtilsPosix.m3  Sat Jul 21 16:07:40 2001
@@ -32,10 +32,10 @@
 VAR pFifo: TEXT := NIL;
 
 PROCEDURE CreateFifo(p: TEXT) RAISES {OSError.E} =
-  CONST Mode = Unix.fifo_special + Unix.MROWNER + Unix.MWOWNER;
+  CONST Mode = Unix.MROWNER + Unix.MWOWNER;
   BEGIN
     <* ASSERT pFifo=NIL *>
-    IF Unix.mknod(M3toC.TtoS(p), Mode, Utypes.makedev(0,0)) < 0 THEN
+    IF Unix.mkfifo(M3toC.TtoS(p), Mode) < 0 THEN
       OSErrorPosix.Raise();
     END;
     pFifo := p;