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.202 2004/05/29 18:21:05 grubba Exp $ + || $Id: main.c,v 1.203 2004/07/04 20:10:06 nilsson Exp $   */      #include "global.h" - RCSID("$Id: main.c,v 1.202 2004/05/29 18:21:05 grubba Exp $"); + RCSID("$Id: main.c,v 1.203 2004/07/04 20:10:06 nilsson 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:763:    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    * master it'd be reported with a raw error dump otherwise. */    struct generic_error_struct *err; +  +  dynamic_buffer buf; +  dynbuf_string s; +  struct svalue t; +     *(Pike_sp++) = throw_value;    dmalloc_touch_svalue(Pike_sp-1);    throw_value.type=T_INT;    err = (struct generic_error_struct *)    get_storage (Pike_sp[-1].u.object, generic_error_program); -  ref_push_string (err->error_message); -  f_werror (1); -  pop_stack(); +  +  t.type = PIKE_T_STRING; +  t.u.string = err->error_message; +  +  init_buf(&buf); +  describe_svalue(&t,0,0); +  s=complex_free_buf(&buf); +  +  fprintf(stderr, s.str); +  free(s.str);    }    else    call_handle_error();    num=10;    }    }else{    back.severity=THROW_EXIT;       TRACE((stderr, "Init modules...\n"));