diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-07-17 16:46:58 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-07-17 16:46:58 +0000 |
commit | 329e2b8eabd0f4ecb6e6a9bdc66d595c988d399a (patch) | |
tree | 0edc4be7cae34b876bc7cc2104c5d49f96b28c8a /Game/Code/Classes/UMain.pas | |
parent | 9a393bf11f43ba649fa28c17408ea91c43c97a93 (diff) | |
download | usdx-329e2b8eabd0f4ecb6e6a9bdc66d595c988d399a.tar.gz usdx-329e2b8eabd0f4ecb6e6a9bdc66d595c988d399a.tar.xz usdx-329e2b8eabd0f4ecb6e6a9bdc66d595c988d399a.zip |
- UPlatformXYZ.pas clean-up
- TPlatform now implements common behaviour
- added TPlatform.Init()
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1207 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r-- | Game/Code/Classes/UMain.pas | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Game/Code/Classes/UMain.pas b/Game/Code/Classes/UMain.pas index a0bdbb94..768917ca 100644 --- a/Game/Code/Classes/UMain.pas +++ b/Game/Code/Classes/UMain.pas @@ -152,13 +152,12 @@ procedure Main; var WndTitle: string; begin -{$IFDEF DARWIN} - UMacResources.init; -{$ENDIF} try WndTitle := USDXVersionStr; - if Platform.TerminateIfAlreadyRunning( {var} WndTitle) then + Platform.Init; + + if Platform.TerminateIfAlreadyRunning(WndTitle) then Exit; // fix floating-point exceptions (FPE) |