diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-03-13 00:40:12 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-03-13 00:40:12 +0000 |
| commit | 7b1d5ed41aeb7d6dc99655281771f1436dfa5a22 (patch) | |
| tree | d407bc330b78d5efeb02a17424c58dd8a28fb4d8 /src/perl | |
| parent | 65e87c9861385cf8dc05c612e8b67edebea61284 (diff) | |
| download | irssi-7b1d5ed41aeb7d6dc99655281771f1436dfa5a22.zip | |
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
Diffstat (limited to 'src/perl')
| -rw-r--r-- | src/perl/perl-common.c | 6 |
1 files changed, 5 insertions, 1 deletions
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))); |