diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-09-26 17:35:50 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:09 -0700 |
| commit | c7abbf64034f62cedb5a6bfddec1d84a60828ffd (patch) | |
| tree | 3a924514c94b2c4acdab410e470049d3bd438989 /embed.h | |
| parent | 4886938f890920cda08b42ef372e260064020691 (diff) | |
| download | perl-c7abbf64034f62cedb5a6bfddec1d84a60828ffd.tar.gz | |
universal.c: ->isa, sv_derived_from UTF8 cleanup.
This makes them both nul-and-UTF8 clean, although the latter
is somewhat superficial, as mro isn't clean yet.
(Tests coming once ->can and ->DOES are clean)
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -556,6 +556,9 @@ #define sv_dec(a) Perl_sv_dec(aTHX_ a) #define sv_dec_nomg(a) Perl_sv_dec_nomg(aTHX_ a) #define sv_derived_from(a,b) Perl_sv_derived_from(aTHX_ a,b) +#define sv_derived_from_pv(a,b,c) Perl_sv_derived_from_pv(aTHX_ a,b,c) +#define sv_derived_from_pvn(a,b,c,d) Perl_sv_derived_from_pvn(aTHX_ a,b,c,d) +#define sv_derived_from_sv(a,b,c) Perl_sv_derived_from_sv(aTHX_ a,b,c) #define sv_destroyable(a) Perl_sv_destroyable(aTHX_ a) #define sv_does(a,b) Perl_sv_does(aTHX_ a,b) #define sv_dump(a) Perl_sv_dump(aTHX_ a) @@ -1560,7 +1563,7 @@ # endif # endif # if defined(PERL_IN_UNIVERSAL_C) -#define isa_lookup(a,b) S_isa_lookup(aTHX_ a,b) +#define isa_lookup(a,b,c,d) S_isa_lookup(aTHX_ a,b,c,d) # endif # if defined(PERL_IN_UTF8_C) #define is_utf8_char_slow S_is_utf8_char_slow |