DEADSOFTWARE

compiler hint fix
authorKetmar Dark <ketmar@ketmar.no-ip.org>
Tue, 12 Sep 2017 20:48:50 +0000 (23:48 +0300)
committerKetmar Dark <ketmar@ketmar.no-ip.org>
Tue, 12 Sep 2017 21:17:05 +0000 (00:17 +0300)
src/game/g_saveload.pas

index 4391bf51b1bda3f9b76d5b02beb706ddf46c4a05..dec46f1ec720c21b68354583873296986d5f161a 100644 (file)
@@ -294,7 +294,9 @@ var
   i: Integer;
   gameCleared: Boolean = false;
   curmapfile: AnsiString = '';
+  {$IF DEFINED(D2F_DEBUG)}
   errpos: LongWord = 0;
+  {$ENDIF}
 begin
   result := false;
 
@@ -306,7 +308,7 @@ begin
 
       e_WriteLog('Loading saved game...', MSG_NOTIFY);
 
-      try
+      {$IF DEFINED(D2F_DEBUG)}try{$ENDIF}
         //g_Game_Free(false); // don't free textures for the same map
         g_Game_ClearLoading();
         g_Game_SetLoadingText(_lc[I_LOAD_SAVE_FILE], 0, False);
@@ -476,12 +478,14 @@ begin
         // done
         gLoadGameMode := false;
         result := true;
+      {$IF DEFINED(D2F_DEBUG)}
       except
         begin
           errpos := LongWord(st.position);
           raise;
         end;
       end;
+      {$ENDIF}
     finally
       st.Free();
     end;