picolisp

commit 52fce643cc3b2063882c33d8c6c10d564f6585fa
parent 41564f1831598f43751b506d1a5e45c833b5d33a
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue,  9 Oct 2012 15:21:59 +0200

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

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src64/arch/emu.l b/src64/arch/emu.l
@@ -167,8 +167,8 @@
 
 (de op.a (Arg M)
    (cond
-      ((atom M)                        # Immediate, Register or Direct
-         (quit "Can't take address" Arg) )
+      ((=0 M) (quit "Can't take address" Arg))  # Immediate
+      ((flg? M) (op.p Arg M))                   # Register or Direct
       ((=T (cdr M))
          (let E (directExpr (cdr Arg))
             (pack
@@ -474,9 +474,9 @@
 
 (asm memb (Src S Cnt C)
    (if S
-      (genCode (Src S Cnt C) (list 'memb Src Cnt) ((op.p Src S) (op.i Cnt C))
+      (genCode (Src S Cnt C) (list 'memb Src Cnt) ((op.a Src S) (op.i Cnt C))
          "Result = !(uint64_t)(unsigned long)memchr(@1, (int)A.b[0], @2);" )
-      (genCode (Src S Cnt C) (list 'memb Src Cnt) ((op.p Src S) (op.i Cnt C) Cnt)
+      (genCode (Src S Cnt C) (list 'memb Src Cnt) ((op.a Src S) (op.i Cnt C) Cnt)
          "if (!(Result = !(tmp.p = (uint8_t*)memchr(@1, (int)A.b[0], @2))))"
          "   @3.n -= tmp.p - @1 + 1,  @1 = tmp.p + 1;" ) ) )