From 94bfebb3fad44c5418de4ef20493e314344b64c6 Mon Sep 17 00:00:00 2001 From: matz Date: Wed, 24 Sep 2003 23:56:11 +0000 Subject: * error.c (rb_warn_m): should not warn if -W0 is specified. [ruby-talk:82675] * util.c (ruby_strtod): skip preceding zeros before counting digits in the mantissa. (ruby-bugs PR#1181) git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4595 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 10 ++++++++++ error.c | 1 + eval.c | 1 + util.c | 7 +++++++ 4 files changed, 19 insertions(+) diff --git a/ChangeLog b/ChangeLog index 4969efb952..38d1d8b58b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -38,6 +38,11 @@ Mon Sep 23 23:10:16 2003 NAKAMURA, Hiroshi * test/logger/test_logger.rb: ditto. +Tue Sep 23 20:47:51 2003 Yukihiro Matsumoto + + * error.c (rb_warn_m): should not warn if -W0 is specified. + [ruby-talk:82675] + Mon Sep 22 21:28:57 2003 WATANABE Hirofumi * MANIFEST: updated. @@ -46,6 +51,11 @@ Mon Sep 22 19:22:26 2003 GOTOU Yuuzou * configure.in (AC_CHECK_FUNCS): add setuid and setgid. +Mon Sep 22 12:34:55 2003 Yukihiro Matsumoto + + * util.c (ruby_strtod): skip preceding zeros before counting + digits in the mantissa. (ruby-bugs PR#1181) + Sun Sep 21 04:12:36 2003 GOTOU Yuuzou * ext/openssl/ossl_ocsp.c (ossl_ocspreq_initialize): the argument diff --git a/error.c b/error.c index 2e40408a16..4cf39d0e1f 100644 --- a/error.c +++ b/error.c @@ -166,6 +166,7 @@ static VALUE rb_warn_m(self, mesg) VALUE self, mesg; { + if (NIL_P(ruby_verbose)) return; rb_io_write(rb_stderr, mesg); rb_io_write(rb_stderr, rb_default_rs); return mesg; diff --git a/eval.c b/eval.c index ec0a03118b..897ae7e602 100644 --- a/eval.c +++ b/eval.c @@ -9902,6 +9902,7 @@ rb_thread_atfork() if (rb_thread_alone()) return; FOREACH_THREAD(th) { if (th != curr_thread) { + rb_warn("fork terminates thread at %s:%s", th->node->nd_file, nd_line(th->node)); rb_thread_die(th); } } diff --git a/util.c b/util.c index 9b058e6114..456704492a 100644 --- a/util.c +++ b/util.c @@ -757,6 +757,13 @@ ruby_strtod(string, endPtr) sign = FALSE; } + /* skip preceding zeros */ + if (*p == '0') { + while (*p == '0') + p++; + p--; + } + /* * Count the number of digits in the mantissa (including the decimal * point), and also locate the decimal point. -- cgit v1.2.3