[Scummvm-git-logs] scummvm master -> 5e00b3cfabb308b2a6756251e68037287277b4b8

[sev-]

This automated email contains information about 1 new commit which have been
pushed to the 'scummvm' repo located at https://github.com/scummvm/scummvm .

Summary:
5e00b3cfab DIRECTOR: Implement 'compileonly' debug flag


Commit: 5e00b3cfabb308b2a6756251e68037287277b4b8
    https://github.com/scummvm/scummvm/commit/5e00b3cfabb308b2a6756251e68037287277b4b8
Author: Eugene Sandulenko (sev at scummvm.org)
Date: 2019-12-07T00:00:26+01:00

Commit Message:
DIRECTOR: Implement 'compileonly' debug flag

Changed paths:
    engines/director/director.cpp
    engines/director/director.h
    engines/director/lingo/lingo.cpp


diff --git a/engines/director/director.cpp b/engines/director/director.cpp
index f2ad5db..389db0f 100644
--- a/engines/director/director.cpp
+++ b/engines/director/director.cpp
@@ -43,6 +43,7 @@ DirectorEngine::DirectorEngine(OSystem *syst, const DirectorGameDescription *gam
 	DebugMan.addDebugChannel(kDebugLingoExec, "lingoexec", "Lingo Execution");
 	DebugMan.addDebugChannel(kDebugLingoCompile, "lingocompile", "Lingo Compilation");
 	DebugMan.addDebugChannel(kDebugLingoParse, "lingoparse", "Lingo code parsing");
+	DebugMan.addDebugChannel(kDebugLingoCompileOnly, "compileonly", "Skip Lingo code execution");
 	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
index e199ff5..26824b4 100644
--- a/engines/director/director.h
+++ b/engines/director/director.h
@@ -56,13 +56,14 @@ class Score;
 class Cast;
 
 enum {
-	kDebugLingoExec		= 1 << 0,
-	kDebugLingoCompile	= 1 << 1,
-	kDebugLoading		= 1 << 2,
-	kDebugImages		= 1 << 3,
-	kDebugText			= 1 << 4,
-	kDebugEvents		= 1 << 5,
-	kDebugLingoParse	= 1 << 6
+	kDebugLingoExec			= 1 << 0,
+	kDebugLingoCompile		= 1 << 1,
+	kDebugLoading			= 1 << 2,
+	kDebugImages			= 1 << 3,
+	kDebugText				= 1 << 4,
+	kDebugEvents			= 1 << 5,
+	kDebugLingoParse		= 1 << 6,
+	kDebugLingoCompileOnly	= 1 << 7
 };
 
 struct MovieReference {
diff --git a/engines/director/lingo/lingo.cpp b/engines/director/lingo/lingo.cpp
index 24cc5fe..8dde6db 100644
--- a/engines/director/lingo/lingo.cpp
+++ b/engines/director/lingo/lingo.cpp
@@ -650,10 +650,12 @@ void Lingo::runTests() {
 			_hadError = false;
 			addCode(script, kMovieScript, counter);
 
-			if (!_hadError)
-				executeScript(kMovieScript, counter, 0);
-			else
-				debug(">> Skipping execution");
+			if (!debugChannelSet(-1, kDebugLingoCompileOnly)) {
+				if (!_hadError)
+					executeScript(kMovieScript, counter, 0);
+				else
+					debug(">> Skipping execution");
+			}
 
 			free(script);