generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-03-18 20:38:00 +01:00
Code Issues Projects Releases Wiki Activity

Revert "The object root can be NULL"

Browse Source 
This reverts commit 5bdac96375f0cc5b75313cc3a9a7bbeb21594a0b.
This commit is contained in:
gfx 2010-09-15 14:19:22 +09:00
parent 5bdac96375
commit 0ae206b1bb
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
perl/xs-src/unpack.c
View File

@ -50,7 +50,8 @@ static int template_execute(msgpack_unpack_t* u PERL_UNUSED_DECL,
STATIC_INLINE SV* template_callback_root(unpack_user* u PERL_UNUSED_DECL)
{
return NULL;
dTHX;
return &PL_sv_undef;
}
STATIC_INLINE int template_callback_uint8(unpack_user* u PERL_UNUSED_DECL, uint8_t d, SV** o)
@ -309,7 +310,7 @@ STATIC_INLINE SV* _execute_impl(SV* self, SV* data, UV off, size_t limit) {
XS(xs_unpacker_execute) {
dXSARGS;
if (items != 3) {
Perl_croak(aTHX_ "Usage: $unpacker->execute(data, off)");
Perl_croak(aTHX_ "Usage: $unpacker->execute_limit(data, off)");
}
UNPACKER(ST(0), mp);
@ -397,8 +398,8 @@ XS(xs_unpacker_destroy) {
}
UNPACKER(ST(0), mp);
SV* const data = template_data(mp);
if (data) {
SV * data = template_data(mp);
if (SvOK(data)) {
SvREFCNT_dec(data);
}
Safefree(mp);