* [BigNumber] Fix a Lucas Calculation Problem.

cnpack · Sep 28, 2018 · 0a6b458 · 0a6b458
1 parent 5236054
commit 0a6b458
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/Examples/ECC/UnitEcc.dfm b/Examples/ECC/UnitEcc.dfm
@@ -1238,6 +1238,8 @@ object FormEcc: TFormEcc
           Width = 49
           Height = 17
           Caption = 'Mod'
+          Checked = True
+          State = cbChecked
           TabOrder = 7
         end
         object btnBNLucasMod: TButton

diff --git a/Source/Common/CnBigNumber.pas b/Source/Common/CnBigNumber.pas
@@ -4287,7 +4287,7 @@ function BigNumberLucasSequenceMod(X, Y, K, N: TCnBigNumber; Q, V: TCnBigNumber)
 
     C2.SetWord(2);
     V0.SetWord(2);
-    BigNumberCopy(V0, X);
+    BigNumberCopy(V1, X);
     Q0.SetOne;
     Q1.SetOne;