From ea339864afeeb59a3101d597b65ea2005531dc48 Mon Sep 17 00:00:00 2001 From: nobu Date: Fri, 16 Jan 2004 05:33:39 +0000 Subject: * marshal.c (class2path): get class path and check referable. [ruby-dev:22588] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5469 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- marshal.c | 21 +++++++++++++++++---- 1 file changed, 17 insertions(+), 4 deletions(-) (limited to 'marshal.c') diff --git a/marshal.c b/marshal.c index c9e3c74c6b..c85d59f76b 100644 --- a/marshal.c +++ b/marshal.c @@ -98,6 +98,19 @@ struct dump_call_arg { int limit; }; +static VALUE +class2path(klass) + VALUE klass; +{ + VALUE path = rb_class_path(klass); + char *n = RSTRING(path)->ptr; + + if (rb_path2class(n) != klass) { + rb_raise(rb_eArgError, "%s cannot be referfed", n); + } + return path; +} + static void w_long _((long, struct dump_arg*)); static void @@ -382,7 +395,7 @@ w_class(type, obj, arg, check) VALUE klass = CLASS_OF(obj); w_extended(klass, arg, check); w_byte(type, arg); - path = rb_class2name(klass); + path = RSTRING(class2path(klass))->ptr; w_unique(path, arg); } @@ -397,7 +410,7 @@ w_uclass(obj, base_klass, arg) klass = rb_class_real(klass); if (klass != base_klass) { w_byte(TYPE_UCLASS, arg); - w_unique(rb_class2name(klass), arg); + w_unique(RSTRING(class2path(klass))->ptr, arg); } } @@ -517,7 +530,7 @@ w_object(obj, arg, limit) } w_byte(TYPE_CLASS, arg); { - VALUE path = rb_class_path(obj); + VALUE path = class2path(obj); if (RSTRING(path)->ptr[0] == '#') { rb_raise(rb_eTypeError, "can't dump anonymous class %s", RSTRING(path)->ptr); @@ -529,7 +542,7 @@ w_object(obj, arg, limit) case T_MODULE: w_byte(TYPE_MODULE, arg); { - VALUE path = rb_class_path(obj); + VALUE path = class2path(obj); if (RSTRING(path)->ptr[0] == '#') { rb_raise(rb_eTypeError, "can't dump anonymous module %s", RSTRING(path)->ptr); -- cgit v1.2.3