allow setting up arithmetic exception handling.

2014-10-19 11:27:53 +01:00
parent 13421d0cd7
commit 47d1bd5ecc
8 changed files with 50 additions and 5 deletions
--- a/C/stdpreds.c
+++ b/C/stdpreds.c
@@ -1638,6 +1638,11 @@ p_set_yap_flags( USES_REGS1 )
      return(FALSE);
    yap_flags[SOURCE_MODE_FLAG] = value;
    break;
+  case FLOATING_POINT_EXCEPTION_MODE_FLAG:
+    if (value != 0 && value !=  1)
+      return(FALSE);
+    yap_flags[FLOATING_POINT_EXCEPTION_MODE_FLAG] = value;
+    break;
  case WRITE_QUOTED_STRING_FLAG:
    if (value != 0 && value !=  1)
      return(FALSE);