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

* Reference specific bug in recompiling unit solved

Browse Source
This commit is contained in:
pierre 1999-02-17 14:20:40 +00:00
parent 23f7e0c601
commit 696db29f84
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/pdecl.pas
View File

@ -1509,6 +1509,10 @@ unit pdecl;
genvmt(aktclass); genvmt(aktclass);
end; end;
{ number symbols and defs }
symtablestack^.number_defs;
symtablestack^.number_symbols;
{ restore old state } { restore old state }
symtablestack:=symtablestack^.next; symtablestack:=symtablestack^.next;
procinfo._class:=nil; procinfo._class:=nil;
@ -1542,6 +1546,11 @@ unit pdecl;
consume(_END); consume(_END);
typecanbeforward:=storetypeforwardsallowed; typecanbeforward:=storetypeforwardsallowed;
{ number symbols and defs }
symtablestack^.number_defs;
symtablestack^.number_symbols;
symtablestack:=symtable^.next; symtablestack:=symtable^.next;
record_dec:=new(precdef,init(symtable)); record_dec:=new(precdef,init(symtable));
end; end;
@ -2140,7 +2149,10 @@ unit pdecl;
end. end.
{ {
$Log$ $Log$
Revision 1.95 1999-01-25 20:13:48 peter Revision 1.96 1999-02-17 14:20:40 pierre
* Reference specific bug in recompiling unit solved
Revision 1.95 1999/01/25 20:13:48 peter
* fixed crash with forward declared class of ... * fixed crash with forward declared class of ...
Revision 1.94 1999/01/19 12:17:00 peter Revision 1.94 1999/01/19 12:17:00 peter