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 năm trước cách đây
mục cha
commit
0c81b44a23
1 tập tin đã thay đổi với 5 bổ sung0 xóa
  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