Prechádzať zdrojové kódy

+ support for "univ" parameter modifier added in r15010

git-svn-id: trunk@15016 -
Jonas Maebe 15 rokov pred
rodič
commit
635bf9fb7a
1 zmenil súbory, kde vykonal 1 pridanie a 0 odobranie
  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