mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-12 08:49:37 +02:00
* fix for #31645. Probably 16-bits mnemonics now really generate 16-bits opcodes,
so now really use 32-bit mnemonics for pushf/pusha and pop variants. git-svn-id: trunk@35752 -
This commit is contained in:
parent
c6680a32d7
commit
f218076c8a
@ -110,32 +110,32 @@ Label
|
||||
|
||||
Asm
|
||||
mov CpuFlags, 0
|
||||
pushf
|
||||
pushfd
|
||||
pop eax
|
||||
mov ecx, eax
|
||||
xor eax, 40000h
|
||||
push eax
|
||||
popf
|
||||
pushf
|
||||
popfd
|
||||
pushfd
|
||||
pop eax
|
||||
xor eax, ecx
|
||||
jz nocpuid
|
||||
push ecx
|
||||
popf
|
||||
popfd
|
||||
mov eax, ecx
|
||||
xor eax, 200000h
|
||||
push eax
|
||||
popf
|
||||
pushf
|
||||
popfd
|
||||
pushfd
|
||||
pop eax
|
||||
xor eax, ecx
|
||||
je nocpuid
|
||||
|
||||
pusha
|
||||
pushad
|
||||
mov eax, 1
|
||||
cpuid
|
||||
mov CpuFlags, edx
|
||||
popa
|
||||
popad
|
||||
|
||||
nocpuid:
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user