Branch: Tag:

1997-03-01

1997-03-01 03:29:46 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

fix for exit() + threads

Rev: src/builtin_functions.c:1.30

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.29 1997/02/24 23:34:30 hubbe Exp $"); + RCSID("$Id: builtin_functions.c,v 1.30 1997/03/01 03:29:46 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "macros.h"
614:    if(sp[-args].type != T_INT)    error("Bad argument 1 to exit.\n");    + #ifdef _REENTRANT +  if(num_threads) exit(i); + #endif +     SET_ONERROR(tmp,exit_on_error,"Error in handle_error in master object!");       call_callback(&exit_callbacks, (void *)0);