lazarus (0.9.28.2-12) gtk2-improve-exception-mask.diff

Summary

 lcl/interfaces/gtk2/gtk2widgetset.inc |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

    
download this patch

Patch contents

Origin: https://bugs.launchpad.net/ubuntu/+source/winff/+bug/521818/comments/51
Bug: http://mantis.freepascal.org/view.php?id=15840
Author: Flávio Etrusco
Forwarded: not needed
Descripton: This is to avoid trapping some FPU exceptions, since C code handles
 them differently, or that the CPU exception flag is leftover from the C
 library function call which C code wouldn't bother but FPC needs it to be
 explicitly cleared upon the function return.

Index: lazarus-0.9.28.2/lcl/interfaces/gtk2/gtk2widgetset.inc
===================================================================
--- lazarus-0.9.28.2.orig/lcl/interfaces/gtk2/gtk2widgetset.inc
+++ lazarus-0.9.28.2/lcl/interfaces/gtk2/gtk2widgetset.inc
@@ -592,7 +592,7 @@
     {$IFDEF windows}
       Set8087CW($133F);
     {$ELSE}
-      SetExceptionMask(GetExceptionMask + [exZeroDivide]);
+      SetExceptionMask(GetExceptionMask + [exZeroDivide, exInvalidOp]);
     {$ENDIF}
   {$ENDIF}
   {$ifend}