This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Be sure to use the correct type, so bits do not get wrapped
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Tue, 8 Jul 2008 11:22:03 +0000 (11:22 +0000)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Tue, 8 Jul 2008 11:22:03 +0000 (11:22 +0000)
p4raw-id: //depot/metaconfig@34111

U/perl/time_size.U

index 0208145..0b206b9 100644 (file)
@@ -42,18 +42,18 @@ int main () {
   time_t pt = 0;
 
   for (i = 0; i < 78; i++) {
-    time_t t = (1 << i) - 1;
+    time_t t = ((time_t)1 << i) - 1;
     tmp = gmtime (&t);
     if (tmp == NULL || tmp->tm_year < y) {
       i--;
-      printf ("%d\n", pt);
+      printf ("%ld\n", pt);
       return (i);
       }
 
     y = tmp->tm_year;
     pt = t;
     }
-  printf ("%d\n", pt);
+  printf ("%ld\n", pt);
   return (0);
   }
 EOCP
@@ -77,18 +77,18 @@ int main () {
   time_t pt = 0;
 
   for (i = 0; i < 78; i++) {
-    time_t t = - (1 << i);
+    time_t t = - ((time_t)1 << i);
     tmp = gmtime (&t);
     if (tmp == NULL || tmp->tm_year > y) {
       i--;
-      printf ("%d\n", pt);
+      printf ("%ld\n", pt);
       return (i);
       }
 
     y = tmp->tm_year;
     pt = t;
     }
-  printf ("%d\n", pt);
+  printf ("%ld\n", pt);
   return (0);
   }
 EOCP