From c3e5946fb2b7b5781d9bca9d303967abe6263482 Mon Sep 17 00:00:00 2001 From: Roberto Ierusalimschy Date: Tue, 7 Nov 2017 15:20:42 -0200 Subject: new format for JUMP instructions (to allow larger offsets) --- ltests.c | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'ltests.c') diff --git a/ltests.c b/ltests.c index bee734f3..5f7b4064 100644 --- a/ltests.c +++ b/ltests.c @@ -1,5 +1,5 @@ /* -** $Id: ltests.c,v 2.227 2017/11/02 11:28:56 roberto Exp $ +** $Id: ltests.c,v 2.230 2017/11/07 13:25:26 roberto Exp roberto $ ** Internal Module for Debugging of the Lua Implementation ** See Copyright Notice in lua.h */ @@ -543,14 +543,20 @@ static char *buildop (Proto *p, int pc, char *buff) { GETARG_k(i) ? " (k)" : ""); break; case iABx: - sprintf(buff+strlen(buff), "%-12s%4d %4d", name, GETARG_A(i), GETARG_Bx(i)); + sprintf(buff+strlen(buff), "%-12s%4d %4d", name, GETARG_A(i), + GETARG_Bx(i)); break; case iAsBx: - sprintf(buff+strlen(buff), "%-12s%4d %4d", name, GETARG_A(i), GETARG_sBx(i)); + sprintf(buff+strlen(buff), "%-12s%4d %4d", name, GETARG_A(i), + GETARG_sBx(i)); break; case iAx: sprintf(buff+strlen(buff), "%-12s%4d", name, GETARG_Ax(i)); break; + case isJ: + sprintf(buff+strlen(buff), "%-12s%4d (%1d)", name, GETARG_sJ(i), + !!GETARG_k(i)); + break; } return buff; } -- cgit v1.2.3-55-g6feb