Browse Source

+ support for "univ" parameter modifier added in r15010

git-svn-id: trunk@15016 -
Jonas Maebe 15 năm trước cách đây
mục cha
commit
635bf9fb7a
1 tập tin đã thay đổi với 1 bổ sung0 xóa
  1. 1 0
      compiler/utils/ppudump.pp

+ 1 - 0
compiler/utils/ppudump.pp

@@ -1775,6 +1775,7 @@ begin
              write  (space,' DefaultConst : ');
              readderef('');
              writeln(space,'       ParaNr : ',getword);
+             writeln(space,'        Univ  : ',boolean(getbyte));
              writeln(space,'     VarState : ',getbyte);
              if (vo_has_explicit_paraloc in varoptions) then
                begin