[Wisp-cvs] wisp/src/native Makefile.am,1.158,1.159 misc.s,1.10,1.11 misc.wth,1.10,1.11 list.nasm,1.7,NONE

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

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