# HG changeset patch # User unc0rr # Date 1210280044 0 # Node ID c8cff180da576396c7bd69591c6ece446ec47462 # Parent e59614bffc3f46b8e631a34bd1c6a5ce887386c8 - Small optimization to hwFloat - More informative debug in rndSign diff -r e59614bffc3f -r c8cff180da57 hedgewars/uRandom.pas --- a/hedgewars/uRandom.pas Thu May 08 20:30:34 2008 +0000 +++ b/hedgewars/uRandom.pas Thu May 08 20:54:04 2008 +0000 @@ -65,12 +65,10 @@ end; function GetRandom: hwFloat; -var r: hwFloat; begin GetNext; -r.isNegative:= false; -r.QWordValue:= GetNext; -GetRandom:= r +GetRandom.isNegative:= false; +GetRandom.QWordValue:= GetNext end; function GetRandom(m: LongWord): LongWord; @@ -82,7 +80,7 @@ function rndSign(num: hwFloat): hwFloat; begin num.isNegative:= odd(GetNext); -if num.isNegative then AddFileLog('isNegative TRUE') else AddFileLog('isNegative FALSE'); +AddFileLog(inttostr(n) +' rnd ' + inttostr(cirbuf[n])); rndSign:= num end;