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

* subtract the process load segment from the code segment on i8086

Browse Source 
git-svn-id: trunk@39064 -
This commit is contained in:
nickysn 2018-05-20 16:55:18 +00:00
parent 875330d84f
commit 81d5483ab1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/lnfodwrf.pp
View File

@ -1281,10 +1281,10 @@ begin
{$ifdef CPUI8086} {$ifdef CPUI8086}
{$if defined(FPC_MM_MEDIUM) or defined(FPC_MM_LARGE) or defined(FPC_MM_HUGE)} {$if defined(FPC_MM_MEDIUM) or defined(FPC_MM_LARGE) or defined(FPC_MM_HUGE)}
segment := addr shr 16; segment := (addr shr 16) - e.processsegment;
addr := Word(addr); addr := Word(addr);
{$else} {$else}
segment := CSeg; segment := CSeg - e.processsegment;
{$endif} {$endif}
{$endif CPUI8086} {$endif CPUI8086}