pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.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: interpret.c,v 1.308 2003/07/16 14:11:17 mast Exp $ + || $Id: interpret.c,v 1.309 2003/07/18 09:58:42 grubba Exp $   */      #include "global.h" - RCSID("$Id: interpret.c,v 1.308 2003/07/16 14:11:17 mast Exp $"); + RCSID("$Id: interpret.c,v 1.309 2003/07/18 09:58:42 grubba Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "pike_error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:1799:    dmalloc_touch_svalue(Pike_sp-1);    throw_value.type=T_INT;       if (get_master()) { /* May return NULL at odd times. */    ONERROR tmp;    SET_ONERROR(tmp,exit_on_error,"Error in handle_error in master object!");    APPLY_MASTER("handle_error", 1);    UNSET_ONERROR(tmp);    }    else { -  fprintf (stderr, "There's no master to handle the error. Dumping it raw:\n"); +     char *s; -  +  fprintf (stderr, "There's no master to handle the error. Dumping it raw:\n");    init_buf();    describe_svalue (Pike_sp - 1, 0, 0);    s=simple_free_buf();    fprintf(stderr,"%s\n",s);    free(s);    }       pop_stack();    Pike_interpreter.svalue_stack_margin = SVALUE_STACK_MARGIN;    Pike_interpreter.c_stack_margin = C_STACK_MARGIN;