2 vuotta sitten · 0126d5b32a
--- a/rtl/objpas/typinfo.pp
+++ b/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: