pike.git/ src/ builtin_functions.c

1999-03-10

1999-03-10 02:41:18 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• f2859177d31a5f8bb14281baf43c30c5880d9eb6 (26 lines) (+24/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

hash patched

Rev: src/builtin_functions.c:1.154
Rev: src/pike_memory.c:1.34
Rev: src/pike_memory.h:1.10

5:   \*/   /**/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.153 1999/02/28 17:07:40 grubba Exp $"); + RCSID("$Id: builtin_functions.c,v 1.154 1999/03/10 02:41:15 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"
94:    PIKE_ERROR("hash", "Too few arguments.\n", sp, 0);    if(sp[-args].type != T_STRING)    PIKE_ERROR("hash", "Bad argument 1.\n", sp, args); +  +  switch(sp[-args].u.string->size_shift) +  { +  case 0:    i=hashstr((unsigned char *)sp[-args].u.string->str,100); -  +  break;    -  +  case 1: +  i=simple_hashmem((unsigned char *)sp[-args].u.string->str, +  sp[-args].u.string->len << 1, +  200); +  break; +  +  case 2: +  i=simple_hashmem((unsigned char *)sp[-args].u.string->str, +  sp[-args].u.string->len << 2, +  400); +  break; +  +  default: +  fatal("Foo!\n"); +  } +     if(args > 1)    {    if(sp[1-args].type != T_INT)