generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-03-19 04:52:59 +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) 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) 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) { XS(xs_unpacker_execute) {
dXSARGS; dXSARGS;
if (items != 3) { if (items != 3) {
Perl_croak(aTHX_ "Usage: $unpacker->execute(data, off)"); Perl_croak(aTHX_ "Usage: $unpacker->execute_limit(data, off)");
} }
UNPACKER(ST(0), mp); UNPACKER(ST(0), mp);
@ -397,8 +398,8 @@ XS(xs_unpacker_destroy) {
} }
UNPACKER(ST(0), mp); UNPACKER(ST(0), mp);
SV* const data = template_data(mp); SV * data = template_data(mp);
if (data) { if (SvOK(data)) {
SvREFCNT_dec(data); SvREFCNT_dec(data);
} }
Safefree(mp); Safefree(mp);