Add Perl_ceil

p4raw-id: //depot/perl@21898

diff --git a/perl.h b/perl.h
index 8fe1848..e8106d8 100644 (file)
--- 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 (file)
--- 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));
              }
          }
       }