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

deepjit: 1642
---

diff --git a/3_test/deepjit.s b/3_test/deepjit.s
index f65b445..3653ad2 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 r14, prog_mul@lo
+	ldih r14, prog_mul@hi
+
 	ldil r15, prog_consts@lo
 	ldih r15, prog_consts@hi
 
@@ -232,38 +236,34 @@ vm_defer:
 ;case *
 ;42
 vm_mul:
-	;load address of program
-	ldil r4, prog_mul@lo
-	ldih r4, prog_mul@hi
-
 	;program instruction (14)
-	ldw r0, 0(r4)
+	ldw r0, 0(r14)
 	stx r0, 0(r2)
-	ldw r0, 4(r4)
+	ldw r0, 4(r14)
 	stx r0, 4(r2)
-	ldw r0, 8(r4)
+	ldw r0, 8(r14)
 	stx r0, 8(r2)
-	ldw r0, 12(r4)
+	ldw r0, 12(r14)
 	stx r0, 12(r2)
-	ldw r0, 16(r4)
+	ldw r0, 16(r14)
 	stx r0, 16(r2)
-	ldw r0, 20(r4)
+	ldw r0, 20(r14)
 	stx r0, 20(r2)
-	ldw r0, 24(r4)
+	ldw r0, 24(r14)
 	stx r0, 24(r2)
-	ldw r0, 28(r4)
+	ldw r0, 28(r14)
 	stx r0, 28(r2)
-	ldw r0, 32(r4)
+	ldw r0, 32(r14)
 	stx r0, 32(r2)
-	ldw r0, 36(r4)
+	ldw r0, 36(r14)
 	stx r0, 36(r2)
-	ldw r0, 40(r4)
+	ldw r0, 40(r14)
 	stx r0, 40(r2)
-	ldw r0, 44(r4)
+	ldw r0, 44(r14)
 	stx r0, 44(r2)
-	ldw r0, 48(r4)
+	ldw r0, 48(r14)
 	stx r0, 48(r2)
-	ldw r0, 52(r4)
+	ldw r0, 52(r14)
 	stx r0, 52(r2)
 
 	;increment address
diff --git a/8_benchs/angabe/vm.c b/8_benchs/angabe/vm.c
index d31264f..aa4a83f 100644
--- a/8_benchs/angabe/vm.c
+++ b/8_benchs/angabe/vm.c
@@ -27,6 +27,7 @@ int vm(const char *insns)
 			int8_t op = insns[pc];
 			int32_t t;
 
+			printf("pc: %d op: %c\n", pc, op);
 			/* putchar(op); */
 
 			/* printf(" %d/%d:\t%08x\t%08x\t%08x\t%08x\t%08x\t%08x\t%08x\t%08x\n", */