comparison: libpurple/plugins/perl/perl-common.h
libpurple/plugins/perl/perl-common.h
- changeset 34455
- cdc53b913dd4
- parent 33906
- dc870eacc2d0
- child 35001
- 85144a4a7942
equal
deleted
inserted
replaced
| 34454:a7b6015534e0 | 34455:cdc53b913dd4 |
|---|---|
| 32 #define PURPLE_PERL_BOOT_PROTO(x) \ | 32 #define PURPLE_PERL_BOOT_PROTO(x) \ |
| 33 void boot_Purple__##x(pTHX_ CV *cv); | 33 void boot_Purple__##x(pTHX_ CV *cv); |
| 34 | 34 |
| 35 #define PURPLE_PERL_BOOT(x) \ | 35 #define PURPLE_PERL_BOOT(x) \ |
| 36 purple_perl_callXS(boot_Purple__##x, cv, mark) | 36 purple_perl_callXS(boot_Purple__##x, cv, mark) |
| 37 | |
| 38 #ifdef HAVE_NEW_SVUPGRADE | |
| 39 # define SvUPGRADE_common(a, b) SvUPGRADE(a, b) | |
| 40 #else | |
| 41 # define SvUPGRADE_common(a, b) if (!SvUPGRADE(a, b)) { croak("Cannot upgrade variable"); } | |
| 42 #endif | |
| 37 | 43 |
| 38 typedef struct _PurplePerlInfoStrings PurplePerlInfoStrings; | 44 typedef struct _PurplePerlInfoStrings PurplePerlInfoStrings; |
| 39 | 45 |
| 40 typedef struct | 46 typedef struct |
| 41 { | 47 { |
