From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 12 Jun 2002 13:50:59 +0000 (+0200)
Subject: Re: linux + usemorebits: gcc error?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9a2ac92cbea58b239c3b384381e55d9d780a2bee;p=p5sagit%2Fp5-mst-13.2.git

Re: linux + usemorebits: gcc error?
Message-ID: <3D0735A3.4020701@hexaflux.com>

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

diff --git a/ext/Time/HiRes/HiRes.xs b/ext/Time/HiRes/HiRes.xs
index 3db3902..c66b92d 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);