1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
ruby--ruby/ext/-test-/marshal/compat/usrcompat.c
nobu 81a0c608eb compatible loader
* marshal.c (r_object0): also load TYPE_USRMARSHAL, TYPE_DATA using
  compatible loader.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@35898 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2012-06-04 02:40:30 +00:00

32 lines
669 B
C

#include <ruby.h>
static VALUE
usr_dumper(VALUE self)
{
return self;
}
static VALUE
usr_loader(VALUE self, VALUE m)
{
VALUE val = rb_ivar_get(m, rb_intern("@value"));
*(int *)DATA_PTR(self) = NUM2INT(val);
return self;
}
static VALUE
compat_mload(VALUE self, VALUE data)
{
rb_ivar_set(self, rb_intern("@value"), data);
return self;
}
void
Init_compat(void)
{
VALUE newclass = rb_path2class("Bug::Marshal::UsrMarshal");
VALUE oldclass = rb_define_class_under(newclass, "compat", rb_cObject);
rb_define_method(oldclass, "marshal_load", compat_mload, 1);
rb_marshal_define_compat(newclass, oldclass, usr_dumper, usr_loader);
}