equal
deleted
inserted
replaced
224 TextureList:= nil; |
224 TextureList:= nil; |
225 end; |
225 end; |
226 |
226 |
227 procedure freeModule; |
227 procedure freeModule; |
228 begin |
228 begin |
229 while TextureList <> nil do FreeTexture(TextureList); |
229 if TextureList <> nil then AddFileLog('FIXME FIXME FIXME. App shutdown without full cleanup of texture list.'); |
|
230 while TextureList <> nil do |
|
231 begin |
|
232 AddFileLog('Texture not freed: width='+inttostr(LongInt(TextureList^.w))+' height='+inttostr(LongInt(TextureList^.h))+' priority='+inttostr(round(TextureList^.priority*1000))); |
|
233 FreeTexture(TextureList); |
|
234 end |
230 end; |
235 end; |
231 |
236 |
232 end. |
237 end. |