From d44ee210fae276001993207b99c30d6d155dae34 Mon Sep 17 00:00:00 2001 From: mame Date: Thu, 4 Sep 2008 14:47:40 +0000 Subject: [PATCH] * ext/bigdecimal/bigdecimal.c (BigDecimal_mode): set exception mode correctly. In spite of BigDecimal.mode(BigDecimal::EXCEPTION_ALL, true), BigDecimal.new("NaN") did not raise an exception previously. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@19138 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 6 ++++++ ext/bigdecimal/bigdecimal.c | 6 ++++++ 2 files changed, 12 insertions(+) diff --git a/ChangeLog b/ChangeLog index 87e48a48e3..612f2f7e78 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +Thu Sep 4 23:47:05 2008 Yusuke Endoh + + * ext/bigdecimal/bigdecimal.c (BigDecimal_mode): set exception mode + correctly. In spite of BigDecimal.mode(BigDecimal::EXCEPTION_ALL, + true), BigDecimal.new("NaN") did not raise an exception previously. + Thu Sep 4 23:42:42 2008 Tanaka Akira * include/ruby/intern.h (rb_file_open_str): declared. diff --git a/ext/bigdecimal/bigdecimal.c b/ext/bigdecimal/bigdecimal.c index e8da7cc415..754c319991 100644 --- a/ext/bigdecimal/bigdecimal.c +++ b/ext/bigdecimal/bigdecimal.c @@ -412,11 +412,17 @@ BigDecimal_mode(int argc, VALUE *argv, VALUE self) VpSetException((unsigned short)((val==Qtrue)?(fo|VP_EXCEPTION_INFINITY): (fo&(~VP_EXCEPTION_INFINITY)))); } + fo = VpGetException(); if(f&VP_EXCEPTION_NaN) { VpSetException((unsigned short)((val==Qtrue)?(fo|VP_EXCEPTION_NaN): (fo&(~VP_EXCEPTION_NaN)))); } fo = VpGetException(); + if(f&VP_EXCEPTION_UNDERFLOW) { + VpSetException((unsigned short)((val==Qtrue)?(fo|VP_EXCEPTION_UNDERFLOW): + (fo&(~VP_EXCEPTION_UNDERFLOW)))); + } + fo = VpGetException(); return INT2FIX(fo); } if(VP_ROUND_MODE==f) {