merges r25411 from trunk into ruby_1_9_1.

--
* marshal.c (w_symbol, r_symreal): fixed the order of symbol and
  its encoding modifier, in order to make the dump readable from
  1.8.  [ruby-dev:39515]

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_9_1@25475 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 4 insertions, 2 deletions

diff --git a/marshal.c b/marshal.c
index aa0e7e8d04..f9f6bb634e 100644
--- a/marshal.c
+++ b/marshal.c
@@ -412,13 +412,13 @@ 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);
 	if (encidx != -1) {
 	    struct dump_call_arg c_arg;
 	    c_arg.limit = 1;
 	    c_arg.arg = arg;
 	    w_encoding(sym, 0, &c_arg);
 	}
-	st_add_direct(arg->symbols, id, arg->symbols->num_entries);
     }
 }
 
@@ -1095,7 +1095,9 @@ r_symreal(struct load_arg *arg, int ivar)
     volatile VALUE s = r_bytes(arg);
     ID id;
     int idx = -1;
+    st_index_t n = arg->symbols->num_entries;
 
+    st_insert(arg->symbols, (st_data_t)n, (st_data_t)0);
     if (ivar) {
 	long num = r_long(arg);
 	while (num-- > 0) {
@@ -1106,7 +1108,7 @@ r_symreal(struct load_arg *arg, int ivar)
     if (idx < 0) idx = rb_usascii_encindex();
     rb_enc_associate_index(s, idx);
     id = rb_intern_str(s);
-    st_insert(arg->symbols, arg->symbols->num_entries, id);
+    st_insert(arg->symbols, (st_data_t)n, (st_data_t)id);
 
     return id;
 }