nobu	2009-07-18 16:22:42 +0900 (Sat, 18 Jul 2009)

  New Revision: 24194

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

  Log:
    * array.c: suppressed shorten-64-to-32 warnings.

  Modified files:
    trunk/array.c

Index: array.c
===================================================================
--- array.c	(revision 24193)
+++ array.c	(revision 24194)
@@ -1606,13 +1606,13 @@
 rb_ary_join(VALUE ary, VALUE sep)
 {
     long len = 1, i;
-    int taint = Qfalse;
-    int untrust = Qfalse;
+    int taint = FALSE;
+    int untrust = FALSE;
     VALUE val, tmp, result;
 
     if (RARRAY_LEN(ary) == 0) return rb_str_new(0, 0);
-    if (OBJ_TAINTED(ary) || OBJ_TAINTED(sep)) taint = Qtrue;
-    if (OBJ_UNTRUSTED(ary) || OBJ_UNTRUSTED(sep)) untrust = Qtrue;
+    if (OBJ_TAINTED(ary) || OBJ_TAINTED(sep)) taint = TRUE;
+    if (OBJ_UNTRUSTED(ary) || OBJ_UNTRUSTED(sep)) untrust = TRUE;
 
     if (!NIL_P(sep)) {
 	StringValue(sep);
@@ -1676,8 +1676,8 @@
     str = rb_str_buf_new2("[");
     for (i=0; i<RARRAY_LEN(ary); i++) {
 	s = rb_inspect(RARRAY_PTR(ary)[i]);
-	if (OBJ_TAINTED(s)) tainted = Qtrue;
-	if (OBJ_UNTRUSTED(s)) untrust = Qtrue;
+	if (OBJ_TAINTED(s)) tainted = TRUE;
+	if (OBJ_UNTRUSTED(s)) untrust = TRUE;
 	if (i > 0) rb_str_buf_cat2(str, ", ");
 	rb_str_buf_append(str, s);
     }
@@ -2579,10 +2579,10 @@
     VALUE item, arg1, arg2;
     long beg = 0, end = 0, len = 0;
     VALUE *p, *pend;
-    int block_p = Qfalse;
+    int block_p = FALSE;
 
     if (rb_block_given_p()) {
-	block_p = Qtrue;
+	block_p = TRUE;
 	rb_scan_args(argc, argv, "02", &arg1, &arg2);
 	argc += 1;		/* hackish */
     }

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