Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv4287/src/native
Modified Files:
strings.nasm
Log Message:
Dropped |string-ref|.
Index: strings.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/strings.nasm,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -d -r1.50 -r1.51
--- strings.nasm 31 Aug 2002 14:29:05 -0000 1.50
+++ strings.nasm 7 Sep 2002 21:54:06 -0000 1.51
@@ -40,27 +40,6 @@
jmp discriminator_body
; }}}
-; {{{ |string-ref|
-native string_ref, any
- mov eax, ecx
- test eax, eax
- jz near N_signal_argcount
- if l
- neg eax
- endif
- mov eax, [esp + (eax - 1) * 4]
- test eax, eax
- jz _signal_string_eax
- test al, 3
- jnz _signal_string_eax
- mov edx, type(eax)
- cmp edx, NC_C8STRING
- jz near N_c8string_ref
- cmp edx, RT_c16string
- jz near N_c16string_ref
- jmp _signal_string_eax
-; }}}
-
; {{{ |c8string-ref|
global N_c8string_ref
native c8string_ref, any
|
