cvs commit: ponie/perl sv.h
[email protected] (Nicholas Clark) 15 Oct 2004 16:22:46 -0000
| Newsgroups | perl.ponie.changes |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/10/15 09:22:45
Modified: perl sv.h
Log:
Implement nosteal with calls into PMCs
Revision Changes Path
1.43 +5 -3 ponie/perl/sv.h
Index: sv.h
===================================================================
RCS file: /cvs/public/ponie/perl/sv.h,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -w -r1.42 -r1.43
--- sv.h 15 Oct 2004 15:52:25 -0000 1.42
+++ sv.h 15 Oct 2004 16:22:45 -0000 1.43
@@ -1286,10 +1286,12 @@
#define SvSetSV_nosteal_and(dst,src,finally) \
STMT_START { \
if ((dst) != (src)) { \
- U32 tMpF = SvFLAGS(src) & SVs_TEMP; \
+ U32 tMpF = SvTEMP(src); \
+ if (tMpF) \
SvTEMP_off(src); \
sv_setsv(dst, src); \
- SvFLAGS(src) |= tMpF; \
+ if (tMpF) \
+ SvTEMP_on(src); \
finally; \
} \
} STMT_END