Преглед на файлове

Avoid trying to use invalid instruction exception if Test8087 is below 2, as older CPU ignore simply invalid instructions

git-svn-id: trunk@36298 -
pierre преди 8 години
родител
ревизия
e092f00843
променени са 1 файла, в които са добавени 2 реда и са изтрити 0 реда
  1. 2 0
      rtl/msdos/system.pp

+ 2 - 0
rtl/msdos/system.pp

@@ -167,6 +167,8 @@ Procedure SysInitFPU;
       fldcw   localfpucw
       fwait
     end;
+    if Test8087 < 2 then
+      exit;
     asm
       push es
       push ds