X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=aclocal.m4;h=0432ed354b7aa2f1c362b6f086f21cfaf2c8a49c;hp=85a1ee20b27f4f930cdc7720c5b0b367bd512bd7;hb=refs%2Ftags%2F2008-06-01;hpb=2f330af4eeeae4562d9ea9eeaec7571901481f8c

diff --git a/aclocal.m4 b/aclocal.m4
index 85a1ee2..0432ed3 100644
--- a/aclocal.m4
+++ b/aclocal.m4
@@ -1072,6 +1072,13 @@ static void handler(int i)
    tock = 1;
 }
 
+static void timeout(int i)
+{
+  // timer_settime() has been known to hang, so just in case
+  // we install a 1-second timeout (see #2257)
+  exit(99);
+}
+
 int main(int argc, char *argv[])
 {
 
@@ -1092,6 +1099,15 @@ int main(int argc, char *argv[])
         exit(3);
     }
 
+    action.sa_handler = timeout;
+    action.sa_flags = 0;
+    sigemptyset(&action.sa_mask);
+    if (sigaction(SIGALRM, &action, NULL) == -1) {
+      fprintf(stderr,"SIGALRM problem\n");
+      exit(3);
+    }
+    alarm(1);
+
     if (timer_create(CLOCK_PROCESS_CPUTIME_ID, &ev, &timer) != 0) {
         fprintf(stderr,"No CLOCK_PROCESS_CPUTIME_ID timer\n");
        exit(1);
@@ -1116,7 +1132,7 @@ int main(int argc, char *argv[])
 out:
 
     if (!tock) {
-        fprintf(stderr,"no CLOCK_REALTIME signal\n");
+        fprintf(stderr,"no CLOCK_PROCESS_CPUTIME_ID signal\n");
         exit(5);
     }
 
@@ -1128,7 +1144,7 @@ out:
     }
 
     it.it_value.tv_sec = 0;
-    it.it_value.tv_nsec = 1;
+    it.it_value.tv_nsec = 1000000;
     it.it_interval = it.it_value;
     if (timer_settime(timer, 0, &it, NULL) != 0) {
         fprintf(stderr,"settime problem\n");