Browse Source

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

git-svn-id: trunk@3173 -
michael 19 years ago
parent
commit
0c81b44a23
1 changed files with 5 additions and 0 deletions
  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