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

* double dispose of aktprocsym removed

Browse Source
This commit is contained in:
pierre 1999-05-18 22:35:52 +00:00
parent 1a3b65af0b
commit 739eb6860c
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/parser.pas
View File

@ -438,6 +438,8 @@ unit parser;
CreateBrowserCol;
{$endif}
(* Obsolete code aktprocsym
is disposed by the localsymtable disposal (PM)
{ Free last aktprocsym }
if assigned(aktprocsym) and (aktprocsym^.owner=nil) then
begin
@ -445,7 +447,7 @@ unit parser;
if current_module^.is_unit then
aktprocsym^.definition^.forwarddef:=false;
dispose(aktprocsym,done);
end;
end; *)
end;
dec(compile_level);
@ -460,7 +462,10 @@ unit parser;
end.
{
$Log$
Revision 1.72 1999-04-26 13:31:36 peter
Revision 1.73 1999-05-18 22:35:52 pierre
* double dispose of aktprocsym removed
Revision 1.72 1999/04/26 13:31:36 peter
* release storenumber,double_checksum
Revision 1.71 1999/03/26 00:05:33 peter