hedgewars/uStore.pas
changeset 12759 df9d9d19406a
parent 12758 49c31d8cc740
child 12765 d01e9dd5c439
equal deleted inserted replaced
12758:49c31d8cc740 12759:df9d9d19406a
   471 {$IFDEF USE_CONTEXT_RESTORE}
   471 {$IFDEF USE_CONTEXT_RESTORE}
   472                     Surface:= tmpsurf
   472                     Surface:= tmpsurf
   473 {$ELSE}
   473 {$ELSE}
   474                     if checkSum then
   474                     if checkSum then
   475                         for y := 0 to tmpsurf^.h-1 do
   475                         for y := 0 to tmpsurf^.h-1 do
   476                             syncedPixelDigest:= Adler32Update(syncedPixelDigest, @PByteArray(tmpsurf^.pixels)^[y*tmpsurf^.pitch], tmpsurf^.w);
   476                             syncedPixelDigest:= Adler32Update(syncedPixelDigest, @PByteArray(tmpsurf^.pixels)^[y*tmpsurf^.pitch], tmpsurf^.w*4);
   477 
   477 
   478                     if saveSurf then
   478                     if saveSurf then
   479                         Surface:= tmpsurf
   479                         Surface:= tmpsurf
   480                     else
   480                     else
   481                         SDL_FreeSurface(tmpsurf)
   481                         SDL_FreeSurface(tmpsurf)