[Wisp-cvs] wisp/modules linux.wrti,1.15,1.16 universal.wrti,1.13,1.14

[<di...@us...>]

Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv7142/modules

Modified Files:
	linux.wrti universal.wrti 
Log Message:
Replaced the C-written |sys:fstat|, |sys:lstat|, and |sys:stat| with the Worth-written |sys:ns:fstat|, |sys:ns:lstat|, and |sys:ns:stat|.

Index: linux.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/linux.wrti,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- linux.wrti	7 Sep 2002 22:02:03 -0000	1.15
+++ linux.wrti	7 Sep 2002 22:03:51 -0000	1.16
@@ -271,6 +271,23 @@
   (macro WNOHANG   1)
   (macro WUNTRACED 2)
 
+  ; <asm/stat.h>
+  (macro stat.dev@ 0 + wyde@)
+  (macro stat.ino@ 4 + tetra@)
+  (macro stat.mode@ 8 + wyde@)
+  (macro stat.nlink@ 10 + wyde@)
+  (macro stat.uid@ 12 + wyde@)
+  (macro stat.gid@ 14 + wyde@)
+  (macro stat.rdev@ 16 + wyde@)
+  (macro stat.size@ 20 + tetra@)
+  (macro stat.blksize@ 24 + tetra@)
+  (macro stat.blocks@ 28 + tetra@)
+  (macro stat.atime@ 32 + tetra@)
+  (macro stat.mtime@ 40 + tetra@)
+  (macro stat.ctime@ 48 + tetra@)
+  (macro sizeof.struct-stat 64)
+  (macro sizeof.struct-stat.aligned 64)
+
   ; <linux/socket.h>
   (macro AF_UNSPEC 0)     (macro PF_UNSPEC 0)
   (macro AF_UNIX 1)       (macro PF_UNIX 1)

Index: universal.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/universal.wrti,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- universal.wrti	7 Sep 2002 22:02:40 -0000	1.13
+++ universal.wrti	7 Sep 2002 22:03:51 -0000	1.14
@@ -40,8 +40,12 @@
   (macro ?dup
     dup if dup then)
 
+  ; Note that |sp@| gets the machine stack pointer
+  ; whereas some items apparently in stack might actually
+  ; be in registers.  Usage of explicit |stack=!| is
+  ; strongly recommended before |sp@|.
+
   (macro sp@
-    (flush)
     (register)
     ,(mov ,0 %esp))
 
@@ -55,6 +59,16 @@
     ,(mov %esp ,0)
     drop)
 
+  (macro allocate ; takes: (size regcount)
+                  ; size must be a multiple of cell size
+                  ; regcount must be less than the number
+                  ; of machine registers
+                  ; regcount must be an integer constant
+    1 + stack=! ,(sub %esp ,0) drop sp@)
+
+  (macro deallocate ; takes (size regcount), see |allocate|
+    1 + stack=! ,(add %esp ,0) drop)
+
   ;; Double-cell stack operations
   (macro 2dup
     over swap dup -rot)
@@ -516,11 +530,11 @@
   ;; Memory operations
   (macro byte@
     (->ureg 0)
-    ,(movzx ,0 (byte ,0)))
+    ,(zex ,0 (byte ,0)))
 
   (macro wyde@
     (->ureg 0)
-    ,(movzx ,0 (wyde ,0)))
+    ,(zex ,0 (wyde ,0)))
 
   (macro tetra@
     (->ureg 0)