diff options
Diffstat (limited to 'engines/director/lingo/lingo-codegen.cpp')
-rw-r--r-- | engines/director/lingo/lingo-codegen.cpp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/engines/director/lingo/lingo-codegen.cpp b/engines/director/lingo/lingo-codegen.cpp index 2ba3c0940c..0b974771c9 100644 --- a/engines/director/lingo/lingo-codegen.cpp +++ b/engines/director/lingo/lingo-codegen.cpp @@ -250,6 +250,14 @@ Symbol *Lingo::define(Common::String &name, int start, int nargs, Common::String _currentScript->remove_at(i); } + if (debugChannelSet(1, kDebugLingoExec)) { + uint pc = 0; + while (pc < sym->u.defn->size()) { + Common::String instr = g_lingo->decodeInstruction(sym->u.defn, pc, &pc); + debugC(1, kDebugLingoExec, "[%5d] %s", pc, instr.c_str()); + } + } + return sym; } |