dt/deepjit: disc/fetch added

[calu.git] / progs / deepjit.s

diff --git a/progs/deepjit.s b/progs/deepjit.s
index 400b6eb98f2e829348f25d72ac94e6de0ae1200b..c0f66801edf40ada7ccc8aef3452456fdc129976 100644 (file)
--- a/progs/deepjit.s
+++ b/progs/deepjit.s
@@ -73,8 +73,7 @@ prog_lessthan:
 .ifill pushge r15
 
 prog_dup:
-.ifill pop r6
-.ifill push r6
+.ifill fetch r6
 .ifill push r6
 
 prog_jmp:
@@ -90,7 +89,7 @@ prog_imm:
 .ifill push r6
 
 prog_pop:
-.ifill pop r6
+.ifill disc r6
 
 prog_xch:
 .ifill pop r6
@@ -436,11 +435,9 @@ vm_dup:
        PROGINSTR
        ldw r0, 4(r4)
        PROGINSTR
-       ldw r0, 8(r4)
-       PROGINSTR
 
        ;increment address
-       addi r2, r2, 3
+       addi r2, r2, 2
 
        br+ vm_loop