"--log" cli arg; fixed bug with console output (endless loop)

[d2df-sdl.git] / src / game / Doom2DF.dpr

diff --git a/src/game/Doom2DF.dpr b/src/game/Doom2DF.dpr
index a9044fb9d614cff917282b7baa15a337246458a7..3fbd82967e4ab008d93e2f75585f3aad9b4ddc49 100644 (file)
--- a/src/game/Doom2DF.dpr
+++ b/src/game/Doom2DF.dpr
@@ -117,7 +117,11 @@ var
   f: Integer;
   noct: Boolean = false;
 begin
-  for f := 1 to ParamCount do if ParamStr(f) = '--gdb' then noct := true;
+  for f := 1 to ParamCount do
+  begin
+         if ParamStr(f) = '--gdb' then noct := true
+    else if ParamStr(f) = '--log' then conbufDumpToStdOut := true;
+  end;
   if noct then
     Main()
   else