diff options
Diffstat (limited to 'rtl/inc/ustrings.inc')
| -rw-r--r-- | rtl/inc/ustrings.inc | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/rtl/inc/ustrings.inc b/rtl/inc/ustrings.inc index 908920de4f..45162e0b60 100644 --- a/rtl/inc/ustrings.inc +++ b/rtl/inc/ustrings.inc @@ -1557,6 +1557,28 @@ end; {$endif CPU64} +{$if defined(CPU16) or defined(CPU8)} + +Procedure fpc_UnicodeStr_LongInt(v : LongInt; Len : SizeInt; out S : UnicodeString);compilerproc; +Var + SS: ShortString; +begin + Str (v:Len,SS); + S:=UnicodeString(SS); +end; + + +Procedure fpc_UnicodeStr_LongWord(v : LongWord;Len : SizeInt; out S : UnicodeString);compilerproc; +Var + SS: ShortString; +begin + str(v:Len,SS); + S:=UnicodeString(SS); +end; + +{$endif CPU16 or CPU8} + + function UnicodeToUtf8(Dest: PChar; Source: PUnicodeChar; MaxBytes: SizeInt): SizeInt;{$ifdef SYSTEMINLINE}inline;{$endif} begin if assigned(Source) then |