Ignore:
Timestamp:
Dec 9, 2008, 4:17:01 PM (11 years ago)
Author:
gz
Message:

Add a lisp_sigexit kernel-import, to allow exit by resignalling

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lisp-kernel/windows-calls.c

    r11412 r11497  
    2525#include <psapi.h>
    2626#include <dirent.h>
     27#include <signal.h>
    2728#undef __argv
    2829#include <stdio.h>
     
    570571  tp->tv_usec = now%1000LL;
    571572  return 0;
     573}
     574
     575int
     576lisp_sigexit(int signum)
     577{
     578  signal(signum, SIG_DFL);
     579  return raise(signum);
    572580}
    573581
     
    867875  WSAStartup((2<<8)|2,&data);
    868876}
     877
Note: See TracChangeset for help on using the changeset viewer.