* iseq.c (iseq_s_compile_option_get, Init_ISeq): added a new

method VM::InstructionSequence::compile_option.


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

ChangeLog

@@ -1,4 +1,4 @@
-Mon Aug  6 13:09:55 2007  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+Mon Aug  6 13:34:09 2007  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* common.mk (INSNS): not chdir to srcdir.
 
@@ -6,10 +6,13 @@ Mon Aug  6 13:09:55 2007  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* iseq.c (ruby_node_name): ditto.
 
+	* iseq.c (iseq_s_compile_option_get, Init_ISeq): added a new
+	  method VM::InstructionSequence::compile_option.
+
 	* lib/vm/instruction.rb (RubyVM::SourceCodeGenerator): --destdir
 	  option.
 
-	* tool/node_name.rb: ditto.
+	* tool/node_name.rb: to auto-generate node name list.
 
 Sun Aug  5 11:51:39 2007  Kouhei Sutou  <kou@cozmixng.org>
 

iseq.c

@@ -487,7 +487,13 @@ iseq_s_compile_option_set(VALUE self, VALUE opt)
     rb_compile_option_t option;
     make_compile_option(&option, opt);
     COMPILE_OPTION_DEFAULT = option;
-    return make_compile_option_value(&option);
+    return opt;
+}
+
+static VALUE
+iseq_s_compile_option_get(VALUE self)
+{
+    return make_compile_option_value(&COMPILE_OPTION_DEFAULT);
 }
 
 static rb_iseq_t *
@@ -757,6 +763,7 @@ ruby_iseq_disasm(VALUE self)
     int i;
     ID *tbl;
     char buff[0x200];
+    enum {header_minlen = 72};
 
     iseq = iseqdat->iseq;
     size = iseqdat->iseq_size;
@@ -764,8 +771,9 @@ ruby_iseq_disasm(VALUE self)
     rb_str_cat2(str, "== disasm: ");
 
     rb_str_concat(str, iseq_inspect(iseqdat->self));
-    for (i = RSTRING_LEN(str); i < 72; i++) {
-	rb_str_cat2(str, "=");
+    if ((i = RSTRING_LEN(str)) < header_minlen) {
+	rb_str_resize(str, header_minlen);
+	memset(RSTRING_PTR(str) + i, '=', header_minlen - i);
     }
     rb_str_cat2(str, "\n");
 
@@ -1225,6 +1233,8 @@ Init_ISeq(void)
     rb_define_singleton_method(rb_cISeq, "compile", iseq_s_compile, -1);
     rb_define_singleton_method(rb_cISeq, "new", iseq_s_compile, -1);
     rb_define_singleton_method(rb_cISeq, "compile_file", iseq_s_compile_file, -1);
+    rb_define_singleton_method(rb_cISeq, "compile_option",
+			       iseq_s_compile_option_get, 0);
     rb_define_singleton_method(rb_cISeq, "compile_option=",
 			       iseq_s_compile_option_set, 1);
 }