From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 27 Jul 1999 07:50:54 +0000 (+0000)
Subject: cover case where CLK_TCK is a float, not integer (from
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=552e38a9d3a55c9ce97ef4e5e0729f050fead016;p=p5sagit%2Fp5-mst-13.2.git

cover case where CLK_TCK is a float, not integer (from
alexander smishlajev <als@turnhere.com>)

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

diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs
index 62ad464..2917421 100644
--- a/ext/Devel/DProf/DProf.xs
+++ b/ext/Devel/DProf/DProf.xs
@@ -30,7 +30,7 @@ static U32 dprof_ticks;
 
 /* HZ == clock ticks per second */
 #ifdef VMS
-#  define HZ CLK_TCK
+#  define HZ ((I32)CLK_TCK)
 #  define DPROF_HZ HZ
 #  include <starlet.h>  /* prototype for sys$gettim() */
    clock_t dprof_times(struct tms *bufptr) {
@@ -60,7 +60,7 @@ static U32 dprof_ticks;
 #else
 #  ifndef HZ
 #    ifdef CLK_TCK
-#      define HZ CLK_TCK
+#      define HZ ((I32)CLK_TCK)
 #    else
 #      define HZ 60
 #    endif