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

+ also read arange segments on i8086

Browse Source 
git-svn-id: trunk@39062 -
This commit is contained in:
nickysn 2018-05-20 16:07:28 +00:00
parent d7f2ab0d28
commit d7a3f755e4
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/lnfodwrf.pp
View File

@ -977,7 +977,12 @@ var
isdwarf64 : boolean;
temp_length : DWord;
unit_length : QWord;
{$ifdef CPUI8086}
arange_start, arange_size: DWord;
arange_segment: Word;
{$else CPUI8086}
arange_start, arange_size: PtrUInt;
{$endif CPUI8086}
begin
found := false;
@ -1017,6 +1022,9 @@ begin
DEBUG_WRITELN('address_size: ', header64.address_size);
DEBUG_WRITELN('segment_size: ', header64.segment_size);
arange_start:=ReadAddress(header64.address_size);
{$ifdef CPUI8086}
arange_segment:=ReadSegment();
{$endif CPUI8086}
arange_size:=ReadAddress(header64.address_size);
while not((arange_start=0) and (arange_size=0)) and (not found) do