mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-23 19:11:37 +02:00
9273856e84
* disallow pushfd/popfd for x86_64 (mantis #14862) * fixed assembling popfq with the internal assembler (it needs a rex.w prefisx, while pushfq doesn't) * changed the default opcode size of pushf/popf/pusha/popa in {$asmmode intel} from "native size" to 16 bit (compatible with Intel manuals and Kylix; in AT&T mode, the default size for those operations remains the native one) * changed pushf/popf in rtl/i386/* into pushfd/popfd because of the previous change git-svn-id: trunk@15546 -
76 lines
1.9 KiB
ObjectPascal
76 lines
1.9 KiB
ObjectPascal
{
|
|
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;
|
|
|
|
|
|
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;
|
|
|
|
end.
|