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

* memory leak fixes from Sergey Korshunoff

Browse Source
This commit is contained in:
Jonas Maebe 2002-07-10 07:24:40 +00:00
parent 3e7b6ef7fa
commit cb3eb438b6
3 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aasmbase.pas
View File

@ -430,6 +430,7 @@ implementation
begin begin
if assigned(Data) then if assigned(Data) then
Data.Free; Data.Free;
relocations.free;
end; end;
@ -781,7 +782,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.2 2002-07-07 09:52:32 florian Revision 1.3 2002-07-10 07:24:40 jonas
* memory leak fixes from Sergey Korshunoff
Revision 1.2 2002/07/07 09:52:32 florian
* powerpc target fixed, very simple units can be compiled * powerpc target fixed, very simple units can be compiled
* some basic stuff for better callparanode handling, far from being finished * some basic stuff for better callparanode handling, far from being finished

10
compiler/assemble.pas
View File

@ -1490,6 +1490,9 @@ Implementation
hp:=Tai(hp.next); hp:=Tai(hp.next);
end; end;
if not MaybeNextList(hp) then
break;
{ start next objectfile } { start next objectfile }
NextSmartName(place); NextSmartName(place);
objectdata:=objectoutput.newobjectdata(Objfile); objectdata:=objectoutput.newobjectdata(Objfile);
@ -1498,8 +1501,6 @@ Implementation
if starTSec=sec_none then if starTSec=sec_none then
starTSec:=sec_code; starTSec:=sec_code;
if not MaybeNextList(hp) then
break;
end; end;
end; end;
@ -1595,7 +1596,10 @@ Implementation
end. end.
{ {
$Log$ $Log$
Revision 1.37 2002-07-01 18:46:21 peter Revision 1.38 2002-07-10 07:24:40 jonas
* memory leak fixes from Sergey Korshunoff
Revision 1.37 2002/07/01 18:46:21 peter
* internal linker * internal linker
* reorganized aasm layer * reorganized aasm layer

11
compiler/symsym.pas
View File

@ -1070,11 +1070,11 @@ implementation
index:=overriden.index; index:=overriden.index;
default:=overriden.default; default:=overriden.default;
indextype:=overriden.indextype; indextype:=overriden.indextype;
readaccess.clear; readaccess.free;
readaccess:=overriden.readaccess.getcopy; readaccess:=overriden.readaccess.getcopy;
writeaccess.clear; writeaccess.free;
writeaccess:=overriden.writeaccess.getcopy; writeaccess:=overriden.writeaccess.getcopy;
storedaccess.clear; storedaccess.free;
storedaccess:=overriden.storedaccess.getcopy; storedaccess:=overriden.storedaccess.getcopy;
end; end;
@ -2517,7 +2517,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.40 2002-07-01 18:46:27 peter Revision 1.41 2002-07-10 07:24:40 jonas
* memory leak fixes from Sergey Korshunoff
Revision 1.40 2002/07/01 18:46:27 peter
* internal linker * internal linker
* reorganized aasm layer * reorganized aasm layer