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

* fix TSC support bit as mentioned by Rika

Browse Source
This commit is contained in:
florian 2024-07-01 22:25:36 +02:00
parent 8d12774d3b
commit 9d957cd6b3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/i386/cpu.pp
View File

@ -271,7 +271,7 @@ type
begin begin
maxcpuidvalue:=CPUID(0).eax; maxcpuidvalue:=CPUID(0).eax;
cpuid1:=CPUID(1); cpuid1:=CPUID(1);
_TSCSupport:=(cpuid1.edx and $20)<>0; _TSCSupport:=(cpuid1.edx and $10)<>0;
_MMXSupport:=(cpuid1.edx and $800000)<>0; _MMXSupport:=(cpuid1.edx and $800000)<>0;
_CMOVSupport:=(cpuid1.edx and $8000)<>0; _CMOVSupport:=(cpuid1.edx and $8000)<>0;
_AESSupport:=(cpuid1.ecx and $2000000)<>0; _AESSupport:=(cpuid1.ecx and $2000000)<>0;