paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 13:18:25 +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 } { index in the derefmap }
derefidx : longint; derefidx : longint;
end; end;
punitmap = ^tunitmaprec; tunitmaparray = array of tunitmaprec;
tderefmaprec = record tderefmaprec = record
u : tmodule; u : tmodule;
@ -139,7 +139,7 @@ interface
IsPackage : boolean; IsPackage : boolean;
change_endian : boolean; { if the unit is loaded on a system with a different endianess than it was compiled on } change_endian : boolean; { if the unit is loaded on a system with a different endianess than it was compiled on }
moduleid : longint; moduleid : longint;
unitmap : punitmap; { mapping of all used units } unitmap : tunitmaparray; { mapping of all used units }
unitmapsize : longint; { number of units in the map } unitmapsize : longint; { number of units in the map }
derefmap : tderefmaparray; { mapping of all units needed for deref } derefmap : tderefmaparray; { mapping of all units needed for deref }
derefmapcnt : longint; { number of units in the map } derefmapcnt : longint; { number of units in the map }
@ -682,8 +682,7 @@ implementation
i : longint; i : longint;
current_debuginfo_reset : boolean; current_debuginfo_reset : boolean;
begin begin
if assigned(unitmap) then unitmap:=nil;
freemem(unitmap);
if assigned(derefmap) then if assigned(derefmap) then
begin begin
for i:=0 to derefmapcnt-1 do for i:=0 to derefmapcnt-1 do
@ -876,11 +875,7 @@ implementation
unitimportsyms:=TFPObjectList.Create(false); unitimportsyms:=TFPObjectList.Create(false);
derefdata.free; derefdata.free;
derefdata:=TDynamicArray.Create(1024); derefdata:=TDynamicArray.Create(1024);
if assigned(unitmap) then unitmap:=nil;
begin
freemem(unitmap);
unitmap:=nil;
end;
if assigned(derefmap) then if assigned(derefmap) then
begin begin
for i:=0 to derefmapcnt-1 do for i:=0 to derefmapcnt-1 do
@ -1149,8 +1144,7 @@ implementation
{ Extend unitmap } { Extend unitmap }
oldmapsize:=unitmapsize; oldmapsize:=unitmapsize;
unitmapsize:=loaded_units.count; unitmapsize:=loaded_units.count;
reallocmem(unitmap,unitmapsize*sizeof(tunitmaprec)); setlength(unitmap,unitmapsize);
fillchar(unitmap[oldmapsize],(unitmapsize-oldmapsize)*sizeof(tunitmaprec),0);
{ Extend Derefmap } { Extend Derefmap }
oldmapsize:=derefmapsize; oldmapsize:=derefmapsize;