paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 01:19:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* reset current_module,current_procinfo so the destroy routines

Browse Source 
can't access their info anymore, because that can be already
    destroyed
This commit is contained in:
peter 2004-03-16 16:20:49 +00:00
parent 73feaae814
commit f80bea52e9
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/parser.pas
View File

@ -123,6 +123,13 @@ implementation
procedure doneparser;
begin
{ Reset current compiling info, so destroy routines can't
reference the data that might already be destroyed }
objectlibrary:=nil;
current_module:=nil;
compiled_module:=nil;
current_procinfo:=nil;
{ unload units }
loaded_units.free;
usedunits.free;
@ -698,7 +705,12 @@ implementation
end.
{
$Log$
Revision 1.62 2004-03-14 20:08:37 peter
Revision 1.63 2004-03-16 16:20:49 peter
* reset current_module,current_procinfo so the destroy routines
can't access their info anymore, because that can be already
destroyed
Revision 1.62 2004/03/14 20:08:37 peter
* packrecords fixed for settings from $PACKRECORDS
* default packrecords now uses value 0 and uses info from aligment
structure only, initpackrecords removed