pike.git/
src/
pike_types.c
Branch:
Tag:
Non-build tags
All tags
No tags
2004-03-11
2004-03-11 12:55:47 by Henrik Grubbström (Grubba) <grubba@grubba.org>
e87c52ec3bb315d4b32108d98c07843060758c66 (
12
lines) (+
10
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
Added some debug code that might trigger on OSF/1.
Rev: src/pike_types.c:1.232
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: pike_types.c,v 1.
231
2004/03/
10
18
:
08
:
12
grubba Exp $
+
|| $Id: pike_types.c,v 1.
232
2004/03/
11
12
:
55
:
47
grubba Exp $
*/ #include "global.h"
-
RCSID("$Id: pike_types.c,v 1.
231
2004/03/
10
18
:
08
:
12
grubba Exp $");
+
RCSID("$Id: pike_types.c,v 1.
232
2004/03/
11
12
:
55
:
47
grubba Exp $");
#include <ctype.h> #include "svalue.h" #include "pike_types.h"
330:
unsigned INT32 index = hash % pike_type_hash_size; struct pike_type *t;
+
/* PIKE_DEBUG code */
+
if (index >= pike_type_hash_size) {
+
Pike_fatal("Modulo operation failed for hash:%u, index:%u, size:%u.\n",
+
hash, index, pike_type_hash_size);
+
}
+
/* End PIKE_DEBUG code */
+
for(t = pike_type_hash[index]; t; t = t->next) { if ((t->hash == hash) && (t->type == type) && (t->car == car) && (t->cdr == cdr)) {