hedgewars/uLand.pas
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);