From 9d957cd6b393ce64e7ffced79af5d1c5d6edc30e Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 1 Jul 2024 22:25:36 +0200
Subject: [PATCH]   * fix TSC support bit as mentioned by Rika

---
 rtl/i386/cpu.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/i386/cpu.pp b/rtl/i386/cpu.pp
index 5cacf16273..5e4ad792e7 100644
--- a/rtl/i386/cpu.pp
+++ b/rtl/i386/cpu.pp
@@ -271,7 +271,7 @@ type
            begin
               maxcpuidvalue:=CPUID(0).eax;
               cpuid1:=CPUID(1);
-              _TSCSupport:=(cpuid1.edx and $20)<>0;
+              _TSCSupport:=(cpuid1.edx and $10)<>0;
               _MMXSupport:=(cpuid1.edx and $800000)<>0;
               _CMOVSupport:=(cpuid1.edx and $8000)<>0;
               _AESSupport:=(cpuid1.ecx and $2000000)<>0;