deepjit/deepjit_reg: bugfixes

diff --git a/progs/Makefile b/progs/Makefile
index aee627591dc3917203047c9402af9c79c0605204..06ccb399d615ccf07bd6f5176f2f67472dd91196 100644 (file)
--- a/progs/Makefile
+++ b/progs/Makefile
@@ -10,7 +10,7 @@ else
 ifeq ($(findstring $(HN), $(STEFANHOST)), $(HN))
 DPROGFLAGS := -d /dev/ttyS0 -b 115200
 else
-DPROGFLAGS := -d /dev/ttyUSB0 -b 115200
+DPROGFLAGS := -d /dev/ttyS0 -b 115200
 endif
 endif
 

diff --git a/progs/deepjit.s b/progs/deepjit.s
index 4fe864bed9e24a1fd71ea5ccf4959a3e088c4185..0ee92ceee9a4abea1880828b01ec1f81e28f4238 100644 (file)
--- a/progs/deepjit.s
+++ b/progs/deepjit.s
@@ -85,8 +85,8 @@ prog_jmp:
 .fill 1, 0xeb000003;br+ CONST
 
 prog_imm:
-.fill 1, 0xed400000;ldil r6, CONST
-.fill 1, 0xed400002;ldih r6, CONST
+.fill 1, 0xed300000;ldil r6, CONST
+.fill 1, 0xed300002;ldih r6, CONST
 .ifill push r6
 
 prog_pop:

diff --git a/progs/deepjit_reg.s b/progs/deepjit_reg.s
index 0b5ef31e3a1365567ad1e6fe3f9c786829ea06e7..cbef6eab23ed6657b1e7996a72184832b83d74de 100644 (file)
--- a/progs/deepjit_reg.s
+++ b/progs/deepjit_reg.s
@@ -31,6 +31,7 @@ instrtable:
 .fill 42, 0
 
 prog_eof:
+.ifill pop r7
 .ifill mov r0, r6
 .ifill ret+
 
@@ -65,7 +66,7 @@ prog_sub:
 prog_lessthan:
 .ifill pop r7
 .ifill cmp r7, r6;0xec3b0000
-.ifill movlt r6, r14
+.ifill movdlt r6, r14
 .ifill movge r6, r15
 
 prog_dup:
@@ -80,8 +81,8 @@ prog_jmp:
 
 prog_imm:
 .ifill push r6
-.fill 1, 0xed400000;ldil r6, CONST
-.fill 1, 0xed400002;ldih r6, CONST
+.fill 1, 0xed300000;ldil r6, CONST
+.fill 1, 0xed300002;ldih r6, CONST
 
 prog_pop:
 .ifill pop r6
@@ -225,6 +226,8 @@ vm_eof:
        stw r0, PDATA(r13)
        ldw r0, 4(r4)
        stw r0, PDATA(r13)
+       ldw r0, 8(r4)
+       stw r0, PDATA(r13)
 
        ;end of program
        ;now it is time to clear up the defer table
@@ -431,7 +434,7 @@ vm_imm:
        ldil r4, prog_imm@lo
        ldih r4, prog_imm@hi
 
-       ldw r0, 4(r4)
+       ldw r0, 0(r4)
        PROGINSTR
 
        ;save r6 to r7