picolisp

commit 53919d9496e4275aaed67f3fa9ec1ea876ada759
parent 6761cdf3393b58f15e7aedf5e230fb40811f7f71
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun,  7 Oct 2012 13:57:28 +0200

emu64 continued
Diffstat:
M
doc64/asm
 | 
4
++--
M
src64/arch/emu.l
 | 
6
+++---

2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/doc64/asm b/doc64/asm
@@ -1,4 +1,4 @@
-# 02oct12abu
+# 07oct12abu
 # (c) Software Lab. Alexander Burger
 
 
@@ -94,7 +94,7 @@
       xchg dst dst      # Exchange 'dst's [---]
       movn dst src cnt  # Move 'cnt' bytes from 'src' to 'dst' (non-overlapping)
       mset dst cnt      # Set 'cnt' bytes of memory to B
-      movm dst src end  # Move memory 'src'..'end' to 'dst' (aligned, non-overlapping)
+      movm dst src end  # Move memory 'src'..'end' to 'dst' (aligned)
       save src end dst  # Save 'src'..'end' to 'dst' (aligned, non-overlapping)
       load dst end src  # Load 'dst'..'end' from 'src' (aligned, non-overlapping)
 
diff --git a/src64/arch/emu.l b/src64/arch/emu.l
@@ -296,7 +296,7 @@
 
 (asm st4 (Dst D)
    (genCode (Dst D) (list 'st4 Dst) ((op.a Dst D))
-      "*(uint32_t*)@1 = (uint32_t)A.l;" ) )
+      "*(uint32_t*)@1 = A.l;" ) )
 
 (asm xchg (Dst D Dst2 D2)
    (genCode (Dst D Dst2 D2) (list 'xchg Dst Dst2) ((op.n Dst D) (op.n Dst2 D2))
@@ -312,7 +312,7 @@
 
 (asm movm (Dst D Src S End E)
    (genCode (Dst D Src S End E) (list 'movm Dst Src End) ((op.a Dst D) (op.a Src S) (op.a End E))
-      "memcpy(@1, @2, @3 - @2);" ) )
+      "memmove(@1, @2, @3 - @2);" ) )
 
 (asm save (Src S End E Dst D)
    (genCode (Dst D Src S End E) (list 'save Dst Src End) ((op.a Dst D) (op.a Src S) (op.a End E))
@@ -492,7 +492,7 @@
 
 (asm nul4 ()
    (genCode NIL '(nul4) NIL
-      "Carry = cfClr,  Result = A.n << 32;" ) )
+      "Carry = cfClr,  Result = A.l;" ) )
 
 # Byte addressing
 (asm set (Dst D Src S)