[Wisp-cvs] wisp/src/native base.inc,1.95,1.96 cxr.nasm,1.14,1.15 list.nasm,1.6,1.7

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

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

Modified Files:
	base.inc cxr.nasm list.nasm 
Log Message:
Dropped native procedure headers.

Index: base.inc
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/base.inc,v
retrieving revision 1.95
retrieving revision 1.96
diff -u -d -r1.95 -r1.96
--- base.inc	3 Aug 2002 11:27:33 -0000	1.95
+++ base.inc	7 Sep 2002 21:50:36 -0000	1.96
@@ -8,19 +8,11 @@
 
 ;;;; Introduces a native.
 
-%macro native 2-*.nolist ; name, argc/'any', docstring, meaning, ...
+%macro native 2.nolist ; name, argc/'any'
     global NN_%1
     align 16
     N_%1:
     NN_%1: equ N_%1 + 1
-        jmp short %%body
-        dw %0 - 2
-        %rep %0 - 2
-            dd %3
-            %rotate 1
-        %endrep
-        %rotate 2 - %0
-    %%body:
     %ifnidni %2, any
         %if %2 = 0
             or ecx, ecx

Index: cxr.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/cxr.nasm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- cxr.nasm	22 Jul 2002 14:53:16 -0000	1.14
+++ cxr.nasm	7 Sep 2002 21:50:36 -0000	1.15
@@ -76,8 +76,8 @@
 %endmacro
 
 section .text
-;; car and cdr are different--they have meanings and docstrings.
-native car, any, FALSE, WB_car
+
+native car, any
     cmp ecx, -2
     jz car$s2
     cmp ecx, 1
@@ -94,7 +94,7 @@
     shove car
     retvoid
 
-native cdr, any, FALSE, WB_cdr
+native cdr, any
     cmp ecx, -2
     jz cdr$s2
     cmp ecx, 1

Index: list.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/list.nasm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- list.nasm	22 Jul 2002 14:53:16 -0000	1.6
+++ list.nasm	7 Sep 2002 21:50:36 -0000	1.7
@@ -10,7 +10,7 @@
 
 global N_list
 
-native list, any, FALSE, WB_list
+native list, any
     xor eax, eax ; take NULL
     test ecx, ecx
     jl N_signal_argcount