paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 16:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* defaultsymtablestack is now restored after parser.compile

Browse Source
This commit is contained in:
pierre 1999-11-24 11:41:03 +00:00
parent 472fe53fe5
commit ae7a04ea12
3 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/parser.pas
View File

@ -163,6 +163,7 @@ unit parser;
{ symtable } { symtable }
oldmacros, oldmacros,
oldrefsymtable, oldrefsymtable,
olddefaultsymtablestack,
oldsymtablestack : psymtable; oldsymtablestack : psymtable;
oldprocprefix : string; oldprocprefix : string;
oldaktprocsym : pprocsym; oldaktprocsym : pprocsym;
@ -211,6 +212,7 @@ unit parser;
old_compiled_module:=compiled_module; old_compiled_module:=compiled_module;
{ save symtable state } { save symtable state }
oldsymtablestack:=symtablestack; oldsymtablestack:=symtablestack;
olddefaultsymtablestack:=defaultsymtablestack;
oldrefsymtable:=refsymtable; oldrefsymtable:=refsymtable;
oldmacros:=macros; oldmacros:=macros;
oldprocprefix:=procprefix; oldprocprefix:=procprefix;
@ -419,6 +421,7 @@ unit parser;
{ restore symtable state } { restore symtable state }
refsymtable:=oldrefsymtable; refsymtable:=oldrefsymtable;
symtablestack:=oldsymtablestack; symtablestack:=oldsymtablestack;
defaultsymtablestack:=olddefaultsymtablestack;
macros:=oldmacros; macros:=oldmacros;
aktprocsym:=oldaktprocsym; aktprocsym:=oldaktprocsym;
procprefix:=oldprocprefix; procprefix:=oldprocprefix;
@ -501,7 +504,10 @@ unit parser;
end. end.
{ {
$Log$ $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 * Notes/Hints for local syms changed to
Set_varstate function Set_varstate function

7
compiler/pmodules.pas
View File

@ -670,7 +670,7 @@ unit pmodules;
refsymtable^.insert(new(punitsym,init('HEAPTRC',hp^.globalsymtable))); refsymtable^.insert(new(punitsym,init('HEAPTRC',hp^.globalsymtable)));
end; end;
{ save default symtablestack } { save default symtablestack }
defaultsymtablestack:=symtablestack; defaultsymtablestack:=symtablestack;
end; end;
@ -1552,7 +1552,10 @@ unit pmodules;
end. end.
{ {
$Log$ $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 * Compute correct Exe Filenam
Revision 1.170 1999/11/22 00:23:09 pierre Revision 1.170 1999/11/22 00:23:09 pierre

7
compiler/symtable.pas
View File

@ -245,7 +245,7 @@ unit symtable;
registerdef : boolean; { true, when defs should be registered } registerdef : boolean; { true, when defs should be registered }
defaultsymtablestack, { symtablestack after default units defaultsymtablestack, { symtablestack after default units
have been loaded } have been loaded }
symtablestack : psymtable; { linked list of symtables } symtablestack : psymtable; { linked list of symtables }
srsym : psym; { result of the last search } srsym : psym; { result of the last search }
@ -2566,7 +2566,10 @@ implementation
end. end.
{ {
$Log$ $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 * also complain about unused functions in program
Revision 1.65 1999/11/19 14:49:15 pierre Revision 1.65 1999/11/19 14:49:15 pierre