diff options
| author | Reini Urban <rurban@x-ray.at> | 2008-06-08 18:17:32 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-06-08 15:37:48 +0000 |
| commit | 7948fc082b7916e5f602700f36d83fdcf421314c (patch) | |
| tree | 3d456686816014bf4f822ebc2de128e0ca922397 /cv.h | |
| parent | 603aa20df51288786331f1d6680081156c2ce5a9 (diff) | |
| download | perl-7948fc082b7916e5f602700f36d83fdcf421314c.tar.gz | |
Re: [PATCH] readable assertion names, now the rest
From: "Reini Urban" <rurban@x-ray.at>
Message-ID: <6910a60806080717h1aaaef1fh425a2ef21a62c9ed@mail.gmail.com>
p4raw-id: //depot/perl@34030
Diffstat (limited to 'cv.h')
| -rw-r--r-- | cv.h | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -56,10 +56,10 @@ Returns the stash of the CV. #endif #define CvFILEGV(sv) (gv_fetchfile(CvFILE(sv))) #if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) -# define CvDEPTH(sv) (*({const CV *_cv = (CV *)sv; \ - assert(SvTYPE(_cv) == SVt_PVCV || \ - SvTYPE(_cv) == SVt_PVFM); \ - &((XPVCV*)SvANY(_cv))->xiv_u.xivu_i32; \ +# define CvDEPTH(sv) (*({const CV *_cvdepth = (CV *)sv; \ + assert(SvTYPE(_cvdepth) == SVt_PVCV || \ + SvTYPE(_cvdepth) == SVt_PVFM); \ + &((XPVCV*)SvANY(_cvdepth))->xiv_u.xivu_i32; \ })) #else # define CvDEPTH(sv) ((XPVCV*)SvANY(sv))->xiv_u.xivu_i32 |