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

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

Browse Source 
git-svn-id: trunk@32250 -
This commit is contained in:
nickysn 2015-11-05 16:05:22 +00:00
parent 8c81e93a96
commit 44b04e250e
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/x86/agx86nsm.pas
View File

@ -763,6 +763,20 @@ interface
tostr(hi(longint(tai_const(hp).value)))); tostr(hi(longint(tai_const(hp).value))));
writer.AsmLn; writer.AsmLn;
end; 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} {$endif i8086}
aitconst_32bit, aitconst_32bit,
aitconst_16bit, aitconst_16bit,