paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:49:26 +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 }
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

7
compiler/pmodules.pas
View File

@ -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

7
compiler/symtable.pas
View File

@ -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