mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 11:06:19 +02:00
convert lfnstrs to array of ansichar
This commit is contained in:
parent
859b100da6
commit
4652593a8c
@ -64,7 +64,7 @@ type
|
|||||||
tarobjectreader=class(tobjectreader)
|
tarobjectreader=class(tobjectreader)
|
||||||
private
|
private
|
||||||
ArSymbols : TFPHashObjectList;
|
ArSymbols : TFPHashObjectList;
|
||||||
LFNStrs : PChar;
|
LFNStrs : TAnsiCharDynArray;
|
||||||
LFNSize : longint;
|
LFNSize : longint;
|
||||||
CurrMemberPos,
|
CurrMemberPos,
|
||||||
CurrMemberSize : longint;
|
CurrMemberSize : longint;
|
||||||
@ -353,8 +353,7 @@ implementation
|
|||||||
begin
|
begin
|
||||||
inherited closefile;
|
inherited closefile;
|
||||||
ArSymbols.Free;
|
ArSymbols.Free;
|
||||||
if assigned(LFNStrs) then
|
LFNStrs:=nil;
|
||||||
FreeMem(LFNStrs);
|
|
||||||
inherited Destroy;
|
inherited Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -515,8 +514,8 @@ implementation
|
|||||||
if DecodeMemberName(currarhdr)='/' then
|
if DecodeMemberName(currarhdr)='/' then
|
||||||
begin
|
begin
|
||||||
lfnsize:=DecodeMemberSize(currarhdr);
|
lfnsize:=DecodeMemberSize(currarhdr);
|
||||||
getmem(lfnstrs,lfnsize);
|
setLength(lfnstrs,lfnsize);
|
||||||
Read(lfnstrs^,lfnsize);
|
Read(lfnstrs[0],lfnsize);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user