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.37 1998/01/26 19:59:56 hubbe Exp $"); + RCSID("$Id: main.c,v 1.38 1998/01/27 18:06:43 hubbe Exp $");   #include "fdlib.h"   #include "backend.h"   #include "module.h"   #include "object.h"   #include "lex.h"   #include "pike_types.h"   #include "builtin_functions.h"   #include "array.h"   #include "stralloc.h"   #include "interpret.h"
pike.git/src/main.c:278:    push_array(a);       if(SETJMP(back))    {    if(throw_severity == THROW_EXIT)    {    num=throw_value.u.integer;    }else{    ONERROR tmp;    SET_ONERROR(tmp,exit_on_error,"Error in handle_error in master object!"); -  assign_svalue_no_free(sp, & throw_value); -  sp++; +  push_svalue(& throw_value);    APPLY_MASTER("handle_error", 1);    pop_stack();    UNSET_ONERROR(tmp);    num=10;    }    }else{    back.severity=THROW_EXIT;       apply(master(),"_main",2);    pop_stack();
pike.git/src/main.c:350:    exit_signals();    exit_lex();    exit_cpp();    cleanup_interpret();    cleanup_added_efuns();    cleanup_pike_types();    cleanup_program();    cleanup_compiler();       do_gc(); +  free_svalue(& throw_value); +  throw_value.type=T_INT;       cleanup_callbacks();   #if defined(DEBUG) && defined(DEBUG_MALLOC)    if(verbose_debug_exit)    {    INT32 num,size,recount=0;       count_memory_in_arrays(&num, &size);    if(num)    {