diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-01-25 06:13:14 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-01-25 06:13:14 +0000 |
| commit | cbc136411c12f6ec4b242bce922c7013acd6aa1d (patch) | |
| tree | 1d2f5cc684d162d2ba434e5b6e26be6242d7490d /perlapi.c | |
| parent | 1ac4a978d1dfb6f1f4abe73e0845e644769e4a6e (diff) | |
| parent | 82867ecff54600b40335bf899f794c873ac8a5c9 (diff) | |
| download | perl-cbc136411c12f6ec4b242bce922c7013acd6aa1d.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4887
Diffstat (limited to 'perlapi.c')
| -rwxr-xr-x | perlapi.c | 16 |
1 files changed, 15 insertions, 1 deletions
@@ -7,7 +7,7 @@ #include "perl.h" #include "perlapi.h" -#if defined(PERL_OBJECT) +#if defined(PERL_OBJECT) || defined (MULTIPLICITY) /* accessor functions for Perl variables (provides binary compatibility) */ START_EXTERN_C @@ -16,10 +16,19 @@ START_EXTERN_C #undef PERLVARA #undef PERLVARI #undef PERLVARIC + +#if defined(PERL_OBJECT) #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHXo) \ { return &(aTHXo->interp.v); } #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \ { return &(aTHXo->interp.v); } +#else /* MULTIPLICITY */ +#define PERLVAR(v,t) t* Perl_##v##_ptr(pTHX) \ + { return &(aTHX->v); } +#define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHX) \ + { return &(aTHX->v); } +#endif + #define PERLVARI(v,t,i) PERLVAR(v,t) #define PERLVARIC(v,t,i) PERLVAR(v, const t) @@ -39,6 +48,10 @@ START_EXTERN_C #undef PERLVARI #undef PERLVARIC +#if defined(PERL_OBJECT) + +/* C-API layer for PERL_OBJECT */ + #if defined(PERL_IMPLICIT_SYS) #else #endif @@ -7849,3 +7862,4 @@ Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...) END_EXTERN_C #endif /* PERL_OBJECT */ +#endif /* PERL_OBJECT || MULTIPLICITY */ |