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

oops. fixed memory leaks in stream unpacker.

Browse Source
This commit is contained in:
Tokuhiro Matsuno 2009-07-02 17:42:28 +09:00
parent 580fbe77e9
commit ffef0a0b6f
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
perl/MessagePack.c
View File

@ -18,6 +18,7 @@ XS(xs_unpacker_execute_limit);
XS(xs_unpacker_is_finished); XS(xs_unpacker_is_finished);
XS(xs_unpacker_data); XS(xs_unpacker_data);
XS(xs_unpacker_reset); XS(xs_unpacker_reset);
XS(xs_unpacker_destroy);
XS(boot_Data__MessagePack) { XS(boot_Data__MessagePack) {
dXSARGS; dXSARGS;
@ -35,6 +36,6 @@ XS(boot_Data__MessagePack) {
newXS("Data::MessagePack::Unpacker::is_finished", xs_unpacker_is_finished, __FILE__); newXS("Data::MessagePack::Unpacker::is_finished", xs_unpacker_is_finished, __FILE__);
newXS("Data::MessagePack::Unpacker::data", xs_unpacker_data, __FILE__); newXS("Data::MessagePack::Unpacker::data", xs_unpacker_data, __FILE__);
newXS("Data::MessagePack::Unpacker::reset", xs_unpacker_reset, __FILE__); newXS("Data::MessagePack::Unpacker::reset", xs_unpacker_reset, __FILE__);
newXS("Data::MessagePack::Unpacker::DESTROY", xs_unpacker_destroy, __FILE__);
} }

11
perl/unpack.c
View File

@ -288,3 +288,14 @@ XS(xs_unpacker_reset) {
XSRETURN(0); XSRETURN(0);
} }
XS(xs_unpacker_destroy) {
dXSARGS;
if (items != 1) {
Perl_croak(aTHX_ "Usage: $unpacker->DESTROY()");
}
UNPACKER(ST(0), mp);
Safefree(mp);
XSRETURN(0);
}