+ support aitconst_seg in the i8086 internal assembler as well

git-svn-id: trunk@32252 -
2025-04-18 18:59:40 +02:00 · 2015-11-05 16:38:04 +00:00 · 2015-11-05 16:38:04 +00:00 · bb47eb4a2a
commit bb47eb4a2a
parent ac97d20249
1 changed files with 5 additions and 0 deletions
--- a/compiler/assemble.pas
+++ b/compiler/assemble.pas
@ -1861,6 +1861,11 @@ Implementation
                       internalerror(2015040601)
                     else
                       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}
 {$ifdef arm}
                   aitconst_got: