Browse Source

cosmetic fix.

Ugochukwu Mmaduekwe 7 years ago
parent
commit
06d490eccb
1 changed files with 2 additions and 1 deletions
  1. 2 1
      CryptoLib/src/Math/ClpBigInteger.pas

+ 2 - 1
CryptoLib/src/Math/ClpBigInteger.pas

@@ -806,7 +806,9 @@ begin
   while (input <> 0) do
   begin
     if (input and 1) = 1 then
+    begin
       bits[i] := '1'
+    end
     else
     begin
       bits[i] := '0';
@@ -814,7 +816,6 @@ begin
     System.Inc(i);
     input := input shr 1;
   end;
-
   System.SetString(Result, PChar(@bits[0]), i);
 
   Result := ReverseString(Result);