[Wisp-cvs] wisp/src/native strings.nasm,1.50,1.51

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

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