From: Martin Perner <martin@perner.cc>
Date: Mon, 27 Dec 2010 01:08:40 +0000 (+0100)
Subject: deepjit: 1638
X-Git-Tag: bootrom_v1~45
X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=calu.git;a=commitdiff_plain;h=31fd767eeeb3399a7212196abd7451a8ddffac82

deepjit: 1638

die andern ops darf wer anderer machen
---

diff --git a/3_test/deepjit.s b/3_test/deepjit.s
index 3653ad2..52949a2 100644
--- 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