- 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

1 files changed, 3 insertions, 3 deletions

diff --git a/Game/Code/Classes/UPlatformWindows.pas b/Game/Code/Classes/UPlatformWindows.pas
index a0192b57..18cbebcb 100644
--- a/Game/Code/Classes/UPlatformWindows.pas
+++ b/Game/Code/Classes/UPlatformWindows.pas
@@ -20,7 +20,7 @@ type
     function  GetGamePath: WideString;

     function  FindSongFile(Dir, Mask: widestring): widestring;

 

-    procedure halt;

+    procedure Halt;

 

     function GetLogPath        : WideString;

     function GetGameSharedPath : WideString;

@@ -191,9 +191,9 @@ begin
   Result := ExtractFilePath(ParamStr(0));

 end;

 

-procedure TPlatformWindows.halt;

+procedure TPlatformWindows.Halt;

 begin

-  halt(); // Application.terminate does NOT do the same thing..

+  System.Halt; // Application.terminate does NOT do the same thing..

 end;

 

 function TPlatformWindows.GetLogPath        : WideString;