aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--engines/director/lingo/lingo-builtins.cpp4
-rw-r--r--engines/director/lingo/lingo-code.cpp3
-rw-r--r--engines/director/lingo/lingo.h2
3 files changed, 6 insertions, 3 deletions
diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp
index 9a741edfef..f554f43cd8 100644
--- a/engines/director/lingo/lingo-builtins.cpp
+++ b/engines/director/lingo/lingo-builtins.cpp
@@ -362,7 +362,7 @@ void Lingo::initBuiltIns() {
}
}
-void Lingo::printSTUBWithArglist(const char *funcname, int nargs) {
+void Lingo::printSTUBWithArglist(const char *funcname, int nargs, const char *prefix) {
Common::String s(funcname);
s += '(';
@@ -379,7 +379,7 @@ void Lingo::printSTUBWithArglist(const char *funcname, int nargs) {
s += ")";
- warning("STUB: %s", s.c_str());
+ warning("%s: %s", prefix, s.c_str());
}
void Lingo::convertVOIDtoString(int arg, int nargs) {
diff --git a/engines/director/lingo/lingo-code.cpp b/engines/director/lingo/lingo-code.cpp
index 96f2b72158..7bc82eddcf 100644
--- a/engines/director/lingo/lingo-code.cpp
+++ b/engines/director/lingo/lingo-code.cpp
@@ -1023,6 +1023,9 @@ void Lingo::c_call() {
void Lingo::call(Common::String name, int nargs) {
bool dropArgs = false;
+ if (debugChannelSet(3, kDebugLingoExec))
+ printSTUBWithArglist(name.c_str(), nargs, "call:");
+
Symbol *sym = g_lingo->getHandler(name);
if (!g_lingo->_eventHandlerTypeIds.contains(name)) {
diff --git a/engines/director/lingo/lingo.h b/engines/director/lingo/lingo.h
index 1e84344cdb..8475905690 100644
--- a/engines/director/lingo/lingo.h
+++ b/engines/director/lingo/lingo.h
@@ -314,7 +314,7 @@ public:
static void c_open();
- void printSTUBWithArglist(const char *funcname, int nargs);
+ void printSTUBWithArglist(const char *funcname, int nargs, const char *prefix = "STUB:");
void convertVOIDtoString(int arg, int nargs);
void dropStack(int nargs);
void drop(uint num);