push 7

CryptoLib/src/Math/EC/Multiplier/ClpFixedPointCombMultiplier.pas

@@ -29,8 +29,7 @@ uses
   ClpFixedPointUtilities,
   ClpIFixedPointPreCompInfo,
   ClpAbstractECMultiplier,
-  ClpIFixedPointCombMultiplier,
-  SySUtils;
+  ClpIFixedPointCombMultiplier;
 
 resourcestring
   SInvalidComputation =
@@ -113,11 +112,6 @@ begin
 
   top := fullComb - 1;
 
-  raise Exception.Create(IntToStr(size) + ' DABA ' + IntToStr(width) + ' DABA '
-    + IntToStr(d) + ' DABA ' + R.ToString + ' DABA ' + IntToStr(fullComb) +
-    ' DABA ' + IntToStr(top) + ' DABA ' + p.ToString + ' DABA ' +
-    info.Offset.ToString);
-
   for i := 0 to System.Pred(d) do
   begin
 

CryptoLib/src/Math/EC/Multiplier/ClpFixedPointUtilities.pas

@@ -101,6 +101,8 @@ begin
   n := 1 shl minWidth;
   info := GetFixedPointPreCompInfo(c.GetPreCompInfo(p, PRECOMP_NAME));
 
+  raise Exception.Create(IntToStr(minWidth) + ' DABA ' + IntToStr(n));
+
   lookupTable := info.PreComp;
 
   if ((lookupTable = Nil) or (System.Length(lookupTable) < n)) then