summaryrefslogtreecommitdiff
path: root/iseq.c
diff options
context:
space:
mode:
authornobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2007-08-06 04:34:11 +0000
committernobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2007-08-06 04:34:11 +0000
commitab664381aa170064d378e2c9912f043cc1c14b81 (patch)
tree157c573ecef46ac158a85cf92ca0742ab8f47810 /iseq.c
parenta9ba30ee8661fbbb01f79a923cef70e2aa050a06 (diff)
* 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
Diffstat (limited to 'iseq.c')
-rw-r--r--iseq.c18
1 files changed, 14 insertions, 4 deletions
diff --git a/iseq.c b/iseq.c
index 7e65249..94e8eef 100644
--- a/iseq.c
+++ b/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 *
@@ -671,7 +677,7 @@ insn_operand_intern(rb_iseq_t *iseq,
*/
VALUE
ruby_iseq_disasm_insn(VALUE ret, VALUE *iseq, int pos,
- rb_iseq_t *iseqdat, VALUE child)
+ rb_iseq_t *iseqdat, VALUE child)
{
int insn = iseq[pos];
int len = insn_len(insn);
@@ -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);
}