--- a/hedgewars/uLand.pas Fri Jun 12 08:50:20 2009 +0000
+++ b/hedgewars/uLand.pas Fri Jun 12 08:52:31 2009 +0000
@@ -57,7 +57,7 @@
s: shortstring;
begin
SHA1Init(ctx);
-SHA1Update(ctx, @Land, sizeof(Land));
+SHA1UpdateLongwords(ctx, @Land, sizeof(Land) div 4);
dig:= SHA1Final(ctx);
s:='M{'+inttostr(dig[0])+':'
+inttostr(dig[1])+':'
@@ -77,11 +77,7 @@
if digest = '' then
digest:= s
else
-{$IFDEF IPHONEOS}
- //TryDo(s = digest, 'Different maps generated, sorry', false) FIXME - digest calc needs endian handling
-{$ELSE}
TryDo(s = digest, 'Different maps generated, sorry', true)
-{$ENDIF}
end;
procedure DrawLine(X1, Y1, X2, Y2: LongInt; Color: Longword);