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

+ more x86 cpu flags

Browse Source 
git-svn-id: trunk@26513 -
This commit is contained in:
florian 2014-01-18 21:03:09 +00:00
parent 4a107dcfa6
commit a752e3542d
2 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/i386/cpuinfo.pas
View File

@ -130,7 +130,10 @@ Const
type
tcpuflags =
(CPUX86_HAS_BMI1,
CPUX86_HAS_BMI2
CPUX86_HAS_BMI2,
CPUX86_HAS_POPCNT,
CPUX86_HAS_LZCNT,
CPUX86_HAS_MOVBE
);
const
@ -142,10 +145,11 @@ type
{ cpu_Pentium3 } [],
{ cpu_Pentium4 } [],
{ cpu_PentiumM } [],
{ cpu_core_avx } [],
{ cpu_core_avx2 } [CPUX86_HAS_BMI1,CPUX86_HAS_BMI2]
{ cpu_core_avx } [CPUX86_HAS_POPCNT],
{ cpu_core_avx2 } [CPUX86_HAS_POPCNT,CPUX86_HAS_BMI1,CPUX86_HAS_BMI2,CPUX86_HAS_LZCNT,CPUX86_HAS_MOVBE]
);
Implementation
end.

9
compiler/x86_64/cpuinfo.pas
View File

@ -118,15 +118,18 @@ Const
type
tcpuflags =
(CPUX86_HAS_BMI1,
CPUX86_HAS_BMI2
CPUX86_HAS_BMI2,
CPUX86_HAS_POPCNT,
CPUX86_HAS_LZCNT,
CPUX86_HAS_MOVBE
);
const
cpu_capabilities : array[tcputype] of set of tcpuflags = (
{ cpu_none } [],
{ Athlon64 } [],
{ cpu_core_avx } [],
{ cpu_core_avx2 } [CPUX86_HAS_BMI1,CPUX86_HAS_BMI2]
{ cpu_core_avx } [CPUX86_HAS_POPCNT],
{ cpu_core_avx2 } [CPUX86_HAS_POPCNT,CPUX86_HAS_BMI1,CPUX86_HAS_BMI2,CPUX86_HAS_LZCNT,CPUX86_HAS_MOVBE]
);
Implementation