Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv30361/src/native
Modified Files:
sys.wth
Log Message:
Defined the Linux error codes for Worth.
Index: sys.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.wth,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- sys.wth 4 Sep 2002 14:28:37 -0000 1.2
+++ sys.wth 4 Sep 2002 14:31:22 -0000 1.3
@@ -15,12 +15,14 @@
(extern decui$1)
(extern encsi$1)
(extern encui$1)
+(extern salloc$1)
(extern ws2zt)
(macro decsi <: swap (flush) 'decsi$1 jump :>)
(macro decui <: swap (flush) 'decui$1 jump :>)
(macro encsi <: swap (flush) 'encsi$1 jump :>)
(macro encui <: swap (flush) 'encui$1 jump :>)
+(macro salloc <: swap (flush) 'salloc$1 jump :>)
(macro ws->zt (flush) ws2zt (believe %eax) nip)
(native unix_time dup 0 = argc drop
|
