Browse Source

minor warning fix.

Ugochukwu Mmaduekwe 7 years ago
parent
commit
6c69e41215
1 changed files with 4 additions and 0 deletions
  1. 4 0
      CryptoLib/src/Utils/ClpConverters.pas

+ 4 - 0
CryptoLib/src/Utils/ClpConverters.pas

@@ -478,7 +478,11 @@ begin
     raise EArgumentNilCryptoLibException.CreateRes(@SEncodingInstanceNil);
   end;
 
+{$IFDEF FPC}
+  result := a_encoding.GetBytes(UnicodeString(a_in));
+{$ELSE}
   result := a_encoding.GetBytes(a_in);
+{$ENDIF FPC}
 end;
 
 class function TConverters.SplitString(const S: String; Delimiter: Char)