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.135 2004/10/22 23:44:49 nilsson Exp $ + || $Id: error.c,v 1.136 2004/10/30 11:41:08 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:729:      /*! @decl void create(string message)    */   static void f_error_create(INT32 args)   {    struct pike_string *msg;    get_all_args("create", args, "%W", &msg);    do_free_string(GENERIC_ERROR_THIS->error_message);    copy_shared_string(GENERIC_ERROR_THIS->error_message, msg);    f_backtrace(0); -  push_int (0); -  push_int (Pike_sp[-2].u.array->size-2); -  o_range (); +  push_int (1); +  o_range2 (RANGE_LOW_OPEN|RANGE_HIGH_FROM_END);    assign_to_short_svalue ((union anything *)&GENERIC_ERROR_THIS->error_backtrace,    PIKE_T_ARRAY, Pike_sp-1);    pop_n_elems(args+1);   }      /*! @endclass    */      /*! @endmodule    */