1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
{
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by Florian Klaempfl
This unit contains some routines to get informations about the
processor
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
unit cpu;
interface
{ returns true, if the processor supports the cpuid instruction }
function cpuid_support : boolean;
{ returns true, if floating point is done by an emulator }
function floating_point_emulation : boolean;
{ returns the contents of the cr0 register }
function cr0 : longint;
var
is_sse3_cpu : boolean = false;
implementation
{$ASMMODE INTEL}
function cpuid_support : boolean;assembler;
{
Check if the ID-flag can be changed, if changed then CpuID is supported.
Tested under go32v1 and Linux on c6x86 with CpuID enabled and disabled (PFV)
}
asm
push ebx
pushfd
pushfd
pop eax
mov ebx,eax
xor eax,200000h
push eax
popfd
pushfd
pop eax
popfd
and eax,200000h
and ebx,200000h
cmp eax,ebx
setnz al
pop ebx
end;
function cr0 : longint;assembler;
asm
DB 0Fh,20h,0C0h
{ mov eax,cr0
special registers are not allowed in the assembler
parsers }
end;
function floating_point_emulation : boolean;
begin
{!!!! I don't know currently the position of the EM flag }
{ $4 after Ralf Brown's list }
floating_point_emulation:=(cr0 and $4)<>0;
end;
{$ASMMODE ATT}
function sse3_support : boolean;
var
_ecx : longint;
begin
if cpuid_support then
begin
asm
pushl %ebx
movl $1,%eax
cpuid
movl %ecx,_ecx
popl %ebx
end;
sse3_support:=(_ecx and $1)<>0;
end
else
{ a cpu with without cpuid instruction supports never sse3 }
sse3_support:=false;
end;
begin
is_sse3_cpu:=sse3_support;
end.
|
