Ignore:
Timestamp:
Dec 8, 2008, 5:15:49 PM (13 years ago)
Author:
gz
Message:

r11450 from trunk: *quit-interrupt-hook*

File:
1 edited

Legend:

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

    r11412 r11482  
    730730
    731731void
    732 sigint_handler (int signum, siginfo_t *info, ExceptionInformation *context)
     732user_signal_handler (int signum, siginfo_t *info, ExceptionInformation *context)
    733733{
    734734  if (signum == SIGINT) {
    735735    lisp_global(INTFLAG) = (1 << fixnumshift);
    736736  }
     737  else if (signum == SIGTERM) {
     738    lisp_global(INTFLAG) = (2 << fixnumshift);
     739  }
    737740#ifdef DARWIN
    738741  DarwinSigReturn(context);
     
    742745
    743746void
    744 register_sigint_handler()
     747register_user_signal_handler()
    745748{
    746749#ifdef WINDOWS
     
    751754  SetConsoleCtrlHandler(ControlEventHandler,TRUE);
    752755#else
    753   install_signal_handler(SIGINT, (void *)sigint_handler);
     756  install_signal_handler(SIGINT, (void *)user_signal_handler);
     757  install_signal_handler(SIGTERM, (void *)user_signal_handler);
    754758#endif
    755759}
     
    16721676  lisp_global(EXCEPTION_LOCK) = ptr_to_lispobj(new_recursive_lock());
    16731677  enable_fp_exceptions();
    1674   register_sigint_handler();
     1678  register_user_signal_handler();
    16751679
    16761680#ifdef PPC
Note: See TracChangeset for help on using the changeset viewer.