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

* NASM supports DQ already since version 2.00 (from 10 years ago) and it's already in the ait_const2str array, so use it! (doesn't mean that it works on Win64 however...)

Browse Source 
git-svn-id: trunk@35368 -
This commit is contained in:
svenbarth 2017-01-29 17:49:27 +00:00
parent f517311227
commit 69fa837266
1 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/x86/agx86nsm.pas
View File

@ -735,17 +735,6 @@ interface
begin
consttype:=tai_const(hp).consttype;
case consttype of
aitconst_64bit,
aitconst_64bit_unaligned:
begin
if assigned(tai_const(hp).sym) then
internalerror(200404292);
writer.AsmWrite(ait_const2str[aitconst_32bit]);
writer.AsmWrite(tostr(longint(lo(tai_const(hp).value))));
writer.AsmWrite(',');
writer.AsmWrite(tostr(longint(hi(tai_const(hp).value))));
writer.AsmLn;
end;
aitconst_uleb128bit,
aitconst_sleb128bit,
aitconst_128bit:
@ -793,13 +782,15 @@ interface
aitconst_fardataseg:
writer.AsmWriteLn(#9'DW'#9+current_module.modulename^+'_DATA');
{$endif i8086}
aitconst_64bit,
aitconst_32bit,
aitconst_16bit,
aitconst_8bit,
aitconst_rva_symbol,
aitconst_secrel32_symbol,
aitconst_16bit_unaligned,
aitconst_32bit_unaligned:
aitconst_32bit_unaligned,
aitconst_64bit_unaligned:
begin
writer.AsmWrite(ait_const2str[tai_const(hp).consttype]);
l:=0;