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

* amd specific flags are checked against cpu vendor

Browse Source 
git-svn-id: trunk@4138 -
This commit is contained in:
florian 2006-07-10 18:03:30 +00:00
parent aa8d214759
commit 6185a32923
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/i386/mmx.pp
View File

@ -109,7 +109,8 @@ unit mmx;
_edx : longint;
begin
if cpuid_support then
{ are there third party cpus supporting amd 3d instructions? }
if cpuid_support and (getdevel=10) then
begin
asm
movl $0x80000001,%eax
@ -129,7 +130,8 @@ unit mmx;
_edx : longint;
begin
if cpuid_support then
{ are there third party cpus supporting amd dsp instructions? }
if cpuid_support and (getdevel=10) then
begin
asm
movl $0x80000001,%eax
@ -149,7 +151,8 @@ unit mmx;
_edx : longint;
begin
if cpuid_support then
{ are there third party cpus supporting amd mmx instructions? }
if cpuid_support and (getdevel=10) then
begin
asm
movl $0x80000001,%eax
@ -212,8 +215,8 @@ unit mmx;
procedure femms;assembler;
asm
.byte 0x0f, 0x0e
{ femms instruction not supported with older as versions }
{ femms instruction not supported with older as versions }
.byte 0x0f, 0x0e
end;