2005-06-03
2005-06-03 14:54:36 by Henrik Grubbström (Grubba) <grubba@grubba.org>
-
a0710482a58428682507260b6a8799252c7f1746
(56 lines)
(+41/-15)
[
Show
| Annotate
]
Branch: 7.9
Increased verbosity and robustness of PIKE_EXTRA_DEBUG.
Rev: src/pike_types.c:1.248
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.247 2005/05/19 22:35:31 mast Exp $
+ || $Id: pike_types.c,v 1.248 2005/06/03 14:54:36 grubba Exp $
*/
#include "global.h"
341:
~(0x10001*PTR_TO_INT(cdr)));
unsigned INT32 index = hash % pike_type_hash_size;
struct pike_type *t;
+ #ifdef PIKE_EXTRA_DEBUG
+ static unsigned INT32 extra_debug_index = (unsigned INT32)~0;
+ #endif /* PIKE_EXTRA_DEBUG */
/* PIKE_DEBUG code */
if (type & ~255) {
364:
}
/* End PIKE_DEBUG code */
- for(t = pike_type_hash[index]; t; t = t->next) {
+
#ifdef PIKE_EXTRA_DEBUG
- if ((type == T_FUNCTION) &&
+ if ((!~extra_debug_index) &&
+ (type == T_FUNCTION) &&
(car->type == T_STRING) &&
(cdr->type == T_FUNCTION) &&
(cdr->car->type == T_STRING) &&
379: Inside #if defined(PIKE_EXTRA_DEBUG)
* The problem triggs when the type for normalize() is created.
* function(string,string:string)
* /grubba 2005-02-04
+ *
+ * Load order:
+ * Module Hashtable status Note
+ * Nettle.so OK
+ * ___Oracle.so - load_module() fails.
+ * Image.so - loads ok.
+ * Unicode.so FAIL
+ *
+ * pike_type node:
+ * Field Before After
+ * t 1404b5020 1404b5020
+ * t->type 4 (function) 65535 (unknown)
+ * t->car 1404863f8 (1404863f8) 140557560 (1404863f8)
+ * t->cdr 1404b43d8 (1404b43d8) 400000000 (1404b43d8)
+ * t->next 0 100000000
+ * /grubba 2005-06-03
*/
-
+ extra_debug_index = index;
+ }
+ #endif /* PIKE_EXTRA_DEBUG */
+ for(t = pike_type_hash[index]; t; t = t->next) {
+ #ifdef PIKE_EXTRA_DEBUG
+ if (index == extra_debug_index) {
fprintf(stderr,
" %s:%d:PIKE_EXTRA_DEBUG:\n"
" t: %p\n",