aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-12-04 14:46:39 -05:00
Code

Added /SET perl_memory_check_level which works with only GC enabled. 0

Browse Source 
doesn't do any checks, 1 checks for memory to be valid (default) at the
time, 2 runs GC and then checks if memory valid (slower, but detects errors
much better).


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3064 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-12-23 06:16:30 +00:00 committed by cras
parent cdc52b773e
commit 2a8e1b5251
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/perl/perl-common.c
View File

@ -58,6 +58,7 @@ STRLEN PL_na;
static GHashTable *iobject_stashes, *plain_stashes; static GHashTable *iobject_stashes, *plain_stashes;
static GSList *use_protocols; static GSList *use_protocols;
static int perl_memory_check_level;
/* returns the package who called us */ /* returns the package who called us */
const char *perl_get_package(void) const char *perl_get_package(void)
@ -166,8 +167,12 @@ void *irssi_ref_object(SV *o)
croak("variable is damaged"); croak("variable is damaged");
p = GINT_TO_POINTER(SvIV(*sv)); p = GINT_TO_POINTER(SvIV(*sv));
#ifdef HAVE_GC #ifdef HAVE_GC
if (perl_memory_check_level > 0) {
if (perl_memory_check_level > 1)
GC_gcollect();
if (GC_base(p) == NULL) if (GC_base(p) == NULL)
croak("variable is already free'd"); croak("variable is already free'd");
}
#endif #endif
return p; return p;
} }
@ -637,6 +642,11 @@ static void perl_unregister_protocol(CHAT_PROTOCOL_REC *rec)
GINT_TO_POINTER(rec->id)); GINT_TO_POINTER(rec->id));
} }
static void read_settings(void)
{
perl_memory_check_level = settings_get_int("perl_memory_check_level");
}
void perl_common_start(void) void perl_common_start(void)
{ {
static PLAIN_OBJECT_INIT_REC core_plains[] = { static PLAIN_OBJECT_INIT_REC core_plains[] = {
@ -651,6 +661,9 @@ void perl_common_start(void)
{ NULL, NULL } { NULL, NULL }
}; };
settings_add_int("perl", "perl_memory_check_level", 1);
read_settings();
iobject_stashes = g_hash_table_new((GHashFunc) g_direct_hash, iobject_stashes = g_hash_table_new((GHashFunc) g_direct_hash,
(GCompareFunc) g_direct_equal); (GCompareFunc) g_direct_equal);
plain_stashes = g_hash_table_new((GHashFunc) g_str_hash, plain_stashes = g_hash_table_new((GHashFunc) g_str_hash,
@ -662,6 +675,7 @@ void perl_common_start(void)
signal_add("chat protocol created", (SIGNAL_FUNC) perl_register_protocol); signal_add("chat protocol created", (SIGNAL_FUNC) perl_register_protocol);
signal_add("chat protocol destroyed", (SIGNAL_FUNC) perl_unregister_protocol); signal_add("chat protocol destroyed", (SIGNAL_FUNC) perl_unregister_protocol);
signal_add("setup changed", (SIGNAL_FUNC) read_settings);
} }
void perl_common_stop(void) void perl_common_stop(void)
@ -680,4 +694,5 @@ void perl_common_stop(void)
signal_remove("chat protocol created", (SIGNAL_FUNC) perl_register_protocol); signal_remove("chat protocol created", (SIGNAL_FUNC) perl_register_protocol);
signal_remove("chat protocol destroyed", (SIGNAL_FUNC) perl_unregister_protocol); signal_remove("chat protocol destroyed", (SIGNAL_FUNC) perl_unregister_protocol);
signal_remove("setup changed", (SIGNAL_FUNC) read_settings);
} }