hedgewars/uTextures.pas
changeset 8027 e5ba3dd12531
parent 7151 ec15d9e1a7e3
child 9080 9b42757d7e71
equal deleted inserted replaced
8024:1d5baba66cb6 8027:e5ba3dd12531
   124 function Surface2Tex(surf: PSDL_Surface; enableClamp: boolean): PTexture;
   124 function Surface2Tex(surf: PSDL_Surface; enableClamp: boolean): PTexture;
   125 var tw, th, x, y: Longword;
   125 var tw, th, x, y: Longword;
   126     tmpp: pointer;
   126     tmpp: pointer;
   127     fromP4, toP4: PLongWordArray;
   127     fromP4, toP4: PLongWordArray;
   128 begin
   128 begin
       
   129 if cOnlyStats then exit(nil);
   129 new(Surface2Tex);
   130 new(Surface2Tex);
   130 Surface2Tex^.PrevTexture:= nil;
   131 Surface2Tex^.PrevTexture:= nil;
   131 Surface2Tex^.NextTexture:= nil;
   132 Surface2Tex^.NextTexture:= nil;
   132 if TextureList <> nil then
   133 if TextureList <> nil then
   133     begin
   134     begin