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

Tweaks for unpacker

Browse Source
This commit is contained in:
gfx 2010-09-15 13:41:10 +09:00
parent 0e0a2aa981
commit 1de03fbe18
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -198,7 +198,10 @@ STATIC_INLINE int template_callback_raw(unpack_user* u PERL_UNUSED_DECL, const c
#define UNPACKER(from, name) \ #define UNPACKER(from, name) \
msgpack_unpack_t *name; \ msgpack_unpack_t *name; \
name = INT2PTR(msgpack_unpack_t*, SvROK((from)) ? SvIV(SvRV((from))) : SvIV((from))); \ if(!(SvROK(from) && SvIOK(SvRV(from)))) { \
Perl_croak(aTHX_ "Invalid unpacker instance for " #name); \
} \
name = INT2PTR(msgpack_unpack_t*, SvIVX(SvRV((from)))); \
if(name == NULL) { \ if(name == NULL) { \
Perl_croak(aTHX_ "NULL found for " # name " when shouldn't be."); \ Perl_croak(aTHX_ "NULL found for " # name " when shouldn't be."); \
} }