diff options
| author | Gisle Aas <gisle@activestate.com> | 2006-01-04 16:15:34 +0000 |
|---|---|---|
| committer | Gisle Aas <gisle@activestate.com> | 2006-01-04 16:15:34 +0000 |
| commit | 89529cee496f815eec2d49f2510449af5063ddd8 (patch) | |
| tree | e06748af374c318d12651d338e657323af4a0ce7 /sv.h | |
| parent | 91d456aef184ffc6173bca456cc087b98f0e0831 (diff) | |
| download | perl-89529cee496f815eec2d49f2510449af5063ddd8.tar.gz | |
Make the new STR_WITH_LEN() affected compile under -Dusethreads.
Can't use STR_WITH_LEN() as argument to a macro :-(
p4raw-id: //depot/perl@26649
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -1425,9 +1425,11 @@ Like C<sv_catsv> but doesn't process magic. #define sv_2iv(sv) sv_2iv_flags(sv, SV_GMAGIC) #define sv_2uv(sv) sv_2uv_flags(sv, SV_GMAGIC) -#define newSVpvs(str) newSVpvn(STR_WITH_LEN(str)) -#define newSVpvs_share(str) newSVpvn_share(STR_WITH_LEN(str), 0) -#define sv_catpvs(sv, str) sv_catpvn_flags(sv, STR_WITH_LEN(str), SV_GMAGIC) +#define newSVpvs(str) Perl_newSVpvn(aTHX_ STR_WITH_LEN(str)) +#define newSVpvs_share(str) Perl_newSVpvn_share(aTHX_ STR_WITH_LEN(str), 0) +#define sv_catpvs(sv, str) Perl_sv_catpvn_flags(aTHX_ sv, STR_WITH_LEN(str), SV_GMAGIC) +#define savepvs(str) Perl_savepvn(aTHX_ STR_WITH_LEN(str)) +#define gv_stashpvs(str, create) Perl_gv_stashpvn(aTHX_ STR_WITH_LEN(str), create) /* Should be named SvCatPVN_utf8_upgrade? */ #define sv_catpvn_utf8_upgrade(dsv, sstr, slen, nsv) \ |