From 5a763bb525d3d0d51e4f2ea0da4a3fa514656a4a Mon Sep 17 00:00:00 2001
From: tadf <tadf@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 5 Jul 2009 11:44:34 +0000
Subject: [PATCH] 	* complex.c (float_arg): returns PI for -0.0.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@23960 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog | 4 ++++
 complex.c | 4 +++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index aec6eb1c87..26f6fe5ead 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sun Jul  5 20:40:35 2009  Tadayoshi Funaba  <tadf@dotrb.org>
+
+	* complex.c (float_arg): returns PI for -0.0.
+
 Sun Jul  5 14:04:36 2009  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* thread.c (rb_threadptr_exec_event_hooks): new function to
diff --git a/complex.c b/complex.c
index 048aa92bfd..d64c628128 100644
--- a/complex.c
+++ b/complex.c
@@ -1756,7 +1756,9 @@ float_arg(VALUE self)
 {
     if (isnan(RFLOAT_VALUE(self)))
 	return self;
-    return rb_call_super(0, 0);
+    if (f_tpositive_p(self))
+	return INT2FIX(0);
+    return rb_const_get(rb_mMath, id_PI);
 }
 
 /*