Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv1415/src/native
Modified Files:
Makefile.am misc.s misc.wth
Removed Files:
list.nasm
Log Message:
Converted |list| from Nasm to Worth.
Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/Makefile.am,v
retrieving revision 1.158
retrieving revision 1.159
diff -u -d -r1.158 -r1.159
--- Makefile.am 18 Sep 2002 21:12:38 -0000 1.158
+++ Makefile.am 18 Sep 2002 21:14:09 -0000 1.159
@@ -12,7 +12,7 @@
libnative_a_SOURCES = native_call.nasm branches.nasm \
base.inc \
- apply.nasm chars.nasm cxr.nasm integers.nasm list.nasm \
+ apply.nasm chars.nasm cxr.nasm integers.nasm \
memset.nasm records.nasm ref.nasm resignal.nasm signal.nasm \
strings.nasm types.nasm valloc.nasm wrap.nasm \
boxes.wth cons.wth death.wth misc.wth sys.wth vectors.wth wstrings.wth \
@@ -23,7 +23,7 @@
noinst_LIBRARIES = libnative.a
libnative_a_LIBADD = native_call.o branches.o \
- apply.o chars.o cxr.o integers.o list.o memset.o records.o ref.o \
+ apply.o chars.o cxr.o integers.o memset.o records.o ref.o \
resignal.o signal.o strings.o sys.o types.o valloc.o wrap.o
%.o: %.nasm base.inc
Index: misc.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.s,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- misc.s 18 Sep 2002 21:13:37 -0000 1.10
+++ misc.s 18 Sep 2002 21:14:09 -0000 1.11
@@ -1,5 +1,18 @@
.section .text
.align 16
+N_list:
+.byte 144,81,133,201,15,141,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,106,0,80,88,80,133,192,15,132,22,0,0,0,88,72,91,89,80,104
+.long N_list.L3
+.byte 81,83,233
+.long cons$2 - (.+4)
+.byte 91,80,83,235,224,88,88,195
+.global N_list,NN_list,N_list.L3
+.equiv NN_list, N_list + 1
+.equiv N_list.L3, N_list + 49
+.section .text
+.align 16
N_pr_get_environment:
.byte 144,81,133,201,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
Index: misc.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.wth,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- misc.wth 18 Sep 2002 21:13:37 -0000 1.10
+++ misc.wth 18 Sep 2002 21:14:09 -0000 1.11
@@ -14,6 +14,7 @@
(extern WB_range)
(extern WB_record_type_huh)
(extern argument_list)
+(extern cons$2)
(extern decsi$1)
(extern decui$1)
(extern encsi$1)
@@ -31,6 +32,8 @@
(macro encui <: swap (flush) 'encui$1 jump :>)
(macro valloc <: swap (flush) 'valloc$1 jump :>)
+(macro cons <: -rot (flush) 'cons$2 jump :>)
+
(macro rdecui ; ( node limit )
over decui swap over swap
>= if drop 'WB_range swap go-raise then nip)
@@ -103,5 +106,12 @@
(native pr_get_environment dup 0 = argc drop
'environment cell@)
+
+(native list dup 0 >= argc
+ NULL swap
+ begin dup while
+ 1- -rot cons swap
+ repeat
+ drop)
; vim: ft=worth
--- list.nasm DELETED ---
|
