Branch: Tag:

2004-04-18

2004-04-18 02:19:38 by Martin Stjernholm <mast@lysator.liu.se>

First steps in making the internal error objects visible.

Rev: lib/modules/Error.pmod:1.1
Rev: src/dynamic_load.c:1.83
Rev: src/error.c:1.121
Rev: src/errors.h:1.26

2:   || 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.120 2004/02/09 18:49:16 mast Exp $ + || $Id: error.c,v 1.121 2004/04/18 02:19:38 mast Exp $   */      #define NO_PIKE_SHORTHAND
23:   #include "threads.h"   #include "gc.h"    - RCSID("$Id: error.c,v 1.120 2004/02/09 18:49:16 mast Exp $"); + RCSID("$Id: error.c,v 1.121 2004/04/18 02:19:38 mast Exp $");      #undef ATTRIBUTE   #define ATTRIBUTE(X)
607:    push_undefined();    return;    } +  push_constant_text ("Error.");    push_svalue(&PROG_FROM_INT(p, i)->constants[id->func.offset].sval);    push_constant_text("(%O)");    if(GENERIC_ERROR_THIS->error_message)
614:    else    push_int(0);    f_sprintf(2); -  f_add(2); +  f_add(3);   }      /*! @decl void create(string message)
782:    struct svalue *got_value,    const char *desc, ...) ATTRIBUTE((noreturn,format (printf, 7, 8)))   { -  INIT_ERROR(bad_arg); -  ERROR_COPY(bad_arg, which_argument); +  INIT_ERROR(bad_argument); +  ERROR_COPY(bad_argument, which_argument);    if (expected_type) -  ERROR_STRUCT(bad_arg,o)->expected_type=make_shared_string(expected_type); +  ERROR_STRUCT(bad_argument,o)->expected_type=make_shared_string(expected_type);    else -  ERROR_STRUCT(bad_arg,o)->expected_type = NULL; -  ERROR_COPY_SVALUE(bad_arg, got_value); +  ERROR_STRUCT(bad_argument,o)->expected_type = NULL; +  ERROR_COPY_SVALUE(bad_argument, got_value);    DWERROR((stderr, "%s():Bad arg %d (expected %s)\n",    func, which_arg, expected_type));    ERROR_DONE(generic);