[Wisp-cvs] wisp/src/native sys.s,1.5,1.6 sys.wth,1.6,1.7 sys_raw.nasm,1.47,1.48

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

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

Modified Files:
	sys.s sys.wth sys_raw.nasm 
Log Message:
Dropped |sys:raw:getcwd|.

Index: sys.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.s,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- sys.s	7 Sep 2002 22:03:56 -0000	1.5
+++ sys.s	11 Sep 2002 17:36:48 -0000	1.6
@@ -1,5 +1,24 @@
 .section .text
 .align 16
+N_sys_low_getcwd:
+.byte 144,81,131,249,1,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,88,137,195,131,227,3,80,80,133,219,15,132,8,0,0,0,88,106,19,233
+.byte 22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0,88,139
+.byte 0,80,88,80,61,9,0,0,0,15,132,13,0,0,0,88,88,104
+.long WB_c8string_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,88,137,195,131,195,8,137,193,139,9,80,83,131,249,9,15,133,4,0,0
+.byte 0,88,139,0,80,88,91,131,195,4,139,27,137,217,137,195,184,183,0,0,0
+.byte 205,128,137,195,247,219,80,131,251,34,15,133,8,0,0,0,88,106,19,233
+.byte 5,0,0,0,233
+.long encsi$1 - (.+4)
+.byte 88,195
+.global N_sys_low_getcwd,NN_sys_low_getcwd
+.equiv NN_sys_low_getcwd, N_sys_low_getcwd + 1
+.section .text
+.align 16
 N_sys_ns_lstat:
 .byte 144,81,131,249,1,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.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- sys.wth	7 Sep 2002 22:03:56 -0000	1.6
+++ sys.wth	11 Sep 2002 17:36:48 -0000	1.7
@@ -9,6 +9,7 @@
 (include linux)
 (include wisptyp)
 
+(extern WB_c8string_huh)
 (extern WB_cons_huh)
 (extern WB_range)
 (extern cons$2)
@@ -184,5 +185,11 @@
     nip encsi
   then
   sizeof.struct-stat.aligned 1 deallocate)
+
+(native sys_low_getcwd dup 1 = argc drop
+  dup get-type dup NC_C8STRING <> if drop 'WB_c8string_huh swap go-raise
+  then drop dup string-data swap cell+ cell@
+  sys.getcwd dup
+  negate ERANGE = if drop FALSE else (flush) 'encsi$1 jump then)
 
 ; vim: ft=worth

Index: sys_raw.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys_raw.nasm,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- sys_raw.nasm	7 Sep 2002 21:51:50 -0000	1.47
+++ sys_raw.nasm	11 Sep 2002 17:36:48 -0000	1.48
@@ -16,7 +16,6 @@
 %endmacro
 
 native_syscall execve, 3
-native_syscall getcwd, 2
 native_syscall ioctl, 3
 native_syscall open, 3
 native_syscall read, 3