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
|
