hedgewars/uLand.pas
branchsdl2transition
changeset 9682 aa2431ed87b2
parent 9524 0a52c1dd9400
child 11362 ed5a6478e710
--- a/hedgewars/uLand.pas	Tue Nov 05 23:33:23 2013 +0100
+++ b/hedgewars/uLand.pas	Thu Nov 07 21:06:30 2013 +0400
@@ -398,7 +398,7 @@
 TryDo(Surface <> nil, 'Assert (LandSurface <> nil) failed', true);
 
 if SDL_MustLock(Surface) then
-    SDLTry(SDL_LockSurface(Surface) >= 0, true);
+    SDLTry(SDL_LockSurface(Surface) >= 0, 'SDL_LockSurface', true);
 
 p:= Surface^.pixels;
 for y:= 0 to LAND_HEIGHT - 1 do
@@ -578,7 +578,7 @@
     cpX:= (LAND_WIDTH - tmpsurf^.w) div 2;
     cpY:= LAND_HEIGHT - tmpsurf^.h;
     if SDL_MustLock(tmpsurf) then
-        SDLTry(SDL_LockSurface(tmpsurf) >= 0, true);
+        SDLTry(SDL_LockSurface(tmpsurf) >= 0, 'SDL_LockSurface', true);
 
         p:= tmpsurf^.pixels;
         for y:= 0 to Pred(tmpsurf^.h) do