From c1bbe10599dfcc2dca3823dc0784eb1835c1ed74 Mon Sep 17 00:00:00 2001 From: matz Date: Wed, 9 Aug 2000 04:32:24 +0000 Subject: matz git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@882 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ruby.h | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'ruby.h') diff --git a/ruby.h b/ruby.h index 11c429ffa3..09f2190609 100644 --- a/ruby.h +++ b/ruby.h @@ -217,13 +217,12 @@ char *rb_str2cstr _((VALUE,int*)); VALUE rb_newobj _((void)); #define NEWOBJ(obj,type) type *obj = (type*)rb_newobj() #define OBJSETUP(obj,c,t) {\ - RBASIC(obj)->klass = (c);\ RBASIC(obj)->flags = (t);\ + RBASIC(obj)->klass = (c);\ if (rb_safe_level() >= 3) FL_SET(obj, FL_TAINT);\ } #define CLONESETUP(clone,obj) do {\ - RBASIC(clone)->flags = (RBASIC(obj)->flags);\ - RBASIC(obj)->klass = (rb_singleton_class_clone(RBASIC(obj)->klass));\ + OBJSETUP(clone,rb_singleton_class_clone(RBASIC(obj)->klass),RBASIC(obj)->flags);\ rb_singleton_class_attached(RBASIC(clone)->klass, (VALUE)clone);\ if (FL_TEST(obj, FL_EXIVAR)) rb_clone_generic_ivar((VALUE)clone,(VALUE)obj);\ } while (0) -- cgit v1.2.3