pike.git / src / main.c

version» Context lines:

pike.git/src/main.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: main.c,v 1.106 2000/11/06 17:03:32 grubba Exp $"); + RCSID("$Id: main.c,v 1.107 2000/11/20 01:20:25 mast Exp $");   #include "fdlib.h"   #include "backend.h"   #include "module.h"   #include "object.h"   #include "language.h"   #include "lex.h"   #include "pike_types.h"   #include "builtin_functions.h"   #include "array.h"   #include "stralloc.h"
pike.git/src/main.c:527:    master();    call_callback(& post_master_callbacks, 0);    free_callback_list(& post_master_callbacks);       if(SETJMP(back))    {    if(throw_severity == THROW_EXIT)    {    num=throw_value.u.integer;    }else{ -  ONERROR tmp; -  t_flag=0; -  SET_ONERROR(tmp,exit_on_error,"Error in handle_error in master object!"); -  push_svalue(& throw_value); -  APPLY_MASTER("handle_error", 1); -  pop_stack(); -  UNSET_ONERROR(tmp); +  call_handle_error();    num=10;    }    }else{    back.severity=THROW_EXIT;       a=allocate_array_no_init(argc,0);    for(num=0;num<argc;num++)    {    ITEM(a)[num].u.string=make_shared_string(argv[num]);    ITEM(a)[num].type=T_STRING;