summaryrefslogtreecommitdiff
path: root/lang/modula-3-lib/files/patch-bk
diff options
context:
space:
mode:
Diffstat (limited to 'lang/modula-3-lib/files/patch-bk')
-rw-r--r--lang/modula-3-lib/files/patch-bk34
1 files changed, 34 insertions, 0 deletions
diff --git a/lang/modula-3-lib/files/patch-bk b/lang/modula-3-lib/files/patch-bk
new file mode 100644
index 000000000000..b01ef3e17004
--- /dev/null
+++ b/lang/modula-3-lib/files/patch-bk
@@ -0,0 +1,34 @@
+Support for SOCKS wrappers in Unix.i3.
+
+Index: m3/m3core/src/unix/freebsd-2/Unix.i3
+--- Unix.i3.orig Sat Jan 7 14:41:42 1995
++++ Unix.i3 Tue Oct 8 14:20:50 1996
+@@ -94,7 +94,7 @@
+ (* ok *)
+
+ (*** close - delete a descriptor ***)
+-<*EXTERNAL*> PROCEDURE close (d: int): int;
++<*EXTERNAL "m3_close"*> PROCEDURE close (d: int): int;
+ (* ok *)
+
+ (*** creat - create a new file ***)
+@@ -102,8 +102,8 @@
+ (* ok, but obsolete *)
+
+ (*** dup, dup2 - duplicate an open file descriptor ***)
+-<*EXTERNAL*> PROCEDURE dup (oldd: int): int;
+-<*EXTERNAL*> PROCEDURE dup2 (oldd, newd: int): int;
++<*EXTERNAL "m3_dup"*> PROCEDURE dup (oldd: int): int;
++<*EXTERNAL "m3_dup2"*> PROCEDURE dup2 (oldd, newd: int): int;
+ (* ok *)
+
+ (*** execve - execute a file ***)
+@@ -892,7 +892,7 @@
+ TYPE
+ FDSet = SET OF [0 .. MAX_FDSET - 1];
+
+-<*EXTERNAL*> PROCEDURE select (nfds: int;
++<*EXTERNAL "m3_select"*> PROCEDURE select (nfds: int;
+ readfds, writefds, exceptfds: UNTRACED REF FDSet;
+ timeout: UNTRACED REF struct_timeval): int;
+ (* ok *)