free gear textures to avoid log warnings
authoralfadur
Wed, 15 May 2019 18:43:42 +0300
changeset 14961 225839af5272
parent 14960 088c1d319612
child 14963 364b67d48279
free gear textures to avoid log warnings
hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Wed May 15 14:12:15 2019 +0300
+++ b/hedgewars/uGears.pas	Wed May 15 18:43:42 2019 +0300
@@ -729,6 +729,7 @@
     GearsList:= nil;
     while tt <> nil do
     begin
+        FreeAndNilTexture(tt^.Tex);
         t:= tt;
         tt:= tt^.NextGear;
         Dispose(t)