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

[hannes at gwydiondylan.org]

Author: hannes
Date: Sat May 12 16:06:13 2007
New Revision: 11347

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

revert change of st-mode to unsigned short, change it back
to unsigned int. otherwise file types are not correctly
recognized on linux and FreeBSD (test case at
 http://www.opendylan.org/~hannes/directory-walker/ )


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	Sat May 12 16:06:13 2007
@@ -86,7 +86,7 @@
 
 define inline-only function st-mode (st :: <machine-word>) => (mode :: <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-mode-offset),
 			       integer-as-raw(0)))
 end function st-mode;