diff options
Diffstat (limited to 'lang/modula-3-lib/files/patch-bk')
| -rw-r--r-- | lang/modula-3-lib/files/patch-bk | 32 |
1 files changed, 29 insertions, 3 deletions
diff --git a/lang/modula-3-lib/files/patch-bk b/lang/modula-3-lib/files/patch-bk index f94316eb14ec..6d721061f979 100644 --- a/lang/modula-3-lib/files/patch-bk +++ b/lang/modula-3-lib/files/patch-bk @@ -1,8 +1,10 @@ Support for SOCKS wrappers in Unix.i3. Also add some missing system call declarations. +Also fix misdirected entries for "open" and "fcntl" which bypassed the +VM wrappers. --- m3/m3core/src/unix/freebsd-2/Unix.i3.orig Sat Jan 7 14:41:42 1995 -+++ m3/m3core/src/unix/freebsd-2/Unix.i3 Thu Jul 10 18:32:36 1997 ++++ m3/m3core/src/unix/freebsd-2/Unix.i3 Thu Apr 23 22:09:54 1998 @@ -84,9 +84,10 @@ <*EXTERNAL*> PROCEDURE fchmod (fd, mode: mode_t): int; (* ok *) @@ -35,7 +37,18 @@ Also add some missing system call declarations. (* ok *) (*** execve - execute a file ***) -@@ -773,6 +774,9 @@ +@@ -156,10 +157,7 @@ + F_WRLCK = 3; (* Write lock *) + F_UNLCK = 2; (* Remove lock(s) *) + +-(* with vm use this + <*EXTERNAL "ufcntl"*> PROCEDURE fcntl (fd, request, arg: int): int; +-*) +-<*EXTERNAL "m3_fcntl"*> PROCEDURE fcntl (fd, request, arg: int): int; + (* ok *) + + (*** flock - apply or remove an advisory lock on an open file ***) +@@ -773,6 +771,9 @@ PROCEDURE lseek (d: int; offset: off_t; whence: int): off_t; (* ok *) @@ -45,7 +58,20 @@ Also add some missing system call declarations. (*** mkdir - make a directory file ***) <*EXTERNAL*> PROCEDURE mkdir (path: char_star; mode: mode_t): int; (* ok *) -@@ -892,7 +896,7 @@ +@@ -827,12 +828,8 @@ + + M3_NONBLOCK = O_NONBLOCK; (* -1 => would block, 0 => EOF *) + +-(* with vm use this + <*EXTERNAL "uopen" *> PROCEDURE open (name: char_star; + flags, mode: int): int; +-*) +-<*EXTERNAL "m3_open" *> PROCEDURE open (name: char_star; +- flags, mode: int): int; + (* ok *) + + (*** pipe - create an interprocess channel ***) +@@ -892,7 +889,7 @@ TYPE FDSet = SET OF [0 .. MAX_FDSET - 1]; |