diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-12-17 17:17:34 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-18 16:06:38 +0000 |
| commit | 6a3d5e3dbfbb290a39e3787450653a41f07f3b5d (patch) | |
| tree | 919cbe41888dfb8fb191c942adddf029b56ae7a7 /scope.h | |
| parent | c38a65302a7e2e2ea9b8748d368c87d573add6fd (diff) | |
| download | perl-6a3d5e3dbfbb290a39e3787450653a41f07f3b5d.tar.gz | |
Re: [PATCH] do not meddle in the affairs of PERL_TRACK_MEMPOOL
Message-ID: <4586084E.8040706@iki.fi>
Introduce CopLABEL() macro to deal with labels attached to COPs.
p4raw-id: //depot/perl@29585
Diffstat (limited to 'scope.h')
| -rw-r--r-- | scope.h | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -219,11 +219,15 @@ Closing bracket on a callback. See C<ENTER> and L<perlcall>. # define SAVECOPSTASH_FREE(c) SAVESHAREDPV(CopSTASHPV(c)) # define SAVECOPFILE(c) SAVEPPTR(CopFILE(c)) # define SAVECOPFILE_FREE(c) SAVESHAREDPV(CopFILE(c)) +# define SAVECOPLABEL(c) SAVEPPTR(CopLABEL(c)) +# define SAVECOPLABEL_FREE(c) SAVESHAREDPV(CopLABEL(c)) #else # define SAVECOPSTASH(c) SAVESPTR(CopSTASH(c)) # define SAVECOPSTASH_FREE(c) SAVECOPSTASH(c) /* XXX not refcounted */ # define SAVECOPFILE(c) SAVESPTR(CopFILEGV(c)) # define SAVECOPFILE_FREE(c) SAVEGENERICSV(CopFILEGV(c)) +# define SAVECOPLABEL(c) SAVEPPTR(CopLABEL(c)) +# define SAVECOPLABEL_FREE(c) SAVEPPTR(CopLABEL(c)) #endif #define SAVECOPLINE(c) SAVEI32(CopLINE(c)) |