From c1ac175af5d819d319e4410602be9a9e64e37566 Mon Sep 17 00:00:00 2001
From: ko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 27 Jun 2007 17:13:13 +0000
Subject: [PATCH] * compile.c (setup_args): change parameter type.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@12642 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog |  4 ++++
 compile.c | 16 ++++++++--------
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index c77b25506f..113c6643d4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Thu Jun 28 02:03:07 2007  Koichi Sasada  <ko1@atdot.net>
+
+	* compile.c (setup_args): change parameter type.
+
 Thu Jun 28 02:03:39 2007  NAKAMURA Usaku  <usa@ruby-lang.org>
 
 	* parse.y (rb_intern2): unconstify cast.
diff --git a/compile.c b/compile.c
index 9504f79638..21042a40db 100644
--- a/compile.c
+++ b/compile.c
@@ -2427,7 +2427,7 @@ add_ensure_iseq(LINK_ANCHOR *ret, rb_iseq_t *iseq)
 }
 
 static VALUE
-setup_args(rb_iseq_t *iseq, LINK_ANCHOR *args, NODE *argn, VALUE *flag)
+setup_args(rb_iseq_t *iseq, LINK_ANCHOR *args, NODE *argn, unsigned long *flag)
 {
     VALUE argc = INT2FIX(0);
     int nsplat = 0;
@@ -3434,7 +3434,7 @@ iseq_compile_each(rb_iseq_t *iseq, LINK_ANCHOR *ret, NODE * node, int poped)
 	DECL_ANCHOR(args);
 	ID mid = node->nd_mid;
 	VALUE argc;
-	VALUE flag = 0;
+	unsigned long flag = 0;
 	VALUE parent_block = iseq->compile_data->current_block;
 	iseq->compile_data->current_block = Qfalse;
 
@@ -3520,7 +3520,7 @@ iseq_compile_each(rb_iseq_t *iseq, LINK_ANCHOR *ret, NODE * node, int poped)
 	}
 
 	ADD_SEND_R(ret, nd_line(node), ID2SYM(mid),
-		   argc, parent_block, INT2FIX(flag));
+		   argc, parent_block, LONG2FIX(flag));
 
 	if (poped) {
 	    ADD_INSN(ret, nd_line(node), pop);
@@ -3531,7 +3531,7 @@ iseq_compile_each(rb_iseq_t *iseq, LINK_ANCHOR *ret, NODE * node, int poped)
       case NODE_ZSUPER:{
 	DECL_ANCHOR(args);
 	VALUE argc;
-	VALUE flag = 0;
+	unsigned long flag = 0;
 	VALUE parent_block = iseq->compile_data->current_block;
 	iseq->compile_data->current_block = Qfalse;
 
@@ -3603,7 +3603,7 @@ iseq_compile_each(rb_iseq_t *iseq, LINK_ANCHOR *ret, NODE * node, int poped)
 		  nd_type(node) == NODE_ZSUPER ? Qfalse : Qtrue);
 	ADD_SEQ(ret, args);
 	ADD_INSN3(ret, nd_line(node), invokesuper,
-		  argc, parent_block, INT2FIX(flag));
+		  argc, parent_block, LONG2FIX(flag));
 
 	if (poped) {
 	    ADD_INSN(ret, nd_line(node), pop);
@@ -3709,7 +3709,7 @@ iseq_compile_each(rb_iseq_t *iseq, LINK_ANCHOR *ret, NODE * node, int poped)
 	}
 
 	ADD_SEQ(ret, args);
-	ADD_INSN2(ret, nd_line(node), invokeblock, argc, INT2FIX(flag));
+	ADD_INSN2(ret, nd_line(node), invokeblock, argc, LONG2FIX(flag));
 
 	if (poped) {
 	    ADD_INSN(ret, nd_line(node), pop);
@@ -4264,7 +4264,7 @@ iseq_compile_each(rb_iseq_t *iseq, LINK_ANCHOR *ret, NODE * node, int poped)
       case NODE_ATTRASGN:{
 	DECL_ANCHOR(recv);
 	DECL_ANCHOR(args);
-	VALUE flag = 0;
+	unsigned long flag = 0;
 	VALUE argc;
 
 	argc = setup_args(iseq, args, node->nd_args, &flag);
@@ -4289,7 +4289,7 @@ iseq_compile_each(rb_iseq_t *iseq, LINK_ANCHOR *ret, NODE * node, int poped)
 	    ADD_SEQ(ret, recv);
 	    ADD_SEQ(ret, args);
 	}
-	ADD_SEND_R(ret, nd_line(node), ID2SYM(node->nd_mid), argc, 0, INT2FIX(flag));
+	ADD_SEND_R(ret, nd_line(node), ID2SYM(node->nd_mid), argc, 0, LONG2FIX(flag));
 	ADD_INSN(ret, nd_line(node), pop);
 
 	break;