summaryrefslogtreecommitdiff
path: root/lang/modula-3-lib/files/patch-bf
diff options
context:
space:
mode:
Diffstat (limited to 'lang/modula-3-lib/files/patch-bf')
-rw-r--r--lang/modula-3-lib/files/patch-bf32
1 files changed, 32 insertions, 0 deletions
diff --git a/lang/modula-3-lib/files/patch-bf b/lang/modula-3-lib/files/patch-bf
new file mode 100644
index 000000000000..fbdd67167eb5
--- /dev/null
+++ b/lang/modula-3-lib/files/patch-bf
@@ -0,0 +1,32 @@
+Fix incorrect layout for the Udir.dirent structure.
+
+Index: m3/m3core/src/unix/freebsd-2/Udir.i3
+===================================================================
+RCS file: /home/jdp/m3-cvs/m3/m3core/src/unix/freebsd-2/Udir.i3,v
+retrieving revision 1.1.1.1
+diff -u -r1.1.1.1 Udir.i3
+--- Udir.i3 1996/09/24 05:22:00 1.1.1.1
++++ Udir.i3 1996/09/24 05:32:44
+@@ -40,10 +40,10 @@
+ *)
+ TYPE
+ dirent = RECORD (* describes directory entry *)
+- d_fileno: Ctypes.long; (* inode number of entry *)
+- d_reclen: Ctypes.unsigned_char; (* record length in bytes *)
++ d_fileno: Ctypes.unsigned_long; (* inode number of entry *)
++ d_reclen: Ctypes.unsigned_short; (* record length in bytes *)
+ d_type: Ctypes.unsigned_char; (* file types, see above *)
+- d_namelen: Ctypes.unsigned_short; (* name length in bytes *)
++ d_namelen: Ctypes.unsigned_char; (* name length in bytes *)
+ d_name: ARRAY [0..MAXNAMLEN] OF Ctypes.char; (* name *)
+ END;
+
+@@ -53,7 +53,7 @@
+ dd_fd: Ctypes.int; (* file descriptor associated with directory *)
+ dd_loc: Ctypes.long; (* offset in current buffer *)
+ dd_size: Ctypes.long; (* amount of data returned by getdirentries *)
+- dd_buf: UNTRACED REF Ctypes.char; (* data buffer *)
++ dd_buf: Ctypes.char_star; (* data buffer *)
+ dd_len: Ctypes.int; (* size of data buffer *)
+ dd_seek: Ctypes.long (* magic cookie returned by getdirentries *);
+ dd_rewind: Ctypes.long; (* magic cookie for rewinding *)