Fix check for darwin or win32. Add debug message.
authorunc0rr
Wed, 31 Aug 2011 13:47:48 +0400
changeset 5712 08944be1d679
parent 5710 0fec06ac8776
child 5714 efd8b227cc71
Fix check for darwin or win32. Add debug message.
hedgewars/uStore.pas
--- a/hedgewars/uStore.pas	Wed Aug 31 01:32:12 2011 -0400
+++ b/hedgewars/uStore.pas	Wed Aug 31 13:47:48 2011 +0400
@@ -259,7 +259,7 @@
     tmpsurf: PSDL_Surface;
     i: LongInt;
 begin
-
+AddFileLog('StoreLoad()');
 for fi:= Low(THWFont) to High(THWFont) do
     with Fontz[fi] do
         begin
@@ -948,7 +948,6 @@
     reinit: boolean;
     {$IFDEF SDL13}x, y: LongInt;{$ENDIF}
 begin
-    s:= s; // avoid compiler hint
     if Length(s) = 0 then cFullScreen:= not cFullScreen
     else cFullScreen:= s = '1';
 
@@ -981,7 +980,7 @@
         end
     else
         begin
-{$IFDEF DARWIN | WIN32}
+{$IF DEFINED(DARWIN) OR DEFINED(WIN32)}
         reinit:= true;
 {$ENDIF}
         AddFileLog('Freeing old primary surface...');