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

* fix the unitsym chain

Browse Source
This commit is contained in:
pierre 2000-05-03 14:34:05 +00:00
parent d29a9a8f29
commit f4d925b2e1
3 changed files with 34 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/symsym.inc
View File

@ -292,7 +292,7 @@
{ we need to remove it from the prevsym chain ! } { we need to remove it from the prevsym chain ! }
destructor tunitsym.done; procedure tunitsym.restoreunitsym;
var pus,ppus : punitsym; var pus,ppus : punitsym;
begin begin
if assigned(unitsymtable) then if assigned(unitsymtable) then
@ -316,7 +316,11 @@
end; end;
end; end;
prevsym:=nil; prevsym:=nil;
unitsymtable:=nil; end;
destructor tunitsym.done;
begin
restoreunitsym;
inherited done; inherited done;
end; end;
@ -2147,7 +2151,10 @@
{ {
$Log$ $Log$
Revision 1.144 2000-04-27 10:06:04 pierre Revision 1.145 2000-05-03 14:34:05 pierre
* fix the unitsym chain
Revision 1.144 2000/04/27 10:06:04 pierre
* fix for snapshot failue * fix for snapshot failue
* order_overloaded reintrocduced and adapted to operators * order_overloaded reintrocduced and adapted to operators

6
compiler/symsymh.inc
View File

@ -77,6 +77,7 @@
constructor load; constructor load;
destructor done;virtual; destructor done;virtual;
procedure write;virtual; procedure write;virtual;
procedure restoreunitsym;
{$ifdef GDB} {$ifdef GDB}
procedure concatstabto(asmlist : paasmoutput);virtual; procedure concatstabto(asmlist : paasmoutput);virtual;
{$endif GDB} {$endif GDB}
@ -317,7 +318,10 @@
{ {
$Log$ $Log$
Revision 1.48 2000-04-27 10:06:04 pierre Revision 1.49 2000-05-03 14:34:05 pierre
* fix the unitsym chain
Revision 1.48 2000/04/27 10:06:04 pierre
* fix for snapshot failue * fix for snapshot failue
* order_overloaded reintrocduced and adapted to operators * order_overloaded reintrocduced and adapted to operators

20
compiler/symtable.pas
View File

@ -464,6 +464,7 @@ unit symtable;
{*** symtable stack ***} {*** symtable stack ***}
procedure dellexlevel; procedure dellexlevel;
procedure RestoreUnitSyms;
{$ifdef DEBUG} {$ifdef DEBUG}
procedure test_symtablestack; procedure test_symtablestack;
procedure list_symtablestack; procedure list_symtablestack;
@ -2769,6 +2770,20 @@ implementation
dispose(p,done); dispose(p,done);
end; end;
procedure RestoreUnitSyms;
var
p : psymtable;
begin
p:=symtablestack;
while assigned(p) do
begin
if (p^.symtabletype=unitsymtable) and
assigned(punitsymtable(p)^.unitsym) then
punitsymtable(p)^.unitsym^.restoreunitsym;
p:=p^.next;
end;
end;
{$ifdef DEBUG} {$ifdef DEBUG}
procedure test_symtablestack; procedure test_symtablestack;
var var
@ -2885,7 +2900,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.88 2000-04-27 11:35:04 pierre Revision 1.89 2000-05-03 14:34:05 pierre
* fix the unitsym chain
Revision 1.88 2000/04/27 11:35:04 pierre
* power to ** operator fixed * power to ** operator fixed
Revision 1.87 2000/04/27 10:06:04 pierre Revision 1.87 2000/04/27 10:06:04 pierre