1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-08 23:06:56 +00:00
freebsd-ports/lang/modula-3-lib/files/patch-bf

32 lines
1.5 KiB
Plaintext
Raw Normal View History

Fix incorrect layout for the Udir.dirent structure.
===================================================================
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
--- m3/m3core/src/unix/freebsd-2/Udir.i3.orig 1996/09/24 05:22:00 1.1.1.1
+++ m3/m3core/src/unix/freebsd-2/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 *)