[ruby-dev:17006] Re: strict prototype for c++

At Fri, 3 May 2002 05:46:00 +0900,
Takaaki Tateishi wrote:
> At Fri, 3 May 2002 04:43:10 +0900,
> > 　他の関数と同様に
> > 
> > void rb_gc_mark_maybe _((VALUE));
> > void rb_gc_mark _((VALUE));
> > 
> > でいいんじゃないでしょうか。1.7 でもそうなっているようです。
> 
> はい，もちろんその方がよいと思います．以前にも同様の議論があり，
> [ruby-dev:13972] を受けての意見です．

　そうかあ。確かにバグではないけど、各種プラットフォーム・処理系
対応の一環と考えれば、安定版にも適用していいと思いますけどね。
(前回はあれで十分だった)

> rubyをコンパイルするときにはrb_gc_mark()を使って，拡張ライブラリ
> で使う(C++で使われる)場合にはrb_gc_mark(VALUE)を使えばいいのでは
> ないかと思ったためです．
> これならとりあえずeval.c,gc.cなどに手を加えなくて済むと思います．

　「C++だから」という条件はどうにも気持ちが悪いですね。 ;)

　さっと作業したところ、添付のように30行くらい直せばwarningは抑制
できました。もしこれでよければ、(まつもとさんにお手間は取らせず)
私が commit しますが、どうでしょうか？

-- 
                     /
                    /__  __            Akinori.org / MUSHA.org
                   / )  )  ) )  /     FreeBSD.org / Ruby-lang.org
Akinori MUSHA aka / (_ /  ( (__(  @ iDaemons.org / and.or.jp

"Somewhere out of a memory.. of lighted streets on quiet nights.."

Index: intern.h
===================================================================
RCS file: /src/ruby/intern.h,v
retrieving revision 1.35.2.19
diff -u -r1.35.2.19 intern.h
--- intern.h	2002/03/07 11:19:28	1.35.2.19
+++ intern.h	2002/05/03 18:03:49
@@ -189,8 +189,8 @@
 void rb_gc_mark_locations _((VALUE*, VALUE*));
 void rb_mark_tbl _((struct st_table*));
 void rb_mark_hash _((struct st_table*));
-void rb_gc_mark_maybe();
-void rb_gc_mark();
+void rb_gc_mark_maybe _((VALUE));
+void rb_gc_mark _((VALUE));
 void rb_gc_force_recycle _((VALUE));
 void rb_gc _((void));
 char *rb_source_filename _((const char *));
Index: eval.c
===================================================================
RCS file: /src/ruby/eval.c,v
retrieving revision 1.137.2.111
diff -u -r1.137.2.111 eval.c
--- eval.c	2002/05/01 09:37:57	1.137.2.111
+++ eval.c	2002/05/03 18:03:50
@@ -5849,12 +5849,12 @@
 
     link = end_procs;
     while (link) {
-	rb_gc_mark(link->data);
+	rb_gc_mark((VALUE)link->data);
 	link = link->next;
     }
     link = ephemeral_end_procs;
     while (link) {
-	rb_gc_mark(link->data);
+	rb_gc_mark((VALUE)link->data);
 	link = link->next;
     }
     /* static global mark */
@@ -6081,14 +6081,14 @@
 {
     while (data) {
 	rb_gc_mark_frame(&data->frame);
-	rb_gc_mark(data->scope);
-	rb_gc_mark(data->var);
-	rb_gc_mark(data->body);
-	rb_gc_mark(data->self);
-	rb_gc_mark(data->dyna_vars);
-	rb_gc_mark(data->klass);
-	rb_gc_mark(data->tag);
-	rb_gc_mark(data->wrapper);
+	rb_gc_mark((VALUE)data->scope);
+	rb_gc_mark((VALUE)data->var);
+	rb_gc_mark((VALUE)data->body);
+	rb_gc_mark((VALUE)data->self);
+	rb_gc_mark((VALUE)data->dyna_vars);
+	rb_gc_mark((VALUE)data->klass);
+	rb_gc_mark((VALUE)data->tag);
+	rb_gc_mark((VALUE)data->wrapper);
 	data = data->prev;
     }
 }
@@ -6611,7 +6611,7 @@
     rb_gc_mark(data->oklass);
     rb_gc_mark(data->klass);
     rb_gc_mark(data->recv);
-    rb_gc_mark(data->body);
+    rb_gc_mark((VALUE)data->body);
 }
 
 static VALUE
@@ -7147,10 +7147,10 @@
 
     rb_gc_mark(th->klass);
     rb_gc_mark(th->wrapper);
-    rb_gc_mark(th->cref);
+    rb_gc_mark((VALUE)th->cref);
 
-    rb_gc_mark(th->scope);
-    rb_gc_mark(th->dyna_vars);
+    rb_gc_mark((VALUE)th->scope);
+    rb_gc_mark((VALUE)th->dyna_vars);
     rb_gc_mark(th->errinfo);
     rb_gc_mark(th->last_line);
     rb_gc_mark(th->last_match);
Index: gc.c
===================================================================
RCS file: /src/ruby/gc.c,v
retrieving revision 1.48.2.22
diff -u -r1.48.2.22 gc.c
--- gc.c	2002/03/07 11:19:28	1.48.2.22
+++ gc.c	2002/05/03 18:03:50
@@ -476,7 +476,7 @@
 
 void
 rb_gc_mark_maybe(obj)
-    void *obj;
+    VALUE obj;
 {
     if (is_pointer_to_heap(obj)) {
 	rb_gc_mark(obj);
@@ -485,7 +485,7 @@
 
 void
 rb_gc_mark(ptr)
-    void *ptr;
+    VALUE ptr;
 {
     register RVALUE *obj = RANY(ptr);
 
@@ -517,7 +517,7 @@
 	  case NODE_MASGN:
 	  case NODE_RESCUE:
 	  case NODE_RESBODY:
-	    rb_gc_mark(obj->as.node.u2.node);
+	    rb_gc_mark((VALUE)obj->as.node.u2.node);
 	    /* fall through */
 	  case NODE_BLOCK:	/* 1,3 */
 	  case NODE_ARRAY:
@@ -531,7 +531,7 @@
 	  case NODE_CALL:
 	  case NODE_DEFS:
 	  case NODE_OP_ASGN1:
-	    rb_gc_mark(obj->as.node.u1.node);
+	    rb_gc_mark((VALUE)obj->as.node.u1.node);
 	    /* fall through */
 	  case NODE_SUPER:	/* 3 */
 	  case NODE_FCALL:
@@ -554,7 +554,7 @@
 	  case NODE_MATCH3:
 	  case NODE_OP_ASGN_OR:
 	  case NODE_OP_ASGN_AND:
-	    rb_gc_mark(obj->as.node.u1.node);
+	    rb_gc_mark((VALUE)obj->as.node.u1.node);
 	    /* fall through */
 	  case NODE_METHOD:	/* 2 */
 	  case NODE_NOT:
@@ -590,7 +590,7 @@
 	  case NODE_SCOPE:	/* 2,3 */
 	  case NODE_CLASS:
 	  case NODE_BLOCK_PASS:
-	    rb_gc_mark(obj->as.node.u3.node);
+	    rb_gc_mark((VALUE)obj->as.node.u3.node);
 	    obj = RANY(obj->as.node.u2.node);
 	    goto Top;
 
@@ -628,10 +628,10 @@
 
 	  default:
 	    if (is_pointer_to_heap(obj->as.node.u1.node)) {
-		rb_gc_mark(obj->as.node.u1.node);
+		rb_gc_mark((VALUE)obj->as.node.u1.node);
 	    }
 	    if (is_pointer_to_heap(obj->as.node.u2.node)) {
-		rb_gc_mark(obj->as.node.u2.node);
+		rb_gc_mark((VALUE)obj->as.node.u2.node);
 	    }
 	    if (is_pointer_to_heap(obj->as.node.u3.node)) {
 		obj = RANY(obj->as.node.u3.node);
@@ -745,7 +745,7 @@
 	    p = heaps[i]; pend = p + heaps_limits[i];
 	    while (p < pend) {
 		if (!(p->as.basic.flags&FL_MARK) && BUILTIN_TYPE(p) == T_NODE)
-		    rb_gc_mark(p);
+		    rb_gc_mark((VALUE)p);
 		p++;
 	    }
 	}
@@ -1041,8 +1041,8 @@
 	}
     }
     rb_gc_mark(ruby_class);
-    rb_gc_mark(ruby_scope);
-    rb_gc_mark(ruby_dyna_vars);
+    rb_gc_mark((VALUE)ruby_scope);
+    rb_gc_mark((VALUE)ruby_dyna_vars);
     if (finalizer_table) {
 	rb_mark_tbl(finalizer_table);
     }
Index: variable.c
===================================================================
RCS file: /src/ruby/variable.c,v
retrieving revision 1.29.2.18
diff -u -r1.29.2.18 variable.c
--- variable.c	2002/05/01 09:37:59	1.29.2.18
+++ variable.c	2002/05/03 18:03:50
@@ -388,7 +388,7 @@
 val_marker(data)
     void *data;
 {
-    if (data) rb_gc_mark_maybe(data);
+    if (data) rb_gc_mark_maybe((VALUE)data);
 }
 
 static VALUE
@@ -411,7 +411,7 @@
 
 static void
 var_marker(var)
-    VALUE **var;
+    VALUE *var;
 {
     if (var) rb_gc_mark_maybe(*var);
 }
@@ -435,7 +435,7 @@
     (*entry->marker)(entry->data);
     trace = entry->trace;
     while (trace) {
-	if (trace->data) rb_gc_mark_maybe(trace->data);
+	if (trace->data) rb_gc_mark_maybe((VALUE)trace->data);
 	trace = trace->next;
     }
     return ST_CONTINUE;