diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-15 15:11:05 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-15 15:11:05 +0000 |
| commit | 98a29390254d3cb423096b6282689bfe2a7e6a13 (patch) | |
| tree | 7bef01eb07750fb8e9686429e95216a0ca3281c5 /sv.h | |
| parent | f7bbb42a8a35cccf48af0f4db3b373ffcb7e1ac5 (diff) | |
| download | perl-98a29390254d3cb423096b6282689bfe2a7e6a13.tar.gz | |
This seems to be a stage sane and stable enough to checkin.
(it basically is 8102..8118+8122 but no 8120, 8121, 8123, 8124)
p4raw-id: //depot/perl@8125
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 10 |
1 files changed, 0 insertions, 10 deletions
@@ -448,9 +448,6 @@ Tells and SV that it is an unsigned integer and disables all other OK bits. =for apidoc Am|void|SvIOK_UV|SV* sv Returns a boolean indicating whether the SV contains an unsigned integer. -=for apidoc Am|void|SvUOK|SV* sv -Returns a boolean indicating whether the SV contains an unsigned integer. - =for apidoc Am|void|SvIOK_notUV|SV* sv Returns a boolean indicating whether the SV contains an signed integer. @@ -565,7 +562,6 @@ Set the length of the string which is in the SV. See C<SvCUR>. #define SvIOK_UV(sv) ((SvFLAGS(sv) & (SVf_IOK|SVf_IVisUV)) \ == (SVf_IOK|SVf_IVisUV)) -#define SvUOK(sv) SvIOK_UV(sv) #define SvIOK_notUV(sv) ((SvFLAGS(sv) & (SVf_IOK|SVf_IVisUV)) \ == SVf_IOK) @@ -718,12 +714,6 @@ and disables all other OK bits. #define SvMAGIC(sv) ((XPVMG*) SvANY(sv))->xmg_magic #define SvSTASH(sv) ((XPVMG*) SvANY(sv))->xmg_stash -/* Ask a scalar nicely to try to become an IV, if possible. - Not guaranteed to stay returning void */ -/* Macro won't actually call sv_2iv if already IOK */ -#define SvIV_please(sv) \ - STMT_START {if (!SvIOKp(sv) && (SvNOK(sv) || SvPOK(sv))) \ - (void) SvIV(sv); } STMT_END #define SvIV_set(sv, val) \ STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= SVt_PVIV); \ (((XPVIV*) SvANY(sv))->xiv_iv = val); } STMT_END |