diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-06-12 15:50:59 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-12 12:31:19 +0000 |
| commit | 9a2ac92cbea58b239c3b384381e55d9d780a2bee (patch) | |
| tree | f02b5fc5773001dd9b022ea769b6f648f472c936 /ext/Time | |
| parent | 912ec6395ccd8f957980c6c263fd9cff9e9bb2fa (diff) | |
| download | perl-9a2ac92cbea58b239c3b384381e55d9d780a2bee.tar.gz | |
Re: linux + usemorebits: gcc error?
Message-ID: <3D0735A3.4020701@hexaflux.com>
p4raw-id: //depot/perl@17201
Diffstat (limited to 'ext/Time')
| -rw-r--r-- | ext/Time/HiRes/HiRes.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Time/HiRes/HiRes.xs b/ext/Time/HiRes/HiRes.xs index 3db39023cc..c66b92db08 100644 --- a/ext/Time/HiRes/HiRes.xs +++ b/ext/Time/HiRes/HiRes.xs @@ -597,7 +597,7 @@ usleep(useconds) } } else if (useconds < 0.0) croak("Time::HiRes::usleep(%"NVgf"): negative time not invented yet", useconds); - usleep((UV)useconds); + usleep((U32)useconds); } else PerlProc_pause(); gettimeofday(&Tb, NULL); @@ -620,7 +620,7 @@ sleep(...) if (seconds >= 0.0) { UV useconds = (UV)(1E6 * (seconds - (UV)seconds)); if (seconds >= 1.0) - sleep((UV)seconds); + sleep((U32)seconds); usleep(useconds); } else croak("Time::HiRes::sleep(%"NVgf"): negative time not invented yet", seconds); |