paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 10:09:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

Adapt to change of chr function in commit 47353, to change chr() a real intrinsics

Browse Source 
git-svn-id: trunk@47363 -
This commit is contained in:
pierre 2020-11-09 12:24:27 +00:00
parent c3bafd3a8d
commit a17ad61240
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/java/jsystemh.inc
View File

@ -499,7 +499,9 @@ Function hexStr(Val:Pointer):shortstring;
{$endif CPUI8086}
{ Char functions }
Function chr(b : byte) : Char; [INTERNPROC: fpc_in_chr_byte];
{$if defined(VER3_2) or defined(VER3_0)}
Function Chr(b : byte) : Char; [INTERNPROC: fpc_in_chr_byte];
{$endif defined(VER3_2) or defined(VER3_0)}
Function upCase(c:Char):Char;
Function lowerCase(c:Char):Char; overload;
function pos(const substr : shortstring;c:char; Offset : Sizeint=1): SizeInt;