소스 검색

* Char -> AnsiChar

Michael VAN CANNEYT 2 년 전
부모
커밋
0126d5b32a
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      rtl/objpas/typinfo.pp

+ 1 - 1
rtl/objpas/typinfo.pp

@@ -727,7 +727,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: