DebugWriteln change to Log.LogError + minor format adjustments.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1280 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 4 insertions, 3 deletions

diff --git a/Game/Code/Classes/UPlatformMacOSX.pas b/Game/Code/Classes/UPlatformMacOSX.pas
index a774186f..68acae25 100644
--- a/Game/Code/Classes/UPlatformMacOSX.pas
+++ b/Game/Code/Classes/UPlatformMacOSX.pas
@@ -10,6 +10,7 @@ interface
 
 uses
   Classes,
+  ULog,
   UPlatform;
 
 type
@@ -193,16 +194,16 @@ begin
       until (FindNext(SearchInfo) <> 0);
     end;
     FindClose(SearchInfo);
-    DirectoryIsFinished := succ(DirectoryIsFinished);
+    inc(DirectoryIsFinished);
   until (DirectoryIsFinished = DirectoryList.Count);
 
   // create missing folders
   if not ForceDirectories(UserPathName) then
-    DebugWriteln('Error: Failed to create the folder: ', UserPathName);
+    Log.LogError('Error: Failed to create the folder: ', UserPathName);
 
   for counter := 0 to DirectoryList.Count-1 do
     if not ForceDirectories(UserPathName + '/' + DirectoryList[counter]) then
-      DebugWriteln('Error: Failed to create the folder: ', UserPathName + '/' + DirectoryList[counter]);
+      Log.LogError('Error: Failed to create the folder: ', UserPathName + '/' + DirectoryList[counter]);
   DirectoryList.Free();
 
   // copy missing files