Browse Source

* reading of ppus with inlining info fixed

git-svn-id: trunk@965 -
florian 20 years ago
parent
commit
b6f4784295
1 changed files with 3 additions and 2 deletions
  1. 3 2
      compiler/utils/ppudump.pp

+ 3 - 2
compiler/utils/ppudump.pp

@@ -1546,12 +1546,13 @@ begin
              readdefinitions('parast',false);
              readsymbols('parast');
              { localst }
-             if (po_inline in procoptions) then
+             if (po_has_inlininginfo in procoptions) or
+               ((ppufile.header.flags and uf_local_browser)<>0) then
               begin
                 readdefinitions('localst',false);
                 readsymbols('localst');
               end;
-             if (po_inline in procoptions) then
+             if (po_has_inlininginfo in procoptions) then
                readnodetree;
              delete(space,1,4);
            end;