hedgewars/uStore.pas
changeset 12764 df9d9d19406a
parent 12763 49c31d8cc740
child 12770 d01e9dd5c439
equal deleted inserted replaced
12763:49c31d8cc740 12764: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)