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

+ support aitconst_seg in the i8086 internal assembler as well

Browse Source 
git-svn-id: trunk@32252 -
This commit is contained in:
nickysn 2015-11-05 16:38:04 +00:00
parent ac97d20249
commit bb47eb4a2a
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/assemble.pas
View File

@ -1861,6 +1861,11 @@ Implementation
internalerror(2015040601) internalerror(2015040601)
else else
ObjData.writebytes(Tai_const(hp).value,tai_const(hp).size); ObjData.writebytes(Tai_const(hp).value,tai_const(hp).size);
aitconst_seg:
if assigned(tai_const(hp).sym) and (tai_const(hp).size=2) then
ObjData.writereloc(0,2,Objdata.SymbolRef(tai_const(hp).sym),RELOC_SEG)
else
internalerror(2015110502);
{$endif i8086} {$endif i8086}
{$ifdef arm} {$ifdef arm}
aitconst_got: aitconst_got: