Merge branch 'master' of git://factorcode.org/git/factor

[factor.git] / vm / errors.cpp

diff --git a/vm/errors.cpp b/vm/errors.cpp
index 410886e88afed17c4052a2725f89b66fac50aab5..1dcee889a374de4bbc3dc6afb7ba5257341360cd 100644 (file)
--- a/vm/errors.cpp
+++ b/vm/errors.cpp
@@ -130,6 +130,11 @@ void divide_by_zero_error()
        general_error(ERROR_DIVIDE_BY_ZERO,F,F,NULL);
 }
 
+void fp_trap_error()
+{
+       general_error(ERROR_FP_TRAP,F,F,NULL);
+}
+
 PRIMITIVE(call_clear)
 {
        throw_impl(dpop(),stack_chain->callstack_bottom);
@@ -151,4 +156,9 @@ void misc_signal_handler_impl()
        signal_error(signal_number,signal_callstack_top);
 }
 
+void fp_signal_handler_impl()
+{
+    fp_trap_error();
+}
+
 }