瀏覽代碼

* make sure things still build with 3.0 after r47353

git-svn-id: trunk@47359 -
Károly Balogh 4 年之前
父節點
當前提交
05d680902e
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      rtl/inc/systemh.inc

+ 2 - 2
rtl/inc/systemh.inc

@@ -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;