[Gd-chatter] r11291 - trunk/fundev/sources/system/file-system

[rayiner at gwydiondylan.org]

Author: rayiner
Date: Wed Apr 25 03:14:44 2007
New Revision: 11291

Modified:
   trunk/fundev/sources/system/file-system/unix-ffi.dylan
Log:
Job: fd

- Reverse incorrect change to unix-ffi (uid_t/gid_t is 32-bits)



Modified: trunk/fundev/sources/system/file-system/unix-ffi.dylan
==============================================================================
--- trunk/fundev/sources/system/file-system/unix-ffi.dylan	(original)
+++ trunk/fundev/sources/system/file-system/unix-ffi.dylan	Wed Apr 25 03:14:44 2007
@@ -93,14 +93,14 @@
 
 define inline-only function st-uid (st :: <machine-word>) => (uid :: <abstract-integer>)
   raw-as-abstract-integer
-  (primitive-c-unsigned-short-at(primitive-unwrap-machine-word(st),
+  (primitive-c-unsigned-int-at(primitive-unwrap-machine-word(st),
 			       integer-as-raw($st-uid-offset),
 			       integer-as-raw(0)))
 end function st-uid;
 
 define inline-only function st-gid (st :: <machine-word>) => (gid :: <abstract-integer>)
   raw-as-abstract-integer
-  (primitive-c-unsigned-short-at(primitive-unwrap-machine-word(st),
+  (primitive-c-unsigned-int-at(primitive-unwrap-machine-word(st),
 			       integer-as-raw($st-gid-offset),
 			       integer-as-raw(0)))
 end function st-gid;