paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:47:51 +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 const
is_mmx_cpu : boolean = false; is_mmx_cpu : boolean = false;
is_sse_cpu : boolean = false;
is_sse2_cpu : boolean = false;
is_amd_3d_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 { sets all floating point registers to empty
(use this after mmx usage) (use this after mmx usage)
@ -58,6 +62,32 @@ unit mmx;
{$ASMMODE ATT} {$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 } { returns true, if the processor supports the mmx instructions }
function mmx_support : boolean; function mmx_support : boolean;
@ -92,13 +122,93 @@ unit mmx;
cpuid cpuid
movl %edx,_edx movl %edx,_edx
end; end;
amd_3d_support:=(_edx and longint($80000000))<>0; amd_3d_support:=(_edx and $80000000)<>0;
end end
else else
{ a cpu with without cpuid instruction supports never mmx } { a cpu with without cpuid instruction supports never mmx }
amd_3d_support:=false; amd_3d_support:=false;
end; 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; procedure emms;assembler;
asm asm
@ -122,12 +232,25 @@ begin
{ the exit code sets the fpu stack to empty } { the exit code sets the fpu stack to empty }
oldexitproc:=exitproc; oldexitproc:=exitproc;
exitproc:=@mmxexitproc; 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;
end. end.
{ {
$Log$ $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 * removed warnings about possible range check errors
Revision 1.2 2000/07/13 11:33:41 michael Revision 1.2 2000/07/13 11:33:41 michael