[Wisp-cvs] wisp/src/native linux_syscall.inc,1.11,1.12 sys.s,1.2,1.3 sys.wth,1.3,1.4 sys_raw.nasm,1.44,1.45

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

Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv31654/src/native

Modified Files:
	linux_syscall.inc sys.s sys.wth sys_raw.nasm 
Log Message:
Dropped |sys:raw:lseek|.

Index: linux_syscall.inc
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/linux_syscall.inc,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- linux_syscall.inc	22 Jul 2002 14:53:16 -0000	1.11
+++ linux_syscall.inc	4 Sep 2002 14:35:28 -0000	1.12
@@ -36,23 +36,3 @@
     int 0x80
     ret
 %endmacro
-
-%macro native_socketcall 2-3
-native sys_raw_%1, %2
-%assign %%i 1
-%rep %2 - 1
-    pick %%i
-%assign %%i %%i + 2
-%endrep
-    mov ecx, esp
-%if %0 > 2
-    %3
-%endif
-    mov ebx, CCC_sktnr_%1
-    mov eax, CCC_sysnr_socketcall
-    int 0x80
-%if %2 > 1
-    drop 2 * %2 - 1
-%endif
-    ret
-%endmacro

Index: sys.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.s,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- sys.s	4 Sep 2002 14:28:37 -0000	1.2
+++ sys.s	4 Sep 2002 14:35:28 -0000	1.3
@@ -121,6 +121,30 @@
 .equiv N_sys_ns_mkdir.L1, N_sys_ns_mkdir + 43
 .section .text
 .align 16
+N_sys_ns_lseek:
+.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_lseek.L1
+.byte 81,233
+.long decui$1 - (.+4)
+.byte 91,89,83,80,104
+.long N_sys_ns_lseek.L2
+.byte 81,233
+.long decsi$1 - (.+4)
+.byte 91,89,83,80,104
+.long N_sys_ns_lseek.L3
+.byte 81,233
+.long decui$1 - (.+4)
+.byte 137,194,88,137,193,88,137,195,184,19,0,0,0,205,128,80,233
+.long encsi$1 - (.+4)
+.global N_sys_ns_lseek,NN_sys_ns_lseek,N_sys_ns_lseek.L1,N_sys_ns_lseek.L2,N_sys_ns_lseek.L3
+.equiv NN_sys_ns_lseek, N_sys_ns_lseek + 1
+.equiv N_sys_ns_lseek.L1, N_sys_ns_lseek + 36
+.equiv N_sys_ns_lseek.L2, N_sys_ns_lseek + 51
+.equiv N_sys_ns_lseek.L3, N_sys_ns_lseek + 66
+.section .text
+.align 16
 N_sys_ns_listen:
 .byte 144,81,131,249,2,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.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- sys.wth	4 Sep 2002 14:31:22 -0000	1.3
+++ sys.wth	4 Sep 2002 14:35:28 -0000	1.4
@@ -89,6 +89,9 @@
 (native sys_ns_listen dup 2 = argc drop
   swap decui swap decui sys.listen (flush) 'encsi$1 jump)
 
+(native sys_ns_lseek dup 3 = argc drop
+  rot decui rot decsi rot decui sys.lseek (flush) 'encsi$1 jump)
+
 (native sys_ns_mkdir dup 2 = argc drop
   swap ws->zt swap decui sys.mkdir (flush) 'encsi$1 jump)
 

Index: sys_raw.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys_raw.nasm,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -d -r1.44 -r1.45
--- sys_raw.nasm	4 Sep 2002 14:28:37 -0000	1.44
+++ sys_raw.nasm	4 Sep 2002 14:35:28 -0000	1.45
@@ -19,7 +19,6 @@
 native_syscall fcntl, 3
 native_syscall getcwd, 2
 native_syscall ioctl, 3
-native_syscall lseek, 3
 native_syscall open, 3
 native_syscall read, 3
 native_syscall waitpid, 3, untag ecx ; so that a cons can be used