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

* unitmap as dyn array

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-18 15:07:50 +01:00
parent b09cdf35a5
commit 1068015c4d
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/fmodule.pas
View File

@ -96,7 +96,7 @@ interface
{ index in the derefmap }
derefidx : longint;
end;
punitmap = ^tunitmaprec;
tunitmaparray = array of tunitmaprec;
tderefmaprec = record
u : tmodule;
@ -139,7 +139,7 @@ interface
IsPackage : boolean;
change_endian : boolean; { if the unit is loaded on a system with a different endianess than it was compiled on }
moduleid : longint;
unitmap : punitmap; { mapping of all used units }
unitmap : tunitmaparray; { mapping of all used units }
unitmapsize : longint; { number of units in the map }
derefmap : tderefmaparray; { mapping of all units needed for deref }
derefmapcnt : longint; { number of units in the map }
@ -682,8 +682,7 @@ implementation
i : longint;
current_debuginfo_reset : boolean;
begin
if assigned(unitmap) then
freemem(unitmap);
unitmap:=nil;
if assigned(derefmap) then
begin
for i:=0 to derefmapcnt-1 do
@ -876,11 +875,7 @@ implementation
unitimportsyms:=TFPObjectList.Create(false);
derefdata.free;
derefdata:=TDynamicArray.Create(1024);
if assigned(unitmap) then
begin
freemem(unitmap);
unitmap:=nil;
end;
unitmap:=nil;
if assigned(derefmap) then
begin
for i:=0 to derefmapcnt-1 do
@ -1149,8 +1144,7 @@ implementation
{ Extend unitmap }
oldmapsize:=unitmapsize;
unitmapsize:=loaded_units.count;
reallocmem(unitmap,unitmapsize*sizeof(tunitmaprec));
fillchar(unitmap[oldmapsize],(unitmapsize-oldmapsize)*sizeof(tunitmaprec),0);
setlength(unitmap,unitmapsize);
{ Extend Derefmap }
oldmapsize:=derefmapsize;