picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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

emu64 continued
Diffstat:
Mdoc64/asm | 4++--
Msrc64/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)