From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 13 Dec 2003 19:20:41 +0000 (+0000)
Subject: Add Perl_ceil
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1bbae031e701e9c1f2c21c9ed7e918cd9b2c4106;p=p5sagit%2Fp5-mst-13.2.git

Add Perl_ceil

p4raw-id: //depot/perl@21898
---

diff --git a/perl.h b/perl.h
index 8fe1848..e8106d8 100644
--- a/perl.h
+++ b/perl.h
@@ -1282,6 +1282,7 @@ typedef NVTYPE NV;
 #       define Perl_atan2 atan2l
 #       define Perl_pow powl
 #       define Perl_floor floorl
+#       define Perl_ceil ceill
 #       define Perl_fmod fmodl
 #   endif
 /* e.g. libsunmath doesn't have modfl and frexpl as of mid-March 2000 */
@@ -1352,6 +1353,7 @@ long double modfl(long double, long double *);
 #   define Perl_atan2 atan2
 #   define Perl_pow pow
 #   define Perl_floor floor
+#   define Perl_ceil ceil
 #   define Perl_fmod fmod
 #   define Perl_modf(x,y) modf(x,y)
 #   define Perl_frexp(x,y) frexp(x,y)
diff --git a/pp.c b/pp.c
index 6b06c97..a074cf6 100644
--- a/pp.c
+++ b/pp.c
@@ -2795,7 +2795,7 @@ PP(pp_int)
 		  SETi(I_V(value));
 	      } else {
 		/* This is maint, and we don't have Perl_ceil in perl.h  */
-		  SETn(-Perl_floor(-value));
+		  SETn(Perl_ceil(value));
 	      }
 	  }
       }