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

* fixed small mem leaks

Browse Source
This commit is contained in:
peter 2003-03-27 17:44:13 +00:00
parent 2d9ba86107
commit 750c3b315e
2 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/fppu.pas
View File

@ -104,6 +104,7 @@ uses
if assigned(ppufile) then if assigned(ppufile) then
ppufile.free; ppufile.free;
ppufile:=nil; ppufile:=nil;
stringdispose(sourcefn);
inherited Destroy; inherited Destroy;
end; end;
@ -1331,7 +1332,10 @@ uses
end. end.
{ {
$Log$ $Log$
Revision 1.29 2002-12-29 14:57:50 peter Revision 1.30 2003-03-27 17:44:13 peter
* fixed small mem leaks
Revision 1.29 2002/12/29 14:57:50 peter
* unit loading changed to first register units and load them * unit loading changed to first register units and load them
afterwards. This is needed to support uses xxx in yyy correctly afterwards. This is needed to support uses xxx in yyy correctly
* unit dependency check fixed * unit dependency check fixed

15
compiler/pexpr.pas
View File

@ -734,9 +734,13 @@ implementation
{ generate a methodcallnode or proccallnode } { generate a methodcallnode or proccallnode }
{ we shouldn't convert things like @tcollection.load } { we shouldn't convert things like @tcollection.load }
p2:=cloadnode.create_procvar(sym,aprocdef,st); p2:=cloadnode.create_procvar(sym,aprocdef,st);
if assigned(p1) and if assigned(p1) then
(p1.nodetype<>typen) then begin
tloadnode(p2).set_mp(p1); if (p1.nodetype<>typen) then
tloadnode(p2).set_mp(p1)
else
p1.free;
end;
p1:=p2; p1:=p2;
{ no postfix operators } { no postfix operators }
@ -2340,7 +2344,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.104 2003-03-17 18:55:30 peter Revision 1.105 2003-03-27 17:44:13 peter
* fixed small mem leaks
Revision 1.104 2003/03/17 18:55:30 peter
* allow more tokens instead of only semicolon after inherited * allow more tokens instead of only semicolon after inherited
Revision 1.103 2003/03/17 16:54:41 peter Revision 1.103 2003/03/17 16:54:41 peter