diff options
author | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2014-09-19 01:45:45 +0000 |
---|---|---|
committer | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2014-09-19 01:45:45 +0000 |
commit | d9a597408f0f192ff25ab51e1e6733fe6fefc01b (patch) | |
tree | f90cfc910b6aad5a179ea4ab9232c67e04787b40 /class.c | |
parent | c7d0edb5b6765525397010f3360466b3cec2253c (diff) | |
download | ruby-d9a597408f0f192ff25ab51e1e6733fe6fefc01b.tar.gz |
class.c: do not freeze meta-meta-class
* class.c (rb_freeze_singleton_class): should not propagate to
meta-meta-class, and so on, which is shared with the original
class. fix occational exceptions.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@47633 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'class.c')
-rw-r--r-- | class.c | 13 |
1 files changed, 13 insertions, 0 deletions
@@ -1578,6 +1578,19 @@ singleton_class_of(VALUE obj) return klass; } +void +rb_freeze_singleton_class(VALUE x) +{ + /* should not propagate to meta-meta-class, and so on */ + if (!(RBASIC(x)->flags & FL_SINGLETON)) { + VALUE klass = RBASIC_CLASS(x); + klass = RCLASS_ORIGIN(klass); + if (FL_TEST(klass, (FL_SINGLETON|FL_FREEZE)) == FL_SINGLETON) { + OBJ_FREEZE_RAW(klass); + } + } +} + /*! * Returns the singleton class of \a obj, or nil if obj is not a * singleton object. |