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)
|
