diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-09-19 14:30:10 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-09-19 14:30:10 +0000 |
| commit | f31b59b48b8bba81f2a0396e87eded5a616ab567 (patch) | |
| tree | 43cb0e06dbdfbbc77cc7414851fdd73ead599426 /src/perl/perl-common.h | |
| parent | fe73785c7a3573b89323bb4ee88d3c67b97707e2 (diff) | |
| download | irssi-f31b59b48b8bba81f2a0396e87eded5a616ab567.zip | |
support for threaded perl. patch by mls@suse.de
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2930 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-common.h')
| -rw-r--r-- | src/perl/perl-common.h | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/perl/perl-common.h b/src/perl/perl-common.h index 9fa85f07..50469942 100644 --- a/src/perl/perl-common.h +++ b/src/perl/perl-common.h @@ -32,6 +32,10 @@ SV *perl_func_sv_inc(SV *func, const char *package); extern STRLEN PL_na; #endif +#ifndef pTHX_ +# define pTHX_ +#endif + #define iobject_bless(object) \ ((object) == NULL ? &PL_sv_undef : \ irssi_bless_iobject((object)->type, (object)->chat_type, object)) @@ -57,10 +61,10 @@ void irssi_add_plains(PLAIN_OBJECT_INIT_REC *objects); char *perl_get_use_list(void); #define irssi_boot(x) { \ - extern void boot_Irssi__##x(CV *cv); \ + extern void boot_Irssi__##x(pTHX_ CV *cv); \ irssi_callXS(boot_Irssi__##x, cv, mark); \ } -void irssi_callXS(void (*subaddr)(CV* cv), CV *cv, SV **mark); +void irssi_callXS(void (*subaddr)(pTHX_ CV* cv), CV *cv, SV **mark); void perl_common_start(void); void perl_common_stop(void); |