nobu	2009-06-30 16:46:44 +0900 (Tue, 30 Jun 2009)

  New Revision: 23910

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

  Log:
    * insns.def, tool/instruction.rb: fixed types.

  Modified files:
    trunk/ChangeLog
    trunk/insns.def
    trunk/tool/instruction.rb

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 23909)
+++ ChangeLog	(revision 23910)
@@ -1,3 +1,7 @@
+Tue Jun 30 16:46:40 2009  Nobuyoshi Nakada  <nobu@r...>
+
+	* insns.def, tool/instruction.rb: fixed types.
+
 Tue Jun 30 11:08:49 2009  Nobuyoshi Nakada  <nobu@r...>
 
 	* include/ruby/oniguruma.h, include/ruby/re.h, re.c, regcomp.c,
Index: insns.def
===================================================================
--- insns.def	(revision 23909)
+++ insns.def	(revision 23910)
@@ -113,7 +113,7 @@
 ()
 (VALUE val)
 {
-    int i;
+    rb_num_t i;
     VALUE *dfp2 = GET_DFP();
     for (i = 0; i < level; i++) {
 	dfp2 = GET_PREV_DFP(dfp2);
@@ -134,7 +134,7 @@
 (VALUE val)
 ()
 {
-    int i;
+    rb_num_t i;
     VALUE *dfp2 = GET_DFP();
     for (i = 0; i < level; i++) {
 	dfp2 = GET_PREV_DFP(dfp2);
@@ -387,10 +387,10 @@
 (...)
 (VALUE val) // inc += 1 - num;
 {
-    int i;
+    rb_num_t i = num;
 
     val = rb_str_new(0, 0);
-    for (i = num - 1; i >= 0; i--) {
+    while (i-- > 0) {
 	const VALUE v = TOPN(i);
 	rb_str_append(val, v);
     }
@@ -424,13 +424,13 @@
 (VALUE val) // inc += 1 - cnt;
 {
     VALUE rb_reg_new_ary(VALUE ary, int options);
-    int i;
+    rb_num_t i;
     const VALUE ary = rb_ary_tmp_new(cnt);
     for (i = 0; i < cnt; i++) {
         rb_ary_store(ary, cnt-i-1, TOPN(i));
     }
     POPN(cnt);
-    val = rb_reg_new_ary(ary, opt);
+    val = rb_reg_new_ary(ary, (int)opt);
     rb_ary_clear(ary);
 }
 
@@ -481,7 +481,7 @@
 (..., VALUE ary)
 (...) // inc += num - 1 + (flag & 1 ? 1 : 0);
 {
-    vm_expandarray(GET_CFP(), ary, num, flag);
+    vm_expandarray(GET_CFP(), ary, num, (int)flag);
 }
 
 /**
@@ -605,7 +605,7 @@
 (VALUE low, VALUE high)
 (VALUE val)
 {
-    val = rb_range_new(low, high, flag);
+    val = rb_range_new(low, high, (int)flag);
 }
 
 /**********************************************************/
@@ -652,7 +652,7 @@
 (...)
 (...) // inc += n;
 {
-    int i;
+    rb_num_t i;
     VALUE *sp = STACK_ADDR_FROM_TOP(n);
     for (i = 0; i < n; i++) {
 	GET_SP()[i] = sp[i];
@@ -851,7 +851,7 @@
 ()
 ()
 {
-    rb_event_flag_t flag = nf;
+    rb_event_flag_t flag = (rb_event_flag_t)nf;
 
     EXEC_EVENT_HOOK(th, flag, GET_SELF(), 0, 0 /* TODO: id, klass */);
 }
@@ -982,7 +982,7 @@
     NODE *mn;
     VALUE recv, klass;
     rb_block_t *blockptr = 0;
-    rb_num_t num = caller_setup_args(th, GET_CFP(), op_flag, op_argc,
+    rb_num_t num = caller_setup_args(th, GET_CFP(), op_flag, (int)op_argc,
 				     (rb_iseq_t *)blockiseq, &blockptr);
     rb_num_t flag = op_flag;
     ID id = op_id;
@@ -1014,7 +1014,8 @@
 (VALUE val) // inc += - (int)(op_argc + ((op_flag & VM_CALL_ARGS_BLOCKARG_BIT) ? 1 : 0));
 {
     rb_block_t *blockptr = !(op_flag & VM_CALL_ARGS_BLOCKARG_BIT) ? GET_BLOCK_PTR() : 0;
-    int num = caller_setup_args(th, GET_CFP(), op_flag, op_argc, blockiseq, &blockptr);
+    rb_num_t num = caller_setup_args(th, GET_CFP(), op_flag,
+				     (int)op_argc, blockiseq, &blockptr);
     VALUE recv, klass;
     NODE *mn;
     ID id;
Index: tool/instruction.rb
===================================================================
--- tool/instruction.rb	(revision 23909)
+++ tool/instruction.rb	(revision 23910)
@@ -63,7 +63,7 @@
          rets.any?{|t, v| v == '...'})
         # user definision
         raise "no sp increase definition" if @sp_inc.nil?
-        ret = "int inc = 0;\n"
+        ret = "rb_num_t inc = 0;\n"
 
         @opes.each_with_index{|(t, v), i|
           if t == 'rb_num_t' && ((re = /\b#{v}\b/n) =~ @sp_inc ||

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