diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-27 07:50:54 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-27 07:50:54 +0000 |
| commit | 552e38a9d3a55c9ce97ef4e5e0729f050fead016 (patch) | |
| tree | cd3c9565b73aac1bb6a7a9529ca225fa42f200cb /ext | |
| parent | 773ae483b9833dec8b7ccd7abbf3ce6ed04d3d69 (diff) | |
| download | perl-552e38a9d3a55c9ce97ef4e5e0729f050fead016.tar.gz | |
cover case where CLK_TCK is a float, not integer (from
alexander smishlajev <als@turnhere.com>)
p4raw-id: //depot/perl@3791
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Devel/DProf/DProf.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs index 62ad464070..291742123b 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 |