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

+ added trefaddr.addr_far for emitting far calls

Browse Source 
git-svn-id: trunk@24826 -
This commit is contained in:
nickysn 2013-06-09 10:24:06 +00:00
parent 415444a3a5
commit 2279e51a95
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/cgbase.pas
View File

@ -99,6 +99,7 @@ interface
{$ENDIF} {$ENDIF}
{$IFDEF i8086} {$IFDEF i8086}
,addr_dgroup // the data segment group ,addr_dgroup // the data segment group
,addr_far // used for emitting 'call far' or 'jmp far' instructions
{$ENDIF} {$ENDIF}
); );

5
compiler/x86/agx86nsm.pas
View File

@ -382,7 +382,10 @@ interface
asmwrite('dword '); asmwrite('dword ');
{$endif i386} {$endif i386}
{$ifdef i8086} {$ifdef i8086}
asmwrite('word '); if o.ref^.refaddr=addr_far then
asmwrite('far ')
else
asmwrite('word ');
{$endif i8086} {$endif i8086}
if assigned(o.ref^.symbol) then if assigned(o.ref^.symbol) then
begin begin