pike.git/
src/
mapping.c
Branch:
Tag:
Non-build tags
All tags
No tags
1996-06-21
1996-06-21 19:41:51 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
f152407fe46035ad3dc3dd52a70f008663449f29 (
17
lines) (+
3
/-
14
)
[
Show
|
Annotate
]
Branch:
branches/E-12
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); */