Browse Source

locale fixes.

* locale fixes
* bumped version number
Ugochukwu Mmaduekwe 7 years ago
parent
commit
59360c3d60

+ 1 - 0
CryptoLib/src/Asn1/ClpDerObjectIdentifier.pas

@@ -204,6 +204,7 @@ begin
   stemId := stem.ID;
   result := (System.Length(LocalId) > System.Length(stemId)) and
     (LocalId[System.Length(stemId) + 1] = '.') and
+  // should use "StartsStr" here but it seems that is missing in Lazarus/FPC RTL
     (AnsiStartsStr(stemId, LocalId));
 end;
 

+ 1 - 1
CryptoLib/src/Asn1/ClpDerPrintableString.pas

@@ -166,7 +166,7 @@ begin
       continue;
     end;
 
-    case AnsiIndexStr(ch, [''' ''', '\', '(', ')', '+', '-', '.', ':', '=', '?',
+    case IndexStr(ch, [''' ''', '\', '(', ')', '+', '-', '.', ':', '=', '?',
       '/', ',']) of
       0 .. 11:
         begin

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

@@ -4315,7 +4315,7 @@ begin
 
     end;
 
-    Result := AnsiLowerCase(sl.Text);
+    Result := LowerCase(sl.Text);
 
   finally
     sl.Free;

+ 1 - 1
CryptoLib/src/Packages/FPC/CryptoLib4PascalPackage.lpk

@@ -24,7 +24,7 @@
 
  Acknowledgements: 
 Thanks to Sphere 10 Software (http://sphere10.com) for sponsoring the development of this library "/>
-    <Version Major="1" Minor="4"/>
+    <Version Major="1" Minor="5"/>
     <Files Count="281">
       <Item1>
         <Filename Value="..\..\Asn1\ClpAsn1Encodable.pas"/>

+ 2 - 2
CryptoLib/src/Utils/Rng/ClpRandomNumberGenerator.pas

@@ -62,11 +62,11 @@ end;
 class function TRandomNumberGenerator.CreateRNG(const rngName: String)
   : IRandomNumberGenerator;
 begin
-  if AnsiCompareText(rngName, 'OSRandomNumberGenerator') = 0 then
+  if CompareText(rngName, 'OSRandomNumberGenerator') = 0 then
   begin
     result := TOSRandomNumberGenerator.Create();
   end
-  else if AnsiCompareText(rngName, 'PCGRandomNumberGenerator') = 0 then
+  else if CompareText(rngName, 'PCGRandomNumberGenerator') = 0 then
   begin
     result := TPCGRandomNumberGenerator.Create();
   end