From e232dd50661f2072604978d2ca37426f36a65b30 Mon Sep 17 00:00:00 2001
From: sergei <gorelkin@nanoreflex.ru>
Date: Wed, 2 Jul 2014 16:23:40 +0000
Subject: [PATCH] + m68k: default implementation of fpc_cpuinit, provides
 correct masking of floating-point exceptions and fixes test/testv8.pp.

git-svn-id: trunk@28128 -
---
 rtl/m68k/m68k.inc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/rtl/m68k/m68k.inc b/rtl/m68k/m68k.inc
index 3e796519d8..7033ce4456 100644
--- a/rtl/m68k/m68k.inc
+++ b/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}