浏览代码

* Char -> AnsiChar

Michael VAN CANNEYT 2 年之前
父节点
当前提交
6f4ade6abe
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/objpas/typinfo.pp

+ 1 - 1
rtl/objpas/typinfo.pp

@@ -747,7 +747,7 @@ unit TypInfo;
               (MethodKind : TMethodKind;
                ParamCount : Byte;
                case Boolean of
-                 False: (ParamList : array[0..1023] of Char);
+                 False: (ParamList : array[0..1023] of AnsiChar);
                  { dummy for proper alignment }
                  True: (ParamListDummy : Word);
              {in reality ParamList is a array[1..ParamCount] of: