paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* processaddress's type changed to word on i8086 (ptruint changes size between

Browse Source 
memory models and we only need the offset; the segment is tracked separately)
+ introduce texefile.processsegment on i8086
* initialize processaddress and processsegment properly on i8086-msdos (for .exe
  files; .com files are not supported yet)

git-svn-id: trunk@39052 -
This commit is contained in:
nickysn 2018-05-20 13:19:49 +00:00
parent f401410500
commit 2c000d1e74
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/exeinfo.pp
View File

@ -37,7 +37,10 @@ type
nsects : longint; nsects : longint;
sechdrofs, sechdrofs,
secstrofs : {$ifdef cpui8086}longword{$else}ptruint{$endif}; secstrofs : {$ifdef cpui8086}longword{$else}ptruint{$endif};
processaddress : ptruint; processaddress : {$ifdef cpui8086}word{$else}ptruint{$endif};
{$ifdef cpui8086}
processsegment : word;
{$endif cpui8086}
FunctionRelative: boolean; FunctionRelative: boolean;
// Offset of the binary image forming permanent offset to all retrieved values // Offset of the binary image forming permanent offset to all retrieved values
ImgOffset: {$ifdef cpui8086}longword{$else}ptruint{$endif}; ImgOffset: {$ifdef cpui8086}longword{$else}ptruint{$endif};
@ -969,6 +972,10 @@ begin
e.sechdrofs:=elfheader.e_shoff; e.sechdrofs:=elfheader.e_shoff;
e.nsects:=elfheader.e_shnum; e.nsects:=elfheader.e_shnum;
{$ifdef MSDOS}
{ e.processaddress is already initialized to 0 }
e.processsegment:=PrefixSeg+16;
{$else MSDOS}
{ scan program headers to find the image base address } { scan program headers to find the image base address }
e.processaddress:=High(e.processaddress); e.processaddress:=High(e.processaddress);
seek(e.f,e.ImgOffset+elfheader.e_phoff); seek(e.f,e.ImgOffset+elfheader.e_phoff);
@ -981,6 +988,7 @@ begin
if e.processaddress = High(e.processaddress) then if e.processaddress = High(e.processaddress) then
e.processaddress:=0; e.processaddress:=0;
{$endif MSDOS}
OpenElf:=true; OpenElf:=true;
end; end;