Michaël Van Canneyt 2 лет назад
Родитель
Сommit
4d66ac9118
1 измененных файлов с 1 добавлено и 0 удалено
  1. 1 0
      rtl/objpas/typinfo.pp

+ 1 - 0
rtl/objpas/typinfo.pp

@@ -339,6 +339,7 @@ unit TypInfo;
         Name: ShortString;
       end;
 
+      PProcedureSignature = ^TProcedureSignature;
       TProcedureSignature =
       {$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
       packed