push 29

CryptoLib/src/Math/Raw/ClpMod.pas

@@ -127,6 +127,18 @@ begin
     count := count + zeroes;
   end;
 
+
+      raise Exception.Create(
+
+    u[0].ToString + ' DADA ' +
+    u[1].ToString + ' DADA ' +
+    u[2].ToString + ' DADA ' +
+    u[3].ToString + ' DADA ' +
+    u[4].ToString + ' DADA ' +
+    u[5].ToString + ' DADA ' +
+    u[6].ToString + ' DADA ' +
+    u[7].ToString + ' DADA ');
+
   i := 0;
   while i < count do
   begin
@@ -179,36 +191,6 @@ begin
     InversionStep(p, u, len, a, ac);
   end;
 
-      raise Exception.Create(
-
-    p[0].ToString + ' DADA ' +
-    p[1].ToString + ' DADA ' +
-    p[2].ToString + ' DADA ' +
-    p[3].ToString + ' DADA ' +
-    p[4].ToString + ' DADA ' +
-    p[5].ToString + ' DADA ' +
-    p[6].ToString + ' DADA ' +
-    p[7].ToString + ' DADA ' +
-
-    u[0].ToString + ' DADA ' +
-    u[1].ToString + ' DADA ' +
-    u[2].ToString + ' DADA ' +
-    u[3].ToString + ' DADA ' +
-    u[4].ToString + ' DADA ' +
-    u[5].ToString + ' DADA ' +
-    u[6].ToString + ' DADA ' +
-    u[7].ToString + ' DADA ' +
-
-    a[0].ToString + ' DADA ' +
-    a[1].ToString + ' DADA ' +
-    a[2].ToString + ' DADA ' +
-    a[3].ToString + ' DADA ' +
-    a[4].ToString + ' DADA ' +
-    a[5].ToString + ' DADA ' +
-    a[6].ToString + ' DADA ' +
-    a[7].ToString + ' DADA ' +
-
-    ac.ToString + ' DADA ');
 
   if (TNat.IsOne(len, u)) then
   begin