push 4

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

@@ -25,8 +25,7 @@ uses
   ClpBigInteger,
   ClpIECInterface,
   ClpIAbstractECMultiplier,
-  ClpECAlgorithms,
-  SysUtils;
+  ClpECAlgorithms;
 
 type
   TAbstractECMultiplier = class abstract(TInterfacedObject,
@@ -75,9 +74,6 @@ begin
 
   positive := MultiplyPositive(p, k.Abs());
 
-  raise Exception.Create(p.ToString + ' DABA ' + k.Abs().ToString + ' DABA ' +
-    positive.ToString);
-
   if sign > 0 then
   begin
     Result := positive

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

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