From 329e2b8eabd0f4ecb6e6a9bdc66d595c988d399a Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 17 Jul 2008 16:46:58 +0000
Subject: - 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
---
 Game/Code/Classes/UMain.pas | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'Game/Code/Classes/UMain.pas')

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)
-- 
cgit v1.2.3