paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 04:55:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

* base the CPU name, written in the beginning of each NASM assembler file on the

Browse Source 
nasm_cpu_name const array, which is used by the asd_cpu directive as well.
+ also enable writing this directive on i386 and x86_64 as well.

git-svn-id: trunk@33140 -
This commit is contained in:
nickysn 2016-03-01 00:45:51 +00:00
parent ca868b0bc6
commit 843aee8f4a
1 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/x86/agx86nsm.pas
View File

@ -1192,19 +1192,6 @@ interface
begin
{$if defined(i8086)}
writer.AsmWriteLn('BITS 16');
case current_settings.cputype of
cpu_8086: writer.AsmWriteLn('CPU 8086');
cpu_186: writer.AsmWriteLn('CPU 186');
cpu_286: writer.AsmWriteLn('CPU 286');
cpu_386: writer.AsmWriteLn('CPU 386');
cpu_Pentium: writer.AsmWriteLn('CPU PENTIUM');
cpu_Pentium2: writer.AsmWriteLn('CPU P2');
cpu_Pentium3: writer.AsmWriteLn('CPU P3');
cpu_Pentium4: writer.AsmWriteLn('CPU P4');
cpu_PentiumM: writer.AsmWriteLn('CPU P4');
else
internalerror(2013050101);
end;
{$elseif defined(i386)}
writer.AsmWriteLn('BITS 32');
using_relative:=false;
@ -1213,6 +1200,7 @@ interface
writer.AsmWriteLn('default rel');
using_relative:=true;
{$endif}
writer.AsmWriteLn('CPU '+nasm_cpu_name[current_settings.cputype]);
end;