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

* Convert shstrtab to dyn array of ansichar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-18 15:25:52 +01:00
parent 0f2248f923
commit 21276413ea
1 changed files with 4 additions and 5 deletions

9
compiler/ogelf.pas
View File

@ -128,7 +128,7 @@ interface
shoffset: aword;
shstrndx: longword;
symtabndx: longword;
shstrtab: PChar;
shstrtab: TAnsiCharDynarray;
strtab: PChar;
shstrtablen: longword;
strtablen: longword;
@ -1168,8 +1168,7 @@ implementation
FreeMem(FSecTbl);
if Assigned(strtab) then
FreeMem(strtab);
if Assigned(shstrtab) then
FreeMem(shstrtab);
shstrtab:=nil;
if Assigned(symversions) then
FreeMem(symversions);
inherited Destroy;
@ -1593,9 +1592,9 @@ implementation
if shdrs[shstrndx].sh_type<>SHT_STRTAB then
InternalError(2012060202);
shstrtablen:=shdrs[shstrndx].sh_size;
GetMem(shstrtab,shstrtablen);
SetLength(shstrtab,shstrtablen);
FReader.seek(shdrs[shstrndx].sh_offset);
FReader.read(shstrtab^,shstrtablen);
FReader.read(shstrtab[0],shstrtablen);
FLoaded[shstrndx]:=True;
{ Locate the symtable, it is typically at the end so loop backwards.