From 7b1d5ed41aeb7d6dc99655281771f1436dfa5a22 Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Wed, 13 Mar 2002 00:40:12 +0000 Subject: [PATCH] added some debugging code to irssi_bless_iobject() - can it really be an overflow? :) git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2590 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/perl-common.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c index cb5f0987..550425de 100644 --- a/src/perl/perl-common.c +++ b/src/perl/perl-common.c @@ -99,8 +99,12 @@ SV *irssi_bless_iobject(int type, int chat_type, void *object) PERL_OBJECT_REC *rec; HV *stash, *hv; - g_return_val_if_fail((type & ~0xffff) == 0, NULL); g_return_val_if_fail((chat_type & ~0xffff) == 0, NULL); + if ((type & ~0xffff) != 0) { + g_warning("BUG - id = %d, uniq. ID counter going in %d", + type, module_get_uniq_id("bug", 0)); + return NULL; + } rec = g_hash_table_lookup(iobject_stashes, GINT_TO_POINTER(type | (chat_type << 16)));