* defaultsymtablestack is now restored after parser.compile

compiler/parser.pas

@@ -163,6 +163,7 @@ unit parser;
        { symtable }
          oldmacros,
          oldrefsymtable,
+         olddefaultsymtablestack,
          oldsymtablestack : psymtable;
          oldprocprefix    : string;
          oldaktprocsym    : pprocsym;
@@ -211,6 +212,7 @@ unit parser;
          old_compiled_module:=compiled_module;
        { save symtable state }
          oldsymtablestack:=symtablestack;
+         olddefaultsymtablestack:=defaultsymtablestack;
          oldrefsymtable:=refsymtable;
          oldmacros:=macros;
          oldprocprefix:=procprefix;
@@ -419,6 +421,7 @@ unit parser;
               { restore symtable state }
               refsymtable:=oldrefsymtable;
               symtablestack:=oldsymtablestack;
+              defaultsymtablestack:=olddefaultsymtablestack;
               macros:=oldmacros;
               aktprocsym:=oldaktprocsym;
               procprefix:=oldprocprefix;
@@ -501,7 +504,10 @@ unit parser;
 end.
 {
   $Log$
-  Revision 1.92  1999-11-18 15:34:46  pierre
+  Revision 1.93  1999-11-24 11:41:03  pierre
+   * defaultsymtablestack is now restored after parser.compile
+
+  Revision 1.92  1999/11/18 15:34:46  pierre
     * Notes/Hints for local syms changed to
       Set_varstate function
 

compiler/pmodules.pas

@@ -670,7 +670,7 @@ unit pmodules;
            refsymtable^.insert(new(punitsym,init('HEAPTRC',hp^.globalsymtable)));
          end;
       { save default symtablestack }
-        defaultsymtablestack:=symtablestack;
+         defaultsymtablestack:=symtablestack;
       end;
 
 
@@ -1552,7 +1552,10 @@ unit pmodules;
 end.
 {
   $Log$
-  Revision 1.171  1999-11-22 22:21:46  pierre
+  Revision 1.172  1999-11-24 11:41:05  pierre
+   * defaultsymtablestack is now restored after parser.compile
+
+  Revision 1.171  1999/11/22 22:21:46  pierre
    * Compute correct Exe Filenam
 
   Revision 1.170  1999/11/22 00:23:09  pierre

compiler/symtable.pas

@@ -245,7 +245,7 @@ unit symtable;
        registerdef : boolean;      { true, when defs should be registered }
 
        defaultsymtablestack,       { symtablestack after default units
-                                     have been loaded }
+                                            have been loaded }
        symtablestack : psymtable;  { linked list of symtables }
 
        srsym : psym;           { result of the last search }
@@ -2566,7 +2566,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.66  1999-11-22 00:23:09  pierre
+  Revision 1.67  1999-11-24 11:41:05  pierre
+   * defaultsymtablestack is now restored after parser.compile
+
+  Revision 1.66  1999/11/22 00:23:09  pierre
    * also complain about unused functions in program
 
   Revision 1.65  1999/11/19 14:49:15  pierre