Browse Source

* don't call buildderef for the local symtable of procdefs unless we will
write it to the ppu

git-svn-id: trunk@26083 -

Jonas Maebe 11 years ago
parent
commit
9b1a36fcdb
1 changed files with 7 additions and 7 deletions
  1. 7 7
      compiler/symdef.pas

+ 7 - 7
compiler/symdef.pas

@@ -4926,16 +4926,16 @@ implementation
       begin
       begin
          inherited buildderefimpl;
          inherited buildderefimpl;
 
 
-         { Localst is not available for main/unit init }
-         if assigned(localst) then
-           begin
-             tlocalsymtable(localst).buildderef;
-             tlocalsymtable(localst).buildderefimpl;
-           end;
-
          { inline tree }
          { inline tree }
          if (po_has_inlininginfo in procoptions) then
          if (po_has_inlininginfo in procoptions) then
            begin
            begin
+             { Localst is not available for main/unit init }
+             if assigned(localst) then
+               begin
+                 tlocalsymtable(localst).buildderef;
+                 tlocalsymtable(localst).buildderefimpl;
+               end;
+
              funcretsymderef.build(funcretsym);
              funcretsymderef.build(funcretsym);
              inlininginfo^.code.buildderefimpl;
              inlininginfo^.code.buildderefimpl;
            end;
            end;