picolisp

commit ba78519f05016007bd4b4ebda64e385ca316bd5b
parent 52fce643cc3b2063882c33d8c6c10d564f6585fa
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue,  9 Oct 2012 19:15:36 +0200

emu64 continued
Diffstat:
M
src64/arch/emu.l
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src64/arch/emu.l b/src64/arch/emu.l
@@ -469,7 +469,7 @@
       "Result = (uint64_t)memcmp(@1, @2, @3);" ) )
 
 (asm slen (Dst D Src S)
-   (genCode (Dst D Src S) (list 'slen Dst Src) ((op.n Dst D) (op.p Src S))
+   (genCode (Dst D Src S) (list 'slen Dst Src) ((op.n Dst D) (op.a Src S))
       "@1 = (uint64_t)strlen(@2);" ) )
 
 (asm memb (Src S Cnt C)