2 年之前 · 4d66ac9118
--- a/rtl/objpas/typinfo.pp
+++ b/rtl/objpas/typinfo.pp
@@ -339,6 +339,7 @@ unit TypInfo;
 
				         Name: ShortString;
			
 
				       end;
			
 
				 
			
 
				+      PProcedureSignature = ^TProcedureSignature;
			
 
				       TProcedureSignature =
			
 
				       {$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
			
 
				       packed