equal
deleted
inserted
replaced
55 var ctx: TSHA1Context; |
55 var ctx: TSHA1Context; |
56 dig: TSHA1Digest; |
56 dig: TSHA1Digest; |
57 s: shortstring; |
57 s: shortstring; |
58 begin |
58 begin |
59 SHA1Init(ctx); |
59 SHA1Init(ctx); |
60 SHA1Update(ctx, @Land, sizeof(Land)); |
60 SHA1UpdateLongwords(ctx, @Land, sizeof(Land) div 4); |
61 dig:= SHA1Final(ctx); |
61 dig:= SHA1Final(ctx); |
62 s:='M{'+inttostr(dig[0])+':' |
62 s:='M{'+inttostr(dig[0])+':' |
63 +inttostr(dig[1])+':' |
63 +inttostr(dig[1])+':' |
64 +inttostr(dig[2])+':' |
64 +inttostr(dig[2])+':' |
65 +inttostr(dig[3])+':' |
65 +inttostr(dig[3])+':' |
75 AddFileLog('CheckLandDigest: ' + s); |
75 AddFileLog('CheckLandDigest: ' + s); |
76 {$ENDIF} |
76 {$ENDIF} |
77 if digest = '' then |
77 if digest = '' then |
78 digest:= s |
78 digest:= s |
79 else |
79 else |
80 {$IFDEF IPHONEOS} |
|
81 //TryDo(s = digest, 'Different maps generated, sorry', false) FIXME - digest calc needs endian handling |
|
82 {$ELSE} |
|
83 TryDo(s = digest, 'Different maps generated, sorry', true) |
80 TryDo(s = digest, 'Different maps generated, sorry', true) |
84 {$ENDIF} |
|
85 end; |
81 end; |
86 |
82 |
87 procedure DrawLine(X1, Y1, X2, Y2: LongInt; Color: Longword); |
83 procedure DrawLine(X1, Y1, X2, Y2: LongInt; Color: Longword); |
88 var |
84 var |
89 eX, eY, dX, dY: LongInt; |
85 eX, eY, dX, dY: LongInt; |