From ad4c54706eaab157d975f832aecc836adbef827c Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 3 May 2008 12:14:10 +0000
Subject: - fixed recursive calling of TPlatform.Halt. - removed oldlinux stuff

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1059 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UPlatformMacOSX.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/Game/Code/Classes/UPlatformMacOSX.pas b/Game/Code/Classes/UPlatformMacOSX.pas
index 7b081607..789fc816 100644
--- a/Game/Code/Classes/UPlatformMacOSX.pas
+++ b/Game/Code/Classes/UPlatformMacOSX.pas
@@ -29,7 +29,7 @@ type
   public
     Function  DirectoryFindFiles(Dir, Filter : WideString; ReturnAllSubDirs : Boolean) : TDirectoryEntryArray; 
     function  TerminateIfAlreadyRunning(var WndTitle : String) : Boolean;
-    procedure halt();
+    procedure Halt();
     function  GetLogPath        : WideString; 
     function  GetGameSharedPath : WideString; 
     function  GetGameUserPath   : WideString; 
@@ -122,9 +122,9 @@ begin
 end;
 
 
-procedure TPlatformMacOSX.halt;
+procedure TPlatformMacOSX.Halt;
 begin
-  halt;
+  System.Halt;
 end;
 
 function TPlatformMacOSX.FindSongFile(Dir, Mask: widestring): widestring;
-- 
cgit v1.2.3