From 1207c0e3f4f46db3cb1757f36f8d718e61fdc0cc Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 15 Jul 2008 17:47:30 +0000
Subject: [PATCH] gtk2 intf: replaced exception mask with functions from math
 unit

git-svn-id: trunk@15785 -
---
 lcl/interfaces/gtk2/gtk2widgetset.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk2/gtk2widgetset.inc b/lcl/interfaces/gtk2/gtk2widgetset.inc
index 275f33ea9e..c1a3d43fa5 100644
--- a/lcl/interfaces/gtk2/gtk2widgetset.inc
+++ b/lcl/interfaces/gtk2/gtk2widgetset.inc
@@ -564,7 +564,7 @@ begin
   inherited AppInit(ScreenInfo);
   {$if defined(cpui386) or defined(cpux86_64)}
   // needed otherwise some gtk theme engines crash with division by zero
-  Set8087CW($133F);
+  SetExceptionMask(GetExceptionMask + [exZeroDivide]);
   {$endif}
 end;