pike.git / src / main.c

version» Context lines:

pike.git/src/main.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: main.c,v 1.189 2004/01/31 16:20:51 marcus Exp $ + || $Id: main.c,v 1.190 2004/03/10 09:40:00 grubba Exp $   */      #include "global.h" - RCSID("$Id: main.c,v 1.189 2004/01/31 16:20:51 marcus Exp $"); + RCSID("$Id: main.c,v 1.190 2004/03/10 09:40:00 grubba 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:741:    init_opcodes();       TRACE((stderr, "Init programs...\n"));       init_program();       TRACE((stderr, "Init objects...\n"));       init_object();    -  TRACE((stderr, "Init modules...\n")); -  -  init_modules(); -  - #ifdef TEST_MULTISET -  /* A C-level testsuite for the low level stuff in multisets. */ -  test_multiset(); - #endif -  +     if(SETJMP(back))    {    if(throw_severity == THROW_EXIT)    {    num=throw_value.u.integer;    }else{    if (throw_value.type == T_OBJECT &&    throw_value.u.object->prog == master_load_error_program &&    !get_master()) {    /* Report this specific error in a nice way. Since there's no
pike.git/src/main.c:778:    f_werror (1);    pop_stack();    }    else    call_handle_error();    num=10;    }    }else{    back.severity=THROW_EXIT;    +  TRACE((stderr, "Init modules...\n")); +  +  init_modules(); +  + #ifdef TEST_MULTISET +  /* A C-level testsuite for the low level stuff in multisets. */ +  test_multiset(); + #endif +     TRACE((stderr, "Init master...\n"));       master();    call_callback(& post_master_callbacks, 0);    free_callback_list(& post_master_callbacks);       TRACE((stderr, "Call master->_main()...\n"));       a=allocate_array_no_init(argc,0);    for(num=0;num<argc;num++)