Browse Source

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

git-svn-id: trunk@28128 -
sergei 11 years ago
parent
commit
e232dd5066
1 changed files with 3 additions and 0 deletions
  1. 3 0
      rtl/m68k/m68k.inc

+ 3 - 0
rtl/m68k/m68k.inc

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