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.95 2002/11/28 02:19:15 mast Exp $ + || $Id: error.c,v 1.96 2002/11/28 23:45:39 marcus 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"   #include "array.h"   #include "object.h"   #include "main.h"   #include "builtin_functions.h"   #include "backend.h"   #include "operators.h"   #include "module_support.h"   #include "threads.h"   #include "gc.h"    - RCSID("$Id: error.c,v 1.95 2002/11/28 02:19:15 mast Exp $"); + RCSID("$Id: error.c,v 1.96 2002/11/28 23:45:39 marcus Exp $");      #undef ATTRIBUTE   #define ATTRIBUTE(X)      PMOD_EXPORT const char msg_fatal_error[] =    "%s:%d: Fatal error:\n";   #ifdef PIKE_DEBUG   PMOD_EXPORT const char msg_unsetjmp_nosync_1[] =    "UNSETJMP out of sync! (last SETJMP at %s)!\n";   PMOD_EXPORT const char msg_unsetjmp_nosync_2[] =
pike.git/src/error.c:519:    push_int(0);   }      /*! @decl string _sprintf()    */   static void f_error__sprintf(INT32 args)   {    struct program *p = Pike_fp->current_object->prog;    int i = find_identifier("error_type", p);    struct identifier *id = ID_FROM_INT(p, i); +  int mode = 0; +  if(args>0 && Pike_sp[-args].type == PIKE_T_INT) +  mode = Pike_sp[-args].u.integer;    pop_n_elems(args); -  +  if(mode != 'O') { +  push_undefined(); +  return; +  }    push_svalue(&PROG_FROM_INT(p, i)->constants[id->func.offset].sval);    push_constant_text("(%O)");    if(GENERIC_ERROR_THIS->desc)    ref_push_string(GENERIC_ERROR_THIS->desc);    else    push_int(0);    f_sprintf(2);    f_add(2);   }