diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-30 09:23:36 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-30 09:23:36 +0000 |
| commit | 76e3520e1f6b7df33cd381a2cf4f1fce3d69c8a4 (patch) | |
| tree | 1d4e5f5653fd9def6bd71cc0cb536400223f4d3e /pp.h | |
| parent | 6ad3d225cec2692b410002582f5558652eea32c8 (diff) | |
| download | perl-76e3520e1f6b7df33cd381a2cf4f1fce3d69c8a4.tar.gz | |
[asperl] added AS patch#2
p4raw-id: //depot/asperl@443
Diffstat (limited to 'pp.h')
| -rw-r--r-- | pp.h | 13 |
1 files changed, 9 insertions, 4 deletions
@@ -15,7 +15,11 @@ #define dARGS #endif /* USE_THREADS */ #ifdef CAN_PROTOTYPE +#ifdef PERL_OBJECT +#define PP(s) OP* CPerlObj::s _((ARGSproto)) +#else #define PP(s) OP * s(ARGSproto) +#endif #else /* CAN_PROTOTYPE */ #define PP(s) OP* s(ARGS) dARGS #endif /* CAN_PROTOTYPE */ @@ -217,10 +221,11 @@ /* newSVsv does not behave as advertised, so we copy missing * information by hand */ - -#define RvDEEPCP(rv) STMT_START { SV* ref=SvRV(rv); \ - if (SvREFCNT(ref)>1) { \ - SvREFCNT_dec(ref); \ +/* SV* ref causes confusion with the member variable + changed SV* ref to SV* tmpRef */ +#define RvDEEPCP(rv) STMT_START { SV* tmpRef=SvRV(rv); \ + if (SvREFCNT(tmpRef)>1) { \ + SvREFCNT_dec(tmpRef); \ SvRV(rv)=AMG_CALLun(rv,copy); \ } } STMT_END #else |