From a17ad61240ee2a0c6ab6c3b384437a0d1836fb52 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 9 Nov 2020 12:24:27 +0000
Subject: [PATCH] Adapt to change of chr function in commit 47353, to change
 chr() a real intrinsics

git-svn-id: trunk@47363 -
---
 rtl/java/jsystemh.inc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/rtl/java/jsystemh.inc b/rtl/java/jsystemh.inc
index f5b58078bc..be69a9b4e5 100644
--- a/rtl/java/jsystemh.inc
+++ b/rtl/java/jsystemh.inc
@@ -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;