mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-04 17:58:38 +02:00
* memory leak fixes from Sergey Korshunoff
This commit is contained in:
parent
3e7b6ef7fa
commit
cb3eb438b6
@ -430,6 +430,7 @@ implementation
|
||||
begin
|
||||
if assigned(Data) then
|
||||
Data.Free;
|
||||
relocations.free;
|
||||
end;
|
||||
|
||||
|
||||
@ -781,7 +782,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* some basic stuff for better callparanode handling, far from being finished
|
||||
|
||||
|
@ -1490,6 +1490,9 @@ Implementation
|
||||
hp:=Tai(hp.next);
|
||||
end;
|
||||
|
||||
if not MaybeNextList(hp) then
|
||||
break;
|
||||
|
||||
{ start next objectfile }
|
||||
NextSmartName(place);
|
||||
objectdata:=objectoutput.newobjectdata(Objfile);
|
||||
@ -1498,8 +1501,6 @@ Implementation
|
||||
if starTSec=sec_none then
|
||||
starTSec:=sec_code;
|
||||
|
||||
if not MaybeNextList(hp) then
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -1595,7 +1596,10 @@ Implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* reorganized aasm layer
|
||||
|
||||
|
@ -1070,11 +1070,11 @@ implementation
|
||||
index:=overriden.index;
|
||||
default:=overriden.default;
|
||||
indextype:=overriden.indextype;
|
||||
readaccess.clear;
|
||||
readaccess.free;
|
||||
readaccess:=overriden.readaccess.getcopy;
|
||||
writeaccess.clear;
|
||||
writeaccess.free;
|
||||
writeaccess:=overriden.writeaccess.getcopy;
|
||||
storedaccess.clear;
|
||||
storedaccess.free;
|
||||
storedaccess:=overriden.storedaccess.getcopy;
|
||||
end;
|
||||
|
||||
@ -2517,7 +2517,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* reorganized aasm layer
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user