Просмотр исходного кода

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

git-svn-id: trunk@47363 -
pierre 4 лет назад
Родитель
Сommit
a17ad61240
1 измененных файлов с 3 добавлено и 1 удалено
  1. 3 1
      rtl/java/jsystemh.inc

+ 3 - 1
rtl/java/jsystemh.inc

@@ -499,7 +499,9 @@ Function  hexStr(Val:Pointer):shortstring;
 {$endif CPUI8086}
 {$endif CPUI8086}
 
 
 { Char functions }
 { 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  upCase(c:Char):Char;
 Function  lowerCase(c:Char):Char; overload;
 Function  lowerCase(c:Char):Char; overload;
 function  pos(const substr : shortstring;c:char; Offset : Sizeint=1): SizeInt;
 function  pos(const substr : shortstring;c:char; Offset : Sizeint=1): SizeInt;