hedgewars/uUtils.pas
changeset 13317 092adcf707c5
parent 13094 c9cdbf630447
child 13826 94d0d1ab7a0e
equal deleted inserted replaced
13316:574d34577ee9 13317:092adcf707c5
   749 end;
   749 end;
   750 
   750 
   751 procedure freeModule;
   751 procedure freeModule;
   752 begin
   752 begin
   753 {$IFDEF DEBUGFILE}
   753 {$IFDEF DEBUGFILE}
       
   754 if logFile <> nil then
       
   755     begin
   754     pfsWriteLn(logFile, 'halt at ' + inttostr(GameTicks) + ' ticks. TurnTimeLeft = ' + inttostr(TurnTimeLeft));
   756     pfsWriteLn(logFile, 'halt at ' + inttostr(GameTicks) + ' ticks. TurnTimeLeft = ' + inttostr(TurnTimeLeft));
   755     pfsFlush(logFile);
   757     pfsFlush(logFile);
   756     pfsClose(logFile);
   758     pfsClose(logFile);
       
   759     end
       
   760 else
       
   761     WriteLn(stdout, 'halt at ' + inttostr(GameTicks) + ' ticks. TurnTimeLeft = ' + inttostr(TurnTimeLeft));
   757 {$IFDEF USE_VIDEO_RECORDING}
   762 {$IFDEF USE_VIDEO_RECORDING}
   758     DoneCriticalSection(logMutex);
   763     DoneCriticalSection(logMutex);
   759 {$ENDIF}
   764 {$ENDIF}
   760 {$ENDIF}
   765 {$ENDIF}
   761 end;
   766 end;