paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 13:09:22 +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; CreateBrowserCol;
{$endif} {$endif}
(* Obsolete code aktprocsym
is disposed by the localsymtable disposal (PM)
{ Free last aktprocsym } { Free last aktprocsym }
if assigned(aktprocsym) and (aktprocsym^.owner=nil) then if assigned(aktprocsym) and (aktprocsym^.owner=nil) then
begin begin
@ -445,7 +447,7 @@ unit parser;
if current_module^.is_unit then if current_module^.is_unit then
aktprocsym^.definition^.forwarddef:=false; aktprocsym^.definition^.forwarddef:=false;
dispose(aktprocsym,done); dispose(aktprocsym,done);
end; end; *)
end; end;
dec(compile_level); dec(compile_level);
@ -460,7 +462,10 @@ unit parser;
end. end.
{ {
$Log$ $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 * release storenumber,double_checksum
Revision 1.71 1999/03/26 00:05:33 peter Revision 1.71 1999/03/26 00:05:33 peter