瀏覽代碼

+ support for "univ" parameter modifier added in r15010

git-svn-id: trunk@15016 -
Jonas Maebe 15 年之前
父節點
當前提交
635bf9fb7a
共有 1 個文件被更改,包括 1 次插入0 次删除
  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