Browse Source

+ support for "univ" parameter modifier added in r15010

git-svn-id: trunk@15016 -
Jonas Maebe 15 years ago
parent
commit
635bf9fb7a
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/utils/ppudump.pp

+ 1 - 0
compiler/utils/ppudump.pp

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