tests/kill-non-lisp-thread.c

   1 #include <pthread.h>
   2 #include <signal.h>
   3
   4 void
   5 wait_a_bit(void)
   6 {
   7     sleep(5);
   8 }
   9
  10 void
  11 kill_non_lisp_thread(void)
  12 {
  13     pthread_t kid;
  14     if (pthread_create(&kid, 0, (void *(*)(void *))wait_a_bit, 0) < 0) {
  15         perror("pthread_create");
  16         exit(1);
  17     }
  18     pthread_kill(kid, SIGPIPE);
  19 }