equal
deleted
inserted
replaced
67 procedure LogLandDigest; |
67 procedure LogLandDigest; |
68 var s: shortstring; |
68 var s: shortstring; |
69 adler: LongInt; |
69 adler: LongInt; |
70 begin |
70 begin |
71 adler:= 1; |
71 adler:= 1; |
72 Adler32Update(adler, @Land, sizeof(Land)); |
72 Adler32Update(adler, @Land[0,0], sizeof(Land)); |
73 s:= 'M'+inttostr(adler); |
73 s:= 'M'+inttostr(adler); |
74 |
74 |
75 CheckLandDigest(s); |
75 CheckLandDigest(s); |
76 SendIPCRaw(@s[0], Length(s) + 1) |
76 SendIPCRaw(@s[0], Length(s) + 1) |
77 end; |
77 end; |