Merged with Irssi CVS.

[silc.git] / apps / irssi / src / perl / perl-common.h

diff --git a/apps/irssi/src/perl/perl-common.h b/apps/irssi/src/perl/perl-common.h
index 9fa85f07824fc10c8d21ae2d0b5844d5f1283fc4..cef0036ff12f2b9c35cad3985660208ef8894ce5 100644 (file)
--- a/apps/irssi/src/perl/perl-common.h
+++ b/apps/irssi/src/perl/perl-common.h
@@ -32,6 +32,14 @@ SV *perl_func_sv_inc(SV *func, const char *package);
 extern STRLEN PL_na;
 #endif
 
+#ifndef pTHX_
+#  define pTHX_
+#endif
+
+#ifndef aTHX_
+#  define aTHX_
+#endif
+
 #define iobject_bless(object) \
        ((object) == NULL ? &PL_sv_undef : \
        irssi_bless_iobject((object)->type, (object)->chat_type, object))
@@ -57,10 +65,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);