diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-08 12:10:55 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-08 12:10:55 +0000 |
commit | 3096103682304690d58970e41e1832d3acc34c0f (patch) | |
tree | 0dc5e3c62db0449509daa5734eaa7d42d1a2fb43 /Game/Code/Classes/UMain.pas | |
parent | f6622f87d45686ab6ab740d1d7fdbf4394a28932 (diff) | |
download | usdx-3096103682304690d58970e41e1832d3acc34c0f.tar.gz usdx-3096103682304690d58970e41e1832d3acc34c0f.tar.xz usdx-3096103682304690d58970e41e1832d3acc34c0f.zip |
warnings suppressed
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1235 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Classes/UMain.pas')
-rw-r--r-- | Game/Code/Classes/UMain.pas | 4 |
1 files changed, 3 insertions, 1 deletions
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 ); |