소스 검색

+ 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