debug/squish.debug.lua@0e34461ab2a6 (annotated)
debug/squish.debug.lua
Mon, 27 Jul 2009 03:32:13 +0100
- author
- Matthew Wild <mwild1@gmail.com>
- date
- Mon, 27 Jul 2009 03:32:13 +0100
- changeset 34
- 0e34461ab2a6
- permissions
- -rw-r--r--
Add new debug extension
| 34 | 1 | |
| 2 | local cs = require "minichunkspy" | |
| 3 | ||
| 4 | local function ___adjust_chunk(chunk, newname, lineshift) | |
| 5 | local c = cs.disassemble(string.dump(chunk)); | |
| 6 | c.body.name = newname; | |
| 7 | ||
| 8 | lineshift = -c.body.line; | |
| 9 | local function shiftlines(c) | |
| 10 | c.line = c.line + lineshift; | |
| 11 | c.last_line = c.last_line + lineshift; | |
| 12 | for i, line in ipairs(c.source_lines) do | |
| 13 | c.source_lines[i] = line+lineshift; | |
| 14 | end | |
| 15 | for i, f in ipairs(c.prototypes) do | |
| 16 | shiftlines(f); | |
| 17 | end | |
| 18 | end | |
| 19 | shiftlines(c.body); | |
| 20 | ||
| 21 | return assert(loadstring(cs.assemble(c), newname))(); | |
| 22 | end |
