diff options
Diffstat (limited to 'rtl/inc/ustringh.inc')
| -rw-r--r-- | rtl/inc/ustringh.inc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rtl/inc/ustringh.inc b/rtl/inc/ustringh.inc index 5fdf8a4380..c856cd0078 100644 --- a/rtl/inc/ustringh.inc +++ b/rtl/inc/ustringh.inc @@ -30,8 +30,8 @@ Function LowerCase(c:UnicodeChar):UnicodeChar; Procedure Insert (Const Source : UnicodeString; Var S : UnicodeString; Index : SizeInt); Procedure Delete (Var S : UnicodeString; Index,Size: SizeInt); -Procedure SetString (Out S : UnicodeString; Buf : PUnicodeChar; Len : SizeInt); -Procedure SetString (Out S : UnicodeString; Buf : PChar; Len : SizeInt); +Procedure {$ifdef FPC_HAS_CPSTRING}fpc_setstring_unicodestr_pwidechar{$else}SetString{$endif}(Out S : UnicodeString; Buf : PUnicodeChar; Len : SizeInt); {$ifdef FPC_HAS_CPSTRING} compilerproc; {$endif FPC_HAS_CPSTRING} +Procedure {$ifdef FPC_HAS_CPSTRING}fpc_setstring_unicodestr_pansichar{$else}SetString{$endif}(Out S : UnicodeString; Buf : PChar; Len : SizeInt); {$ifdef FPC_HAS_CPSTRING} compilerproc; {$endif FPC_HAS_CPSTRING} function WideCharToString(S : PWideChar) : UnicodeString; function StringToWideChar(const Src : RawByteString;Dest : PWideChar;DestSize : SizeInt) : PWideChar; |