DIRECTOR: Lingo: More debug output to call() method

scummvm · Mar 8, 2017 · ff7cff7 · ff7cff7
1 parent 0a044b2
commit ff7cff7
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 3 deletions.
diff --git 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
@@ -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
@@ -314,7 +314,7 @@ class Lingo {
 
 	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);