[Wisp-cvs] wisp/src/native sys.wth,1.2,1.3

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

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