Browse Source

* fixed storing the symbols of the global macro symbol table in the ppu in
macpas mode after r32153
o adjusted test so it checks this

git-svn-id: trunk@37912 -

Jonas Maebe 7 years ago
parent
commit
320a699967
2 changed files with 9 additions and 0 deletions
  1. 7 0
      compiler/fppu.pas
  2. 2 0
      tests/test/tmacpas1.pp

+ 7 - 0
compiler/fppu.pas

@@ -1468,6 +1468,13 @@ var
          tstoredsymtable(globalsymtable).buildderefimpl;
          tunitwpoinfo(wpoinfo).buildderef;
          tunitwpoinfo(wpoinfo).buildderefimpl;
+
+         if assigned(globalmacrosymtable) and (globalmacrosymtable.SymList.count > 0) then
+            begin
+              tstoredsymtable(globalmacrosymtable).buildderef;
+              tstoredsymtable(globalmacrosymtable).buildderefimpl;
+            end;
+
          if (flags and uf_local_symtable)<>0 then
            tstoredsymtable(localsymtable).buildderef_registered;
          buildderefunitimportsyms;

+ 2 - 0
tests/test/tmacpas1.pp

@@ -1,3 +1,5 @@
+{ %recompile }
+
 program tmacpas1;
 
 {Tests of mac pascal constructs, concerning two units}