mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-03 08:51:39 +01:00
Avoid trying to use invalid instruction exception if Test8087 is below 2, as older CPU ignore simply invalid instructions
git-svn-id: trunk@36298 -
This commit is contained in:
parent
0f80603dae
commit
e092f00843
@ -167,6 +167,8 @@ Procedure SysInitFPU;
|
|||||||
fldcw localfpucw
|
fldcw localfpucw
|
||||||
fwait
|
fwait
|
||||||
end;
|
end;
|
||||||
|
if Test8087 < 2 then
|
||||||
|
exit;
|
||||||
asm
|
asm
|
||||||
push es
|
push es
|
||||||
push ds
|
push ds
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user