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
|
