il y a 2 ans · 6f4ade6abe
--- a/rtl/objpas/typinfo.pp
+++ b/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: