pike.git / src / error.c

version» Context lines:

pike.git/src/error.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: error.c,v 1.150 2007/07/04 17:35:42 grubba Exp $ + || $Id: error.c,v 1.151 2008/01/26 22:34:20 mast Exp $   */      #define NO_PIKE_SHORTHAND   #include "global.h"   #include "svalue.h"   #include "pike_macros.h"   #include "pike_error.h"   #include "interpret.h"   #include "stralloc.h"   #include "builtin_functions.h"
pike.git/src/error.c:189:   }      PMOD_EXPORT void push_error(const char *description)   {    push_text(description);    f_backtrace(0);    f_aggregate(2);   }      PMOD_EXPORT struct svalue throw_value = { -  PIKE_T_INT, 0, +  PIKE_T_INT, NUMBER_NUMBER,   #ifdef HAVE_UNION_INIT    {0}, /* Only to avoid warnings. */   #endif   };   int throw_severity;   static const char *in_error;      PMOD_EXPORT DECLSPEC(noreturn) void low_error(const char *buf) ATTRIBUTE((noreturn))   {    push_error(buf);
pike.git/src/error.c:475:       fprintf(stderr,"%s\n",(char *)msg);       /* We've reserved LOW_SVALUE_STACK_MARGIN and LOW_C_STACK_MARGIN    * for this. */    Pike_interpreter.svalue_stack_margin = 0;    Pike_interpreter.c_stack_margin = 0;    fprintf(stderr,"Attempting to dump raw error: (may fail)\n");    init_buf(&save_buf);    move_svalue (&thrown, &throw_value); -  throw_value.type = PIKE_T_INT; +  mark_free_svalue (&throw_value);    describe_svalue(&thrown,0,0);    free_svalue (&thrown);    s=simple_free_buf(&save_buf);    fprintf(stderr,"%s\n",s);    free(s);    }       exit(1);   }