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

* Dyn array for ReadArchive variables

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-18 15:41:20 +01:00
parent 4652593a8c
commit 2cd92ee792
1 changed files with 15 additions and 14 deletions

29
compiler/owar.pas
View File

@ -26,6 +26,7 @@ unit owar;
interface
uses
globtype,
cclasses,
owbase;
@ -461,11 +462,11 @@ implementation
symsize : longint;
arsym : TArSymbol;
s : string;
syms,
currp,
endp,
startp : pchar;
relocs : plongint;
startp : integer;
syms : TAnsiCharDynArray;
relocs : Array of longint;
begin
Read(currarhdr,sizeof(currarhdr));
{ Read number of relocs }
@ -481,23 +482,23 @@ implementation
exit;
end;
{ Read relocs }
getmem(Relocs,relocsize);
Read(relocs^,relocsize);
setlength(Relocs,relocsize);
Read(relocs[0],relocsize);
{ Read symbols, force terminating #0 to prevent overflow }
getmem(syms,symsize+1);
setlength(syms,symsize+1);
syms[symsize]:=#0;
Read(syms^,symsize);
Read(syms[0],symsize);
{ Parse symbols }
relocidx:=0;
currp:=syms;
endp:=syms+symsize;
currp:=0;
endp:=symsize;
for relocidx:=0 to nrelocs-1 do
begin
startp:=currp;
while (currp^<>#0) do
while (syms[currp]<>#0) do
inc(currp);
s[0]:=chr(currp-startp);
move(startp^,s[1],byte(s[0]));
SetLength(s,currp-startp);
move(syms[startp],s[1],currp-startp);
arsym:=TArSymbol.create(ArSymbols,s);
arsym.MemberPos:=lsb2msb(relocs[relocidx]);
inc(currp);
@ -507,8 +508,8 @@ implementation
break;
end;
end;
freemem(relocs);
freemem(syms);
relocs:=nil;
syms:=nil;
{ LFN names }
Read(currarhdr,sizeof(currarhdr));
if DecodeMemberName(currarhdr)='/' then