diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/dump.lua | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/dump.lua b/lib/dump.lua index f476f3f0..4e794498 100644 --- a/lib/dump.lua +++ b/lib/dump.lua | |||
| @@ -418,10 +418,16 @@ local function dump_ir(tr, dumpsnap, dumpreg) | |||
| 418 | band(ot, 64) == 0 and " " or "+", | 418 | band(ot, 64) == 0 and " " or "+", |
| 419 | irtype[t], op)) | 419 | irtype[t], op)) |
| 420 | local m1 = band(m, 3) | 420 | local m1 = band(m, 3) |
| 421 | if sub(op, 1, 4) == "CALL" then | 421 | local op4 = sub(op, 1, 4) |
| 422 | if op4 == "CALL" then | ||
| 422 | out:write(format("%-10s (", vmdef.ircall[op2])) | 423 | out:write(format("%-10s (", vmdef.ircall[op2])) |
| 423 | if op1 ~= -1 then dumpcallargs(tr, op1) end | 424 | if op1 ~= -1 then dumpcallargs(tr, op1) end |
| 424 | out:write(")") | 425 | out:write(")") |
| 426 | elseif op4 == "CNEW" then | ||
| 427 | out:write(formatk(tr, op2)) | ||
| 428 | if op1 ~= -1 then | ||
| 429 | out:write(" ("); dumpcallargs(tr, op1); out:write(")") | ||
| 430 | end | ||
| 425 | elseif m1 ~= 3 then -- op1 != IRMnone | 431 | elseif m1 ~= 3 then -- op1 != IRMnone |
| 426 | if op1 < 0 then | 432 | if op1 < 0 then |
| 427 | out:write(formatk(tr, op1)) | 433 | out:write(formatk(tr, op1)) |
