changeset 57 | e1a77ae57065 |
parent 54 | 839fd258ae6f |
child 64 | 9df467527ae5 |
--- a/hedgewars/uLand.pas Wed Jan 25 19:45:39 2006 +0000 +++ b/hedgewars/uLand.pas Wed Feb 01 20:42:53 2006 +0000 @@ -65,9 +65,11 @@ SHA1Init(ctx); SHA1Update(ctx, @Land, sizeof(Land)); dig:= SHA1Final(ctx); +{$IFDEF DEBUGFILE} AddFileLog('SHA1 Land digest: {'+inttostr(dig.LongWords[0])+':' +inttostr(dig.LongWords[1])+':'+inttostr(dig.LongWords[2])+':' +inttostr(dig.LongWords[3])+':'+inttostr(dig.LongWords[4])+'}'); +{$ENDIF} end; procedure DrawBezierEdge(var pa: TPixAr);