From 3096103682304690d58970e41e1832d3acc34c0f Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 8 Aug 2008 12:10:55 +0000
Subject: warnings suppressed

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

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

diff --git a/Game/Code/Classes/UMain.pas b/Game/Code/Classes/UMain.pas
index 7e403b22..135113b5 100644
--- a/Game/Code/Classes/UMain.pas
+++ b/Game/Code/Classes/UMain.pas
@@ -984,6 +984,7 @@ procedure InitializePaths;
 
   // Initialize a path variable
   // After setting paths, make sure that paths exist
+  {$WARN SYMBOL_PLATFORM OFF}
   function initialize_path( out aPathVar : string; const aLocation : string ): boolean;
   var
     lWriteable: Boolean;
@@ -1002,12 +1003,13 @@ procedure InitializePaths;
       lWriteable := (lAttrib and faDirectory <> 0) and
                 not (lAttrib and faReadOnly  <> 0)
     end;
-    
+
     if not lWriteable then
       Log.LogError('Dir ('+ aLocation +') is Readonly', 'initialize_path');
 
     result := lWriteable;
   end;
+  {$WARN SYMBOL_PLATFORM ON}
 
 begin
   initialize_path( LogPath         , Platform.GetLogPath                             );
-- 
cgit v1.2.3