From f152407fe46035ad3dc3dd52a70f008663449f29 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Fri, 21 Jun 1996 21:41:51 +0200
Subject: [PATCH] hash_svalue moved
Rev: src/mapping.c:1.7
---
src/mapping.c | 16 ++--------------
1 file changed, 2 insertions(+), 14 deletions(-)
diff --git a/src/mapping.c b/src/mapping.c
index 9ed17cd250..8b71f34e54 100644
--- a/src/mapping.c
+++ b/src/mapping.c
@@ -107,20 +107,6 @@ static struct mapping *allocate_mapping(int size)
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)
{
@@ -947,6 +933,8 @@ struct mapping *copy_mapping_recursively(struct mapping *m,
ret=allocate_mapping(MAP_SLOTS(m->size));
doing.pointer_b=ret;
+ check_stack(2);
+
LOOP(m)
{
/* check_destructed(& k->ind); */
--
GitLab