Branch: Tag:

1996-10-09

1996-10-09 02:01:32 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

exit_on_error fixed

Rev: src/backend.c:1.4
Rev: src/builtin_functions.c:1.7
Rev: src/error.c:1.5
Rev: src/error.h:1.4
Rev: src/main.c:1.8

617:      void f_exit(INT32 args)   { +  ONERROR tmp;    int i;    if(args < 1)    error("Too few arguments to exit.\n");
624:    if(sp[-args].type != T_INT)    error("Bad argument 1 to exit.\n");    -  exit_on_error="Pike is exiting: "; +  SET_ONERROR(tmp,exit_on_error,"Error in handle_error in master object!");       call_callback(&exit_callbacks, (void *)0);    free_callback(&exit_callbacks);
634:    exit_modules();   #endif    +  UNSET_ONERROR(tmp);    exit(i);   }