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

+ CPU type corei

Browse Source 
git-svn-id: trunk@26790 -
This commit is contained in:
florian 2014-02-16 08:27:27 +00:00
parent 84f7f5f934
commit 0d6cc46a5e
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/i386/cpuinfo.pas
View File

@ -47,6 +47,7 @@ Type
cpu_Pentium3,
cpu_Pentium4,
cpu_PentiumM,
cpu_core_i,
cpu_core_avx,
cpu_core_avx2
);
@ -88,6 +89,7 @@ Const
'PENTIUM3',
'PENTIUM4',
'PENTIUMM',
'COREI',
'COREAVX',
'COREAVX2'
);
@ -147,6 +149,7 @@ type
{ cpu_Pentium3 } [CPUX86_HAS_SSEUNIT],
{ cpu_Pentium4 } [CPUX86_HAS_SSEUNIT],
{ cpu_PentiumM } [CPUX86_HAS_SSEUNIT],
{ cpu_core_i } [CPUX86_HAS_SSEUNIT,CPUX86_HAS_POPCNT],
{ cpu_core_avx } [CPUX86_HAS_SSEUNIT,CPUX86_HAS_POPCNT,CPUX86_HAS_AVXUNIT],
{ cpu_core_avx2 } [CPUX86_HAS_SSEUNIT,CPUX86_HAS_POPCNT,CPUX86_HAS_AVXUNIT,CPUX86_HAS_BMI1,CPUX86_HAS_BMI2,CPUX86_HAS_LZCNT,CPUX86_HAS_MOVBE]
);

3
compiler/x86_64/cpuinfo.pas
View File

@ -41,6 +41,7 @@ Type
tcputype =
(cpu_none,
cpu_athlon64,
cpu_core_i,
cpu_core_avx,
cpu_core_avx2
);
@ -80,6 +81,7 @@ Const
cputypestr : array[tcputype] of string[10] = ('',
'ATHLON64',
'COREI',
'COREAVX',
'COREAVX2'
);
@ -130,6 +132,7 @@ type
cpu_capabilities : array[tcputype] of set of tcpuflags = (
{ cpu_none } [],
{ Athlon64 } [CPUX86_HAS_SSEUNIT],
{ cpu_core_i } [CPUX86_HAS_SSEUNIT,CPUX86_HAS_POPCNT],
{ cpu_core_avx } [CPUX86_HAS_SSEUNIT,CPUX86_HAS_POPCNT,CPUX86_HAS_AVXUNIT],
{ cpu_core_avx2 } [CPUX86_HAS_SSEUNIT,CPUX86_HAS_POPCNT,CPUX86_HAS_AVXUNIT,CPUX86_HAS_BMI1,CPUX86_HAS_BMI2,CPUX86_HAS_LZCNT,CPUX86_HAS_MOVBE]
);