DIRECTOR: Put parsing lingo debug ouptu to separate debug flag

scummvm · Feb 21, 2017 · 534157f · 534157f
1 parent 3873730
commit 534157f
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 3 deletions.
diff --git a/engines/director/director.cpp b/engines/director/director.cpp
@@ -42,6 +42,7 @@ DirectorEngine::DirectorEngine(OSystem *syst, const DirectorGameDescription *gam
 		_rnd("director") {
 	DebugMan.addDebugChannel(kDebugLingoExec, "lingoexec", "Lingo Execution");
 	DebugMan.addDebugChannel(kDebugLingoCompile, "lingocompile", "Lingo Compilation");
+	DebugMan.addDebugChannel(kDebugLingoParse, "lingoparse", "Lingo code parsing");
 	DebugMan.addDebugChannel(kDebugLoading, "loading", "Loading");
 	DebugMan.addDebugChannel(kDebugImages, "images", "Image drawing");
 	DebugMan.addDebugChannel(kDebugText, "text", "Text rendering");

diff --git a/engines/director/director.h b/engines/director/director.h
@@ -58,7 +58,8 @@ enum {
 	kDebugLoading		= 1 << 2,
 	kDebugImages		= 1 << 3,
 	kDebugText			= 1 << 4,
-	kDebugEvents		= 1 << 5
+	kDebugEvents		= 1 << 5,
+	kDebugLingoParse	= 1 << 6
 };
 
 extern byte defaultPalette[768];

diff --git a/engines/director/lingo/lingo-lex.cpp b/engines/director/lingo/lingo-lex.cpp
@@ -2549,7 +2549,7 @@ namespace Director {
 int Lingo::parse(const char *code) {
 	YY_BUFFER_STATE bp;
 
-	if (debugChannelSet(-1, kDebugLingoCompile))
+	if (debugChannelSet(-1, kDebugLingoParse))
 		yydebug = 1;
 	else
 		yydebug = 0;

diff --git a/engines/director/lingo/lingo-lex.l b/engines/director/lingo/lingo-lex.l
@@ -325,7 +325,7 @@ namespace Director {
 int Lingo::parse(const char *code) {
 	YY_BUFFER_STATE bp;
 
-	if (debugChannelSet(-1, kDebugLingoCompile))
+	if (debugChannelSet(-1, kDebugLingoParse))
 		yydebug = 1;
 	else
 		yydebug = 0;