diff -r 0e4e0db79e2a -r b9ca1bfca24f hedgewars/uMisc.pas --- a/hedgewars/uMisc.pas Tue Jan 26 04:13:37 2010 +0000 +++ b/hedgewars/uMisc.pas Tue Jan 26 21:55:51 2010 +0000 @@ -581,7 +581,7 @@ cGravity := cMaxWindSpeed; cDamageModifier := _1; TargetPoint := cTargetPointRef; - TextureList := nil; + TextureList := nil; // int, longint longword and byte CursorMovementX := 0; @@ -681,7 +681,6 @@ if IOResult = 0 then break; end; {$ENDIF} - {$I+} {$ENDIF} @@ -689,13 +688,13 @@ procedure free_uMisc; begin -while TextureList <> nil do FreeTexture(TextureList); -//uRandom.DumpBuffer; + //uRandom.DumpBuffer; + while TextureList <> nil do FreeTexture(TextureList); {$IFDEF DEBUGFILE} -writeln(f, 'halt at ', GameTicks, ' ticks. TurnTimeLeft = ', TurnTimeLeft); -flush(f); -close(f); + writeln(f, 'halt at ', GameTicks, ' ticks. TurnTimeLeft = ', TurnTimeLeft); + flush(f); + close(f); {$ENDIF} end;