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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
{
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.
**********************************************************************}
{$mode objfpc}
unit cpu;
interface
{$ifdef freebsd} // FreeBSD 7/8 have binutils version that don't support cmpxchg16b
// Unless overridebinutils is defined (for ports usage), use db instead of the instruction
{$ifndef overridebinutils}
{$define oldbinutils}
{$endif}
{$endif}
uses
sysutils;
function InterlockedCompareExchange128Support : boolean;inline;
function AESSupport : boolean;inline;
var
is_sse3_cpu : boolean = false;
function InterlockedCompareExchange128(var Target: Int128Rec; NewValue: Int128Rec; Comperand: Int128Rec): Int128Rec;
implementation
var
_AESSupport,
_InterlockedCompareExchange128Support : boolean;
function InterlockedCompareExchange128Support : boolean;inline;
begin
result:=_InterlockedCompareExchange128Support;
end;
function AESSupport : boolean;inline;
begin
result:=_AESSupport;
end;
function InterlockedCompareExchange128(var Target: Int128Rec; NewValue: Int128Rec; Comperand: Int128Rec): Int128Rec; assembler;
{
win64:
rcx ... pointer to result
rdx ... target
r8 ... NewValue
r9 ... Comperand
}
{$ifdef win64}
asm
pushq %rbx
{ store result pointer for later use }
pushq %rcx
{ load new value }
movq (%r8),%rbx
movq 8(%r8),%rcx
{ save target pointer for later use }
movq %rdx,%r8
{ load comperand }
movq (%r9),%rax
movq 8(%r9),%rdx
{$ifdef oldbinutils}
.byte 0xF0,0x49,0x0F,0xC7,0x08
{$else}
lock cmpxchg16b (%r8)
{$endif}
{ restore result pointer }
popq %rcx
{ store result }
movq %rax,(%rcx)
movq %rdx,8(%rcx)
popq %rbx
end;
{$else win64}
{
linux:
rdi ... target
[rsi:rdx] ... NewValue
[rcx:r8] ... Comperand
[rdx:rax] ... result
}
asm
pushq %rbx
movq %rsi,%rbx // new value low
movq %rcx,%rax // comperand low
movq %rdx,%rcx // new value high
movq %r8,%rdx // comperand high
{$ifdef oldbinutils}
.byte 0xF0,0x48,0x0F,0xC7,0x0F
{$else}
lock cmpxchg16b (%rdi)
{$endif}
popq %rbx
end;
{$endif win64}
procedure SetupSupport;
var
_ecx : longint;
begin
asm
pushq %rbx
movl $0x00000001,%eax
cpuid
movl %ecx,_ecx
popq %rbx
end;
_InterlockedCompareExchange128Support:=(_ecx and $2000)<>0;
_AESSupport:=(_ecx and $2000000)<>0;
is_sse3_cpu:=(_ecx and $1)<>0;
end;
begin
SetupSupport;
end.
|
