consistency fix.

CryptoLib/src/Interfaces/ClpIECInterface.pas

@@ -190,7 +190,7 @@ type
       bSquared: IECFieldElement): IECFieldElement;
 
     function CalculateJacobianModifiedW(const Z: IECFieldElement;
-      ZSquared: IECFieldElement): IECFieldElement;
+     const ZSquared: IECFieldElement): IECFieldElement;
 
     function GetJacobianModifiedW(): IECFieldElement;
 

CryptoLib/src/Math/EC/ClpECAlgorithms.pas

@@ -87,7 +87,7 @@ type
     // * 9: return R
     // */
     class function ShamirsTrick(const P: IECPoint; const k: TBigInteger;
-      Q: IECPoint; const l: TBigInteger): IECPoint; static;
+      const Q: IECPoint; const l: TBigInteger): IECPoint; static;
 
     class function ImportPoint(const c: IECCurve; const P: IECPoint)
       : IECPoint; static;
@@ -837,14 +837,16 @@ begin
 end;
 
 class function TECAlgorithms.ShamirsTrick(const P: IECPoint;
-  const k: TBigInteger; Q: IECPoint; const l: TBigInteger): IECPoint;
+  const k: TBigInteger; const Q: IECPoint; const l: TBigInteger): IECPoint;
 var
   cp: IECCurve;
+  LQ: IECPoint;
 begin
   cp := P.Curve;
-  Q := ImportPoint(cp, Q);
+  LQ := Q;
+  LQ := ImportPoint(cp, LQ);
 
-  result := ImplCheckResult(ImplShamirsTrickJsf(P, k, Q, l));
+  result := ImplCheckResult(ImplShamirsTrickJsf(P, k, LQ, l));
 end;
 
 class function TECAlgorithms.SumOfMultiplies

CryptoLib/src/Math/EC/ClpECPoint.pas

@@ -327,7 +327,7 @@ type
       bSquared: IECFieldElement): IECFieldElement; virtual;
 
     function CalculateJacobianModifiedW(const Z: IECFieldElement;
-      ZSquared: IECFieldElement): IECFieldElement; virtual;
+      const ZSquared: IECFieldElement): IECFieldElement; virtual;
 
     function GetJacobianModifiedW(): IECFieldElement; virtual;
 
@@ -2182,23 +2182,24 @@ begin
 end;
 
 function TFpPoint.CalculateJacobianModifiedW(const Z: IECFieldElement;
-  ZSquared: IECFieldElement): IECFieldElement;
+  const ZSquared: IECFieldElement): IECFieldElement;
 var
-  a4, W, a4Neg: IECFieldElement;
+  a4, W, a4Neg, LZSquared: IECFieldElement;
 begin
   a4 := curve.a;
+  LZSquared := ZSquared;
   if ((a4.IsZero) or (Z.IsOne)) then
   begin
     result := a4;
     Exit;
   end;
 
-  if (ZSquared = Nil) then
+  if (LZSquared = Nil) then
   begin
-    ZSquared := Z.Square();
+    LZSquared := Z.Square();
   end;
 
-  W := ZSquared.Square();
+  W := LZSquared.Square();
   a4Neg := a4.Negate();
   if (a4Neg.BitLength < a4.BitLength) then
   begin