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

+ added trefaddr.addr_seg for referencing the segment of a symbol

Browse Source 
git-svn-id: trunk@24859 -
This commit is contained in:
nickysn 2013-06-10 01:16:37 +00:00
parent 57e84dc0b4
commit 9dbbffba61
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/cgbase.pas
View File

@ -101,6 +101,7 @@ interface
,addr_dgroup // the data segment group ,addr_dgroup // the data segment group
,addr_far // used for emitting 'call/jmp far label' instructions ,addr_far // used for emitting 'call/jmp far label' instructions
,addr_far_ref // used for emitting 'call far [reference]' instructions ,addr_far_ref // used for emitting 'call far [reference]' instructions
,addr_seg // used for getting the segment of an object, e.g. 'mov ax, SEG symbol'
{$ENDIF} {$ENDIF}
); );

2
compiler/x86/agx86nsm.pas
View File

@ -398,6 +398,8 @@ interface
{$ifdef i8086} {$ifdef i8086}
if o.ref^.refaddr=addr_far then if o.ref^.refaddr=addr_far then
asmwrite('far ') asmwrite('far ')
else if o.ref^.refaddr=addr_seg then
asmwrite('SEG ')
else else
asmwrite('word '); asmwrite('word ');
{$endif i8086} {$endif i8086}