@@ -731,6 +731,9 @@ begin
end;
System.Dec(i);
+ raise Exception.Create(c[0].ToString + ' DABA ' + c[1].ToString + ' DABA ' +
+ c[2].ToString + ' DABA ' + c[3].ToString + ' DABA ' + c[4].ToString);
+
if (scale <> Nil) then
begin
c[i] := c[i].Multiply(scale);
@@ -1061,9 +1061,6 @@ begin
TECAlgorithms.MontgomeryTrick(zs, 0, count, iso);
- raise Exception.Create(zs[0].ToString + ' DABA ' + zs[1].ToString + ' DABA ' +
- zs[2].ToString + ' DABA ' + zs[3].ToString + ' DABA ' + zs[4].ToString);
-
for j := 0 to System.Pred(count) do