nobu	2009-03-12 05:19:24 +0900 (Thu, 12 Mar 2009)

  New Revision: 22901

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=22901

  Log:
    * iseq.c (rb_iseq_disasm): RSTRING_LEN() returns long.

  Modified files:
    trunk/ChangeLog
    trunk/iseq.c

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 22900)
+++ ChangeLog	(revision 22901)
@@ -1,5 +1,7 @@
-Thu Mar 12 05:16:07 2009  Nobuyoshi Nakada  <nobu@r...>
+Thu Mar 12 05:19:22 2009  Nobuyoshi Nakada  <nobu@r...>
 
+	* iseq.c (rb_iseq_disasm): RSTRING_LEN() returns long.
+
 	* process.c (rb_f_sleep): time() needs time_t.
 
 	* random.c (fill_random_seed): enclosed conditionally used
Index: iseq.c
===================================================================
--- iseq.c	(revision 22900)
+++ iseq.c	(revision 22901)
@@ -860,6 +860,7 @@
     VALUE child = rb_ary_new();
     unsigned long size;
     int i;
+    long l;
     ID *tbl;
     enum {header_minlen = 72};
 
@@ -871,9 +872,9 @@
     rb_str_cat2(str, "== disasm: ");
 
     rb_str_concat(str, iseq_inspect(iseqdat->self));
-    if ((i = RSTRING_LEN(str)) < header_minlen) {
+    if ((l = RSTRING_LEN(str)) < header_minlen) {
 	rb_str_resize(str, header_minlen);
-	memset(RSTRING_PTR(str) + i, '=', header_minlen - i);
+	memset(RSTRING_PTR(str) + l, '=', header_minlen - l);
     }
     rb_str_cat2(str, "\n");
 

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/