Branch: Tag:

1996-06-21

1996-06-21 19:41:51 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

hash_svalue moved

Rev: src/mapping.c:1.7

107:    return m;   }    - unsigned INT32 hash_svalue(struct svalue *s) - { -  unsigned INT32 q; -  switch(s->type) -  { -  case T_INT: q=s->u.integer; break; -  case T_FLOAT: q=(unsigned INT32)(s->u.float_number * 16843009.0); break; -  default: q=(unsigned INT32)s->u.refs >> 2; -  } -  q+=q % 997; -  q+=((q + s->type) * 9248339); +     -  return q; - } -  +    void really_free_mapping(struct mapping *m)   {    INT32 e;
947:    ret=allocate_mapping(MAP_SLOTS(m->size));    doing.pointer_b=ret;    +  check_stack(2); +     LOOP(m)    {    /* check_destructed(& k->ind); */