소스 검색

* fix TSC support bit as mentioned by Rika

florian 1 년 전
부모
커밋
9d957cd6b3
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      rtl/i386/cpu.pp

+ 1 - 1
rtl/i386/cpu.pp

@@ -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;