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

+ added an address size parameter to lnfodrwf.ReadAddress(); pass the expected

Browse Source 
address size, as taken from the dwarf header structure

git-svn-id: trunk@39059 -
This commit is contained in:
nickysn 2018-05-20 15:43:19 +00:00
parent dc8b78abe6
commit a7f5a69000
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/lnfodwrf.pp
View File

@ -471,7 +471,7 @@ end;
{ Reads an address from the current input stream }
function ReadAddress() : PtrUInt;
function ReadAddress(addr_size: smallint) : PtrUInt;
begin
ReadNext(ReadAddress, sizeof(ReadAddress));
end;
@ -758,7 +758,7 @@ begin
DEBUG_WRITELN('DW_LNE_END_SEQUENCE');
end;
DW_LNE_SET_ADDRESS : begin
state.address := ReadAddress();
state.address := ReadAddress(extended_opcode_length-1);
DEBUG_WRITELN('DW_LNE_SET_ADDRESS (', hexstr(state.address, sizeof(state.address)*2), ')');
end;
{$ifdef CPUI8086}
@ -1004,8 +1004,8 @@ begin
DEBUG_WRITELN('debug_info_offset: ',header64.debug_info_offset);
DEBUG_WRITELN('address_size: ', header64.address_size);
DEBUG_WRITELN('segment_size: ', header64.segment_size);
arange_start:=ReadAddress;
arange_size:=ReadAddress;
arange_start:=ReadAddress(header64.address_size);
arange_size:=ReadAddress(header64.address_size);
while not((arange_start=0) and (arange_size=0)) and (not found) do
begin
@ -1016,8 +1016,8 @@ begin
DEBUG_WRITELN('Matching aranges entry $',hexStr(arange_start,header64.address_size*2),', $',hexStr(arange_size,header64.address_size*2));
end;
arange_start:=ReadAddress;
arange_size:=ReadAddress;
arange_start:=ReadAddress(header64.address_size);
arange_size:=ReadAddress(header64.address_size);
end;
end;