From e0a61e5f93ab33b9090a15171ece82bc3ace8f69 Mon Sep 17 00:00:00 2001
From: Zeex <zeex@rocketmail.com>
Date: Sun, 31 Aug 2014 04:52:36 +0700
Subject: [PATCH] Fix jump addresses in casetbl disassembly

---
 source/compiler/pawndisasm.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/compiler/pawndisasm.c b/source/compiler/pawndisasm.c
index 3e56948..4fd9abf 100644
--- a/source/compiler/pawndisasm.c
+++ b/source/compiler/pawndisasm.c
@@ -322,9 +322,9 @@ cell casetbl(FILE *ftxt,const cell *params,cell opcode,cell cip)
 
   print_opcode(ftxt,opcode,cip);
   num=params[0]+1;
-  fprintf(ftxt,"%08lx %08lx\n",params[0],params[1]+cip+sizeof(cell));
+  fprintf(ftxt,"%08lx %08lx\n",params[0],params[1]);
   for (idx=1; idx<num; idx++)
-    fprintf(ftxt,"                  %08lx %08lx\n",params[2*idx],params[2*idx+1]+cip+(2*idx+1)*sizeof(cell));
+    fprintf(ftxt,"                  %08lx %08lx\n",params[2*idx],params[2*idx+1]);
   return 2*num+1;
 }