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

* set nasm cpu type according to the current cpu level set by -Cp

Browse Source 
git-svn-id: trunk@24402 -
This commit is contained in:
nickysn 2013-05-01 15:47:23 +00:00
parent 4c95592e08
commit fe275c4f47
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/x86/agx86nsm.pas
View File

@ -1043,7 +1043,19 @@ interface
begin
{$ifdef i8086}
AsmWriteLn('BITS 16');
AsmWriteLn('CPU 286');
case current_settings.cputype of
cpu_8086: AsmWriteLn('CPU 8086');
cpu_186: AsmWriteLn('CPU 186');
cpu_286: AsmWriteLn('CPU 286');
cpu_386: AsmWriteLn('CPU 386');
cpu_Pentium: AsmWriteLn('CPU PENTIUM');
cpu_Pentium2: AsmWriteLn('CPU P2');
cpu_Pentium3: AsmWriteLn('CPU P3');
cpu_Pentium4: AsmWriteLn('CPU P4');
cpu_PentiumM: AsmWriteLn('CPU P4');
else
internalerror(2013050101);
end;
{ NASM complains if you put a missing section in the GROUP directive, so }
{ we add empty declarations to make sure they exist, even if empty }