deepjit: 1638

die andern ops darf wer anderer machen

diff --git a/3_test/deepjit.s b/3_test/deepjit.s
index 3653ad27386dae4e74743d67e298488c109ea819..52949a274b57f9bda9e56273ee00f233c3cc5c0f 100644 (file)
--- a/3_test/deepjit.s
+++ b/3_test/deepjit.s
@@ -156,6 +156,10 @@ jit:
        ;r9 ... address to actual entry in defer table
        ;r10... address to defer table
 
+       ;load address of program
+       ldil r13, prog_dup@lo
+       ldih r13, prog_dup@hi
+
        ;load address of program
        ldil r14, prog_mul@lo
        ldih r14, prog_mul@hi
@@ -376,16 +380,13 @@ vm_lessthan:
 ;case D
 ;68
 vm_dup:
-       ;load address of program
-       ldil r4, prog_dup@lo
-       ldih r4, prog_dup@hi
 
        ;program instruction (3)
-       ldw r0, 0(r4)
+       ldw r0, 0(r13)
        stx r0, 0(r2)
-       ldw r0, 4(r4)
+       ldw r0, 4(r13)
        stx r0, 4(r2)
-       ldw r0, 8(r4)
+       ldw r0, 8(r13)
        stx r0, 8(r2)
 
        ;increment address