This commit is contained in:
rsc 2005-03-18 18:49:50 +00:00
parent 6b6159b3a7
commit 029e5020e2

View file

@ -37,7 +37,7 @@ defn params(param)
{ {
while param do { while param do {
sym = head param; sym = head param;
print(sym[0], "=", itoa(sym[1], "%ux")); print(sym[0], "=", itoa(sym[1], "%#ux"));
param = tail param; param = tail param;
if param then if param then
print (","); print (",");
@ -54,7 +54,7 @@ defn locals(l)
while l do { while l do {
sym = head l; sym = head l;
print(stkprefix, "\t", sym[0], "=", itoa(sym[1], "%ux"), "\n"); print(stkprefix, "\t", sym[0], "=", itoa(sym[1], "%#ux"), "\n");
l = tail l; l = tail l;
} }
} }
@ -102,7 +102,7 @@ defn _stk(regs, dolocals)
params(paramlist); params(paramlist);
print(")"); print(")");
if pc != fn then if pc != fn then
print("+", itoa(pc-fn, "%ux")); print("+", itoa(pc-fn, "%#ux"));
print(" "); print(" ");
pfl(pc); pfl(pc);
if dolocals then if dolocals then