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

* sse and 3dnow extensions from Michail added

Browse Source
This commit is contained in:
peter 2002-03-16 11:51:50 +00:00
parent e267e338df
commit 97f28dbdfb
1 changed files with 126 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

129
rtl/i386/mmx.pp
View File

@ -44,7 +44,11 @@ unit mmx;
const
is_mmx_cpu : boolean = false;
is_sse_cpu : boolean = false;
is_sse2_cpu : boolean = false;
is_amd_3d_cpu : boolean = false;
is_amd_3d_dsp_cpu : boolean = false;
is_amd_3d_mmx_cpu : boolean = false;
{ sets all floating point registers to empty
(use this after mmx usage)
@ -58,6 +62,32 @@ unit mmx;
{$ASMMODE ATT}
{ return base type of processor: 0 - is Unknown, 10 - is AMD
(AuthenticAMD), }
{ 20 - is Intel (GenuineIntel) }
function getdevel:byte;
var
_ebx,_ecx,_edx : longint;
begin
getdevel:=0;
if cpuid_support then
begin
asm
movl $0,%eax
cpuid
movl %ebx,_ebx
movl %ecx,_ecx
movl %edx,_edx
end;
if ((_ebx=$68747541) and (_ecx=$444D4163) and (_edx=$69746E65))
then getdevel:=10;
if ((_ebx=$756E6547) and (_ecx=$6C65746E) and (_edx=$49656E69))
then getdevel:=20;
end
end;
{ returns true, if the processor supports the mmx instructions }
function mmx_support : boolean;
@ -92,13 +122,93 @@ unit mmx;
cpuid
movl %edx,_edx
end;
amd_3d_support:=(_edx and longint($80000000))<>0;
amd_3d_support:=(_edx and $80000000)<>0;
end
else
{ a cpu with without cpuid instruction supports never mmx }
amd_3d_support:=false;
end;
function amd_3d_dsp_support : boolean;
var
_edx : longint;
begin
if cpuid_support then
begin
asm
movl $0x80000001,%eax
cpuid
movl %edx,_edx
end;
amd_3d_dsp_support:=(_edx and $40000000)<>0;
end
else
{ a cpu with without cpuid instruction supports never mmx }
amd_3d_dsp_support:=false;
end;
function amd_3d_mmx_support : boolean;
var
_edx : longint;
begin
if cpuid_support then
begin
asm
movl $0x80000001,%eax
cpuid
movl %edx,_edx
end;
amd_3d_mmx_support:=(_edx and $400000)<>0;
end
else
{ a cpu with without cpuid instruction supports never mmx }
amd_3d_mmx_support:=false;
end;
function sse_support : boolean;
var
_edx : longint;
begin
if cpuid_support then
begin
asm
movl $1,%eax
cpuid
movl %edx,_edx
end;
sse_support:=(_edx and $2000000)<>0;
end
else
{ a cpu with without cpuid instruction supports never sse }
sse_support:=false;
end;
function sse2_support : boolean;
var
_edx : longint;
begin
if cpuid_support then
begin
asm
movl $1,%eax
cpuid
movl %edx,_edx
end;
sse2_support:=(_edx and $4000000)<>0;
end
else
{ a cpu with without cpuid instruction supports never sse2 }
sse2_support:=false;
end;
procedure emms;assembler;
asm
@ -122,12 +232,25 @@ begin
{ the exit code sets the fpu stack to empty }
oldexitproc:=exitproc;
exitproc:=@mmxexitproc;
is_amd_3d_cpu:=amd_3d_support;
if amd_3d_support then
begin
is_amd_3d_cpu:=true;
is_amd_3d_dsp_cpu:=amd_3d_dsp_support;
is_amd_3d_mmx_cpu:=amd_3d_mmx_support;
end;
if getdevel=20 then
begin
is_sse_cpu:=sse_support;
is_sse2_cpu:=sse2_support;
end;
end;
end.
{
$Log$
Revision 1.3 2000-12-16 15:58:18 jonas
Revision 1.4 2002-03-16 11:51:50 peter
* sse and 3dnow extensions from Michail added
Revision 1.3 2000/12/16 15:58:18 jonas
* removed warnings about possible range check errors
Revision 1.2 2000/07/13 11:33:41 michael