suppression des warnings "unused variable" de gcc

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6300 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

asmrun/fail.c

@@ -79,6 +79,7 @@ void caml_raise_constant(value tag)
   bucket = caml_alloc_small (1, 0);
   Field(bucket, 0) = tag;
   caml_raise(bucket);
+  CAMLnoreturn;
 }
 
 void caml_raise_with_arg(value tag, value arg)
@@ -90,6 +91,7 @@ void caml_raise_with_arg(value tag, value arg)
   Field(bucket, 0) = tag;
   Field(bucket, 1) = arg;
   caml_raise(bucket);
+  CAMLnoreturn;
 }
 
 void caml_raise_with_string(value tag, char *msg)

asmrun/signals.c

@@ -224,24 +224,6 @@ void caml_leave_blocking_section(void)
   caml_async_signal_mode = 0;
 }
 
-#ifdef POSIX_SIGNALS
-static void reraise(int sig, int now)
-{
-  struct sigaction sa;
-  sa.sa_handler = 0;
-  sa.sa_flags = 0;
-  sigemptyset(&sa.sa_mask);
-  sigaction(sig, &sa, 0);
-  /* If the signal was sent using kill() (si_code == 0) or will
-     not recur then raise it here.  Otherwise return.  The
-     offending instruction will be reexecuted and the signal
-     will recur.  */
-  if (now == 1)
-    raise(sig);
-  return;
-}
-#endif
-
 #if defined(TARGET_alpha) || defined(TARGET_mips)
 static void handle_signal(int sig, int code, struct sigcontext * context)
 #elif defined(TARGET_power) && defined(SYS_aix)

otherlibs/systhreads/posix.c

@@ -396,7 +396,9 @@ static void * caml_thread_start(void * arg)
 {
   caml_thread_t th = (caml_thread_t) arg;
   value clos;
+#ifdef NATIVE_CODE
   struct longjmp_buffer termination_buf;
+#endif
 
   /* Associate the thread descriptor with the thread */
   pthread_setspecific(thread_descriptor_key, (void *) th);