[Wisp-cvs] wisp/src/native sys.s,1.14,1.15 sys.wth,1.15,1.16

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

Update of /cvsroot/wisp/wisp/src/native
In directory sc8-pr-cvs1:/tmp/cvs-serv3068/native

Modified Files:
	sys.s sys.wth 
Log Message:
implemented sys:socket

Index: sys.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.s,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- sys.s	26 Sep 2002 18:22:37 -0000	1.14
+++ sys.s	6 Feb 2003 12:29:11 -0000	1.15
@@ -870,6 +870,32 @@
 .equiv N_sys_ns_symlink.L0, N_sys_ns_symlink + 19
 .section .text
 .align 16
+N_sys_ns_socket:
+.byte 144,81,131,249,3,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,88,91,89,83,80,104
+.long N_sys_ns_socket.L1
+.byte 81,233
+.long decui$1 - (.+4)
+.byte 91,89,83,80,104
+.long N_sys_ns_socket.L2
+.byte 81,233
+.long decui$1 - (.+4)
+.byte 91,89,83,80,104
+.long N_sys_ns_socket.L3
+.byte 81,233
+.long decui$1 - (.+4)
+.byte 91,89,80,83,81,187,1,0,0,0,137,225,184,102,0,0,0,205,128,91,91,91
+.byte 80,233
+.long encsi$1 - (.+4)
+.global N_sys_ns_socket,NN_sys_ns_socket,N_sys_ns_socket.L0,N_sys_ns_socket.L1,N_sys_ns_socket.L2,N_sys_ns_socket.L3
+.equiv NN_sys_ns_socket, N_sys_ns_socket + 1
+.equiv N_sys_ns_socket.L0, N_sys_ns_socket + 19
+.equiv N_sys_ns_socket.L1, N_sys_ns_socket + 36
+.equiv N_sys_ns_socket.L2, N_sys_ns_socket + 51
+.equiv N_sys_ns_socket.L3, N_sys_ns_socket + 66
+.section .text
+.align 16
 N_sys_ns_setsid:
 .byte 144,81,133,201,15,132,8,0,0,0,88,137,193,233
 .long N_signal_argcount - (.+4)

Index: sys.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.wth,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- sys.wth	30 Sep 2002 18:24:55 -0000	1.15
+++ sys.wth	6 Feb 2003 12:29:11 -0000	1.16
@@ -164,6 +164,9 @@
 (native sys_ns_setsid dup 0 = argc drop
   sys.setsid (flush) 'encsi$1 jump)
 
+(native sys_ns_socket dup 3 = argc drop
+  rot decui rot decui rot decui sys.socket (flush) 'encsi$1 jump)
+
 (native sys_ns_symlink dup 2 = argc drop
   swap ws->zt swap ws->zt sys.symlink (flush) 'encsi$1 jump)