aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-10-20 21:46:57 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-10-20 21:46:57 +0000
commitbb859133a8813b651a4c352d6dd7c86e9cdccec4 (patch)
tree46c24caafc5b8020f1004d6725eb20eee929f302
parentf4e9ef3a2f98b9f9d0cfc18ed81e5b4b1de0fd12 (diff)
downloadusdx-bb859133a8813b651a4c352d6dd7c86e9cdccec4.tar.gz
usdx-bb859133a8813b651a4c352d6dd7c86e9cdccec4.tar.xz
usdx-bb859133a8813b651a4c352d6dd7c86e9cdccec4.zip
Do not use Main try-except block if in debug mode to make debugging easier
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1465 b956fd51-792f-4845-bead-9b4dfca2ff2c
-rw-r--r--src/base/UMain.pas8
1 files changed, 7 insertions, 1 deletions
diff --git a/src/base/UMain.pas b/src/base/UMain.pas
index f9ac4ebe..6e6d2ad7 100644
--- a/src/base/UMain.pas
+++ b/src/base/UMain.pas
@@ -171,14 +171,16 @@ procedure Main;
var
WndTitle: string;
begin
+ {$IFNDEF Debug}
try
+ {$ENDIF}
WndTitle := USDXVersionStr;
Platform.Init;
if Platform.TerminateIfAlreadyRunning(WndTitle) then
Exit;
-
+
// fix floating-point exceptions (FPE)
DisableFloatingPointExceptions();
// fix the locale for string-to-float parsing in C-libs
@@ -380,7 +382,9 @@ begin
Log.LogStatus('Main Loop', 'Initialization');
MainLoop;
+ {$IFNDEF Debug}
finally
+ {$ENDIF}
//------------------------------
//Finish Application
//------------------------------
@@ -399,7 +403,9 @@ begin
Log.LogStatus('Main Loop', 'Finished');
Log.Free;
end;
+ {$IFNDEF Debug}
end;
+ {$ENDIF}
end;
procedure MainLoop;