瀏覽代碼

* reading of ppus with inlining info fixed

git-svn-id: trunk@965 -
florian 20 年之前
父節點
當前提交
b6f4784295
共有 1 個文件被更改,包括 3 次插入2 次删除
  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;