kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

revert r53228 because this patch breaks rubyspec

Browse source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@53229 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
ko1 2015-12-21 10:32:33 +00:00
parent 1bcee938d5
commit 800607aa7e
4 changed files with 1 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

10
ChangeLog
View file

@ -1,13 +1,3 @@
Mon Dec 21 18:33:00 2015 Koichi Sasada <ko1@atdot.net>
* gc.c (internal_object_p): should not expose singleton classes
without a metaclass.
[Bug #11740]
* class.c (rb_singleton_class_has_metaclass_p): added.
* test/ruby/test_class.rb: add a test.
Mon Dec 21 12:15:32 2015 Kimura Wataru <kimuraw@i.nifty.jp> Mon Dec 21 12:15:32 2015 Kimura Wataru <kimuraw@i.nifty.jp>
* test/ruby/test_io.rb: handled rlimit value same as r52277 * test/ruby/test_io.rb: handled rlimit value same as r52277

14
class.c
View file

@ -442,12 +442,6 @@ rb_singleton_class_attached(VALUE klass, VALUE obj)
*/ */
#define META_CLASS_OF_CLASS_CLASS_P(k) (METACLASS_OF(k) == (k)) #define META_CLASS_OF_CLASS_CLASS_P(k) (METACLASS_OF(k) == (k))
int
rb_singleton_class_has_metaclass_p(VALUE sklass)
{
return rb_attr_get(METACLASS_OF(sklass), id_attached) == sklass;
}
/*! /*!
* whether k has a metaclass * whether k has a metaclass
* @retval 1 if \a k has a metaclass * @retval 1 if \a k has a metaclass
@ -455,13 +449,7 @@ rb_singleton_class_has_metaclass_p(VALUE sklass)
*/ */
#define HAVE_METACLASS_P(k) \ #define HAVE_METACLASS_P(k) \
(FL_TEST(METACLASS_OF(k), FL_SINGLETON) && \ (FL_TEST(METACLASS_OF(k), FL_SINGLETON) && \
rb_singleton_class_has_metaclass_p(k)) rb_ivar_get(METACLASS_OF(k), id_attached) == (k))
int
rb_class_has_metaclass_p(VALUE klass)
{
return HAVE_METACLASS_P(klass);
}
/*! /*!
* ensures \a klass belongs to its own eigenclass. * ensures \a klass belongs to its own eigenclass.

7
gc.c
View file

@ -2400,13 +2400,6 @@ internal_object_p(VALUE obj)
case T_NODE: case T_NODE:
case T_ZOMBIE: case T_ZOMBIE:
break; break;
case T_CLASS:
{
if (FL_TEST(obj, FL_SINGLETON)) {
int rb_singleton_class_has_metaclass_p(VALUE sklass);
return rb_singleton_class_has_metaclass_p(obj) == 0;
}
}
default: default:
if (!p->as.basic.klass) break; if (!p->as.basic.klass) break;
return 0; return 0;

20
test/ruby/test_class.rb
View file

@ -556,24 +556,4 @@ class TestClass < Test::Unit::TestCase
} }
end; end;
end end
def test_should_not_expose_singleton_class_without_metaclass
assert_normal_exit %q{
klass = Class.new(Array)
# The metaclass of +klass+ should handle #bla since it should inherit methods from meta:meta:Array
def (Array.singleton_class).bla; :bla; end
hidden = ObjectSpace.each_object(Class).find { |c| klass.is_a? c and c.inspect.include? klass.inspect }
raise unless hidden.nil?
}, '[Bug #11740]'
assert_normal_exit %q{
klass = Class.new(Array)
klass.singleton_class
# The metaclass of +klass+ should handle #bla since it should inherit methods from meta:meta:Array
def (Array.singleton_class).bla; :bla; end
hidden = ObjectSpace.each_object(Class).find { |c| klass.is_a? c and c.inspect.include? klass.inspect }
raise if hidden.nil?
}, '[Bug #11740]'
end
end end