Browse Source

+ support aitconst_seg in the i8086 internal assembler as well

git-svn-id: trunk@32252 -
nickysn 9 years ago
parent
commit
bb47eb4a2a
1 changed files with 5 additions and 0 deletions
  1. 5 0
      compiler/assemble.pas

+ 5 - 0
compiler/assemble.pas

@@ -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: