hedgewars/uStore.pas
changeset 12758 49c31d8cc740
parent 12711 20dbb3a03e61
child 12759 df9d9d19406a
equal deleted inserted replaced
12757:6f4ab0339c16 12758:49c31d8cc740
   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, @PLongWordArray(tmpsurf^.pixels)^[y*tmpsurf^.w], tmpsurf^.w);
   476                             syncedPixelDigest:= Adler32Update(syncedPixelDigest, @PByteArray(tmpsurf^.pixels)^[y*tmpsurf^.pitch], tmpsurf^.w);
   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)