Explorar el Código

+ m68k: default implementation of fpc_cpuinit, provides correct masking of floating-point exceptions and fixes test/testv8.pp.

git-svn-id: trunk@28128 -
sergei hace 11 años
padre
commit
e232dd5066
Se han modificado 1 ficheros con 3 adiciones y 0 borrados
  1. 3 0
      rtl/m68k/m68k.inc

+ 3 - 0
rtl/m68k/m68k.inc

@@ -31,6 +31,9 @@
 
 procedure fpc_cpuinit;
   begin
+    SysResetFPU;
+    if (not IsLibrary) then
+      SysInitFPU;
   end;
 
 {$define FPC_SYSTEM_HAS_GET_FRAME}