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

* make sure things still build with 3.0 after r47353

Browse Source 
git-svn-id: trunk@47359 -
This commit is contained in:
Károly Balogh 2020-11-09 00:24:29 +00:00
parent e0555c307f
commit 05d680902e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/systemh.inc
View File

@ -1293,9 +1293,9 @@ Function HexStr(Val:Pointer):shortstring;
{$endif CPUI8086}
{ Char functions }
{$ifdef VER3_2}
{$if defined(VER3_2) or defined(VER3_0)}
Function Chr(b : byte) : Char; [INTERNPROC: fpc_in_chr_byte];
{$endif VER3_2}
{$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;