Parcourir la source

Patch from IvankoB on Yandex.Ru to add support for REINTRODUCE, DEPRECATED, STATIC, OVERRIDE, MESSAGE modifiers

git-svn-id: trunk@3173 -
michael il y a 19 ans
Parent
commit
0c81b44a23
1 fichiers modifiés avec 5 ajouts et 0 suppressions
  1. 5 0
      fcl/passrc/paswrite.pp

+ 5 - 0
fcl/passrc/paswrite.pp

@@ -303,6 +303,11 @@ begin
     wrt(' override;');
   if AProc.IsOverload then
     wrt(' overload;');
+  if AProc.IsReintroduced then
+    wrt(' reintroduce;');
+  if AProc.IsStatic then
+    wrt(' static;');
+
 
   // !!!: Not handled: Message, calling conventions