Prechádzať zdrojové kódy

+ implemented support for aitconst_seg (emits a 'DW SEG symbol') in the nasm assembler writer for i8086

git-svn-id: trunk@32250 -
nickysn 9 rokov pred
rodič
commit
44b04e250e
1 zmenil súbory, kde vykonal 14 pridanie a 0 odobranie
  1. 14 0
      compiler/x86/agx86nsm.pas

+ 14 - 0
compiler/x86/agx86nsm.pas

@@ -763,6 +763,20 @@ interface
                                 tostr(hi(longint(tai_const(hp).value))));
                      writer.AsmLn;
                    end;
+                 aitconst_seg:
+                   begin
+                     writer.AsmWrite(ait_const2str[aitconst_16bit]);
+                     if assigned(tai_const(hp).sym) then
+                       begin
+                         if SmartAsm then
+                           AddSymbol(tai_const(hp).sym.name,false);
+                         writer.AsmWrite('SEG ');
+                         writer.AsmWrite(tai_const(hp).sym.name);
+                       end
+                     else
+                       internalerror(2015110501);
+                     writer.AsmLn;
+                   end;
 {$endif i8086}
                  aitconst_32bit,
                  aitconst_16bit,