From 95d1b61a146f9e88564d3df7e648b78881741a61 Mon Sep 17 00:00:00 2001 From: nobu Date: Mon, 28 Jul 2014 08:15:42 +0000 Subject: symbols instead of IDs * encoding.c (rb_enc_get_index): deal with symbols instead of IDs to get rid of inadvertent pin-downs. * enum.c (chunk_ii): ditto. * enumerator.c (append_method): ditto. * iseq.c (iseq_load): ditto. * marshal.c (w_symbol, r_symlink, r_symreal, r_symbol): ditto. * signal.c (trap_handler): ditto. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@46988 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- marshal.c | 88 +++++++++++++++++++++++++++++++-------------------------------- 1 file changed, 44 insertions(+), 44 deletions(-) (limited to 'marshal.c') diff --git a/marshal.c b/marshal.c index c45cd03067..44f56ae411 100644 --- a/marshal.c +++ b/marshal.c @@ -169,6 +169,7 @@ mark_dump_arg(void *ptr) struct dump_arg *p = ptr; if (!p->symbols) return; + rb_mark_set(p->symbols); rb_mark_set(p->data); rb_mark_hash(p->compat_tbl); rb_gc_mark(p->str); @@ -411,20 +412,19 @@ w_float(double d, struct dump_arg *arg) } static void -w_symbol(ID id, struct dump_arg *arg) +w_symbol(VALUE sym, struct dump_arg *arg) { - VALUE sym; st_data_t num; VALUE encname; - if (st_lookup(arg->symbols, id, &num)) { + if (st_lookup(arg->symbols, sym, &num)) { w_byte(TYPE_SYMLINK, arg); w_long((long)num, arg); } else { - sym = rb_id2str(id); + sym = rb_sym2str(sym); if (!sym) { - rb_raise(rb_eTypeError, "can't dump anonymous ID %"PRIdVALUE, id); + rb_raise(rb_eTypeError, "can't dump anonymous ID %"PRIdVALUE, sym); } encname = encoding_name(sym, arg); if (NIL_P(encname) || @@ -436,7 +436,7 @@ w_symbol(ID id, struct dump_arg *arg) } w_byte(TYPE_SYMBOL, arg); w_bytes(RSTRING_PTR(sym), RSTRING_LEN(sym), arg); - st_add_direct(arg->symbols, id, arg->symbols->num_entries); + st_add_direct(arg->symbols, sym, arg->symbols->num_entries); if (!NIL_P(encname)) { struct dump_call_arg c_arg; c_arg.limit = 1; @@ -451,7 +451,7 @@ static void w_unique(VALUE s, struct dump_arg *arg) { must_not_be_anonymous("class", s); - w_symbol(rb_intern_str(s), arg); + w_symbol(rb_str_dynamic_intern(s), arg); } static void w_object(VALUE,struct dump_arg*,int); @@ -527,7 +527,7 @@ w_obj_each(st_data_t key, st_data_t val, st_data_t a) struct dump_call_arg *arg = (struct dump_call_arg *)a; if (to_be_skipped_id(id)) return ST_CONTINUE; - w_symbol(id, arg->arg); + w_symbol(ID2SYM(id), arg->arg); w_object(value, arg->arg, arg->limit); return ST_CONTINUE; } @@ -574,12 +574,12 @@ w_encoding(VALUE encname, struct dump_call_arg *arg) switch (encname) { case Qfalse: case Qtrue: - w_symbol(rb_intern("E"), arg->arg); + w_symbol(ID2SYM(rb_intern("E")), arg->arg); w_object(encname, arg->arg, arg->limit + 1); case Qnil: return; } - w_symbol(rb_id_encoding(), arg->arg); + w_symbol(ID2SYM(rb_id_encoding()), arg->arg); w_object(encname, arg->arg, arg->limit + 1); } @@ -671,7 +671,7 @@ w_object(VALUE obj, struct dump_arg *arg, int limit) #endif } else if (SYMBOL_P(obj)) { - w_symbol(SYM2ID(obj), arg); + w_symbol(obj, arg); } else if (FLONUM_P(obj)) { st_add_direct(arg->data, obj, arg->data->num_entries); @@ -863,7 +863,7 @@ w_object(VALUE obj, struct dump_arg *arg, int limit) w_long(len, arg); mem = rb_struct_members(obj); for (i=0; isymbols) return; + rb_mark_tbl(p->symbols); rb_mark_tbl(p->data); rb_mark_hash(p->compat_tbl); } @@ -1070,7 +1071,7 @@ static const rb_data_type_t load_arg_data = { #define r_entry(v, arg) r_entry0((v), (arg)->data->num_entries, (arg)) static VALUE r_entry0(VALUE v, st_index_t num, struct load_arg *arg); static VALUE r_object(struct load_arg *arg); -static ID r_symbol(struct load_arg *arg); +static VALUE r_symbol(struct load_arg *arg); static VALUE path2class(VALUE path); NORETURN(static void too_short(void)); @@ -1276,13 +1277,13 @@ r_bytes0(long len, struct load_arg *arg) } static int -id2encidx(ID id, VALUE val) +sym2encidx(VALUE sym, VALUE val) { - if (id == rb_id_encoding()) { + if (sym == ID2SYM(rb_id_encoding())) { int idx = rb_enc_find_index(StringValueCStr(val)); return idx; } - else if (id == rb_intern("E")) { + else if (sym == ID2SYM(rb_intern("E"))) { if (val == Qfalse) return rb_usascii_encindex(); else if (val == Qtrue) return rb_utf8_encindex(); /* bogus ignore */ @@ -1290,23 +1291,23 @@ id2encidx(ID id, VALUE val) return -1; } -static ID +static VALUE r_symlink(struct load_arg *arg) { - st_data_t id; + st_data_t sym; long num = r_long(arg); - if (!st_lookup(arg->symbols, num, &id)) { + if (!st_lookup(arg->symbols, num, &sym)) { rb_raise(rb_eArgError, "bad symbol"); } - return (ID)id; + return (VALUE)sym; } -static ID +static VALUE r_symreal(struct load_arg *arg, int ivar) { VALUE s = r_bytes(arg); - ID id; + VALUE sym; int idx = -1; st_index_t n = arg->symbols->num_entries; @@ -1314,18 +1315,17 @@ r_symreal(struct load_arg *arg, int ivar) if (ivar) { long num = r_long(arg); while (num-- > 0) { - id = r_symbol(arg); - idx = id2encidx(id, r_object(arg)); + idx = sym2encidx(r_symbol(arg), r_object(arg)); } } if (idx > 0) rb_enc_associate_index(s, idx); - id = rb_intern_str(s); - st_insert(arg->symbols, (st_data_t)n, (st_data_t)id); + sym = rb_str_dynamic_intern(s); + st_insert(arg->symbols, (st_data_t)n, (st_data_t)sym); - return id; + return sym; } -static ID +static VALUE r_symbol(struct load_arg *arg) { int type, ivar = 0; @@ -1350,7 +1350,7 @@ r_symbol(struct load_arg *arg) static VALUE r_unique(struct load_arg *arg) { - return rb_id2str(r_symbol(arg)); + return rb_sym2str(r_symbol(arg)); } static VALUE @@ -1440,15 +1440,15 @@ r_ivar(VALUE obj, int *has_encoding, struct load_arg *arg) len = r_long(arg); if (len > 0) { do { - ID id = r_symbol(arg); + VALUE sym = r_symbol(arg); VALUE val = r_object(arg); - int idx = id2encidx(id, val); + int idx = sym2encidx(sym, val); if (idx >= 0) { rb_enc_associate_index(obj, idx); if (has_encoding) *has_encoding = TRUE; } else { - rb_ivar_set(obj, id, val); + rb_ivar_set(obj, SYM2ID(sym), val); } } while (--len > 0); } @@ -1750,19 +1750,19 @@ r_object0(struct load_arg *arg, int *ivp, VALUE extmod) { VALUE mem, values; long i; - ID slot; + VALUE slot; st_index_t idx = r_prepare(arg); VALUE klass = path2class(r_unique(arg)); long len = r_long(arg); v = rb_obj_alloc(klass); if (!RB_TYPE_P(v, T_STRUCT)) { - rb_raise(rb_eTypeError, "class %s not a struct", rb_class2name(klass)); + rb_raise(rb_eTypeError, "class %"PRIsVALUE" not a struct", rb_class_name(klass)); } mem = rb_struct_s_members(klass); if (RARRAY_LEN(mem) != len) { - rb_raise(rb_eTypeError, "struct %s not compatible (struct size differs)", - rb_class2name(klass)); + rb_raise(rb_eTypeError, "struct %"PRIsVALUE" not compatible (struct size differs)", + rb_class_name(klass)); } arg->readable += (len - 1) * 2; @@ -1771,11 +1771,11 @@ r_object0(struct load_arg *arg, int *ivp, VALUE extmod) for (i=0; ireadable -= 2; @@ -1907,17 +1907,17 @@ r_object0(struct load_arg *arg, int *ivp, VALUE extmod) case TYPE_SYMBOL: if (ivp) { - v = ID2SYM(r_symreal(arg, *ivp)); + v = r_symreal(arg, *ivp); *ivp = FALSE; } else { - v = ID2SYM(r_symreal(arg, 0)); + v = r_symreal(arg, 0); } v = r_leave(v, arg); break; case TYPE_SYMLINK: - v = ID2SYM(r_symlink(arg)); + v = r_symlink(arg); break; default: -- cgit v1.2.3