Branch: Tag:

2003-01-04

2003-01-04 15:24:51 by Martin Nilsson <mani@lysator.liu.se>

Fixed hash_7_0 error messages.

Rev: src/builtin_functions.c:1.455

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: builtin_functions.c,v 1.454 2002/12/07 13:52:09 grubba Exp $ + || $Id: builtin_functions.c,v 1.455 2003/01/04 15:24:51 nilsson Exp $   */      #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.454 2002/12/07 13:52:09 grubba Exp $"); + RCSID("$Id: builtin_functions.c,v 1.455 2003/01/04 15:24:51 nilsson Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"
80:   {    int i;    if(args != 2) -  PIKE_ERROR("equal", "Bad number of arguments.\n", Pike_sp, args); +  SIMPLE_TOO_FEW_ARGS_ERROR("equal", 2);       i=is_equal(Pike_sp-2,Pike_sp-1);    pop_n_elems(args);
133:    struct pike_string *s = Pike_sp[-args].u.string;    unsigned int i;    if(!args) -  SIMPLE_TOO_FEW_ARGS_ERROR("hash",1); +  SIMPLE_TOO_FEW_ARGS_ERROR("hash_7_0",1);    if(Pike_sp[-args].type != T_STRING) -  SIMPLE_BAD_ARG_ERROR("hash", 1, "string"); +  SIMPLE_BAD_ARG_ERROR("hash_7_0", 1, "string");       if( s->size_shift )    {
148:    if(args > 1)    {    if(Pike_sp[1-args].type != T_INT) -  SIMPLE_BAD_ARG_ERROR("hash",2,"int"); +  SIMPLE_BAD_ARG_ERROR("hash_7_0",2,"int");       if(!Pike_sp[1-args].u.integer) -  PIKE_ERROR("hash", "Modulo by zero.\n", Pike_sp, args); +  PIKE_ERROR("hash_7_0", "Modulo by zero.\n", Pike_sp, args);       i%=(unsigned INT32)Pike_sp[1-args].u.integer;    }