blob: fbdd67167eb594698e3a1c059f53871b38701d33 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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 *)
|