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

* Derefmap as dyn array

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-18 15:04:59 +01:00
parent 25e955b6e4
commit b09cdf35a5
2 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/fmodule.pas
View File

@ -103,7 +103,7 @@ interface
{ modulename, used during ppu load }
modulename : pshortstring;
end;
pderefmap = ^tderefmaprec;
tderefmaparray = array of tderefmaprec;
{ tmodule }
@ -141,7 +141,7 @@ interface
moduleid : longint;
unitmap : punitmap; { mapping of all used units }
unitmapsize : longint; { number of units in the map }
derefmap : pderefmap; { mapping of all units needed for deref }
derefmap : tderefmaparray; { mapping of all units needed for deref }
derefmapcnt : longint; { number of units in the map }
derefmapsize : longint; { number of units in the map }
derefdataintflen : longint;
@ -688,8 +688,8 @@ implementation
begin
for i:=0 to derefmapcnt-1 do
stringdispose(derefmap[i].modulename);
freemem(derefmap);
end;
derefmap:=nil;
if assigned(_exports) then
_exports.free;
if assigned(dllscannerinputlist) then
@ -885,9 +885,8 @@ implementation
begin
for i:=0 to derefmapcnt-1 do
stringdispose(derefmap[i].modulename);
freemem(derefmap);
derefmap:=nil;
end;
derefmap:=nil;
unitmapsize:=0;
derefmapsize:=0;
derefmapcnt:=0;
@ -1156,9 +1155,7 @@ implementation
{ Extend Derefmap }
oldmapsize:=derefmapsize;
derefmapsize:=loaded_units.count;
reallocmem(derefmap,derefmapsize*sizeof(tderefmaprec));
fillchar(derefmap[oldmapsize],(derefmapsize-oldmapsize)*sizeof(tderefmaprec),0);
setlength(derefmap,derefmapsize);
{ Add all units to unitmap }
hp:=tmodule(loaded_units.first);
i:=0;

3
compiler/fppu.pas
View File

@ -1369,8 +1369,7 @@ var
{ Load unit map used for resolving }
derefmapsize:=ppufile.getlongint;
derefmapcnt:=derefmapsize;
getmem(derefmap,derefmapsize*sizeof(tderefmaprec));
fillchar(derefmap^,derefmapsize*sizeof(tderefmaprec),0);
setlength(derefmap,derefmapsize);
for i:=0 to derefmapsize-1 do
derefmap[i].modulename:=ppufile.getpshortstring;
end;