[ruby-dev:14483] Re: avoid compile warning of tcltklib with VC5

なかだです。

At Thu, 16 Aug 2001 03:41:48 +0900,
U.Nakamura <[e-mail]> wrote:
> VC5でtcltklibのコンパイル中に警告が出るので消してみました。
> が、Tcl/Tkに関して何の知識もないので済みませんがわかる方ご確
> 認願います。

  キャストするよりも、_timer_for_tcl()とip_ruby()のプロトタイプ
を追加するのでは消えませんか。どうもVCは、K&R形式だけだとうまく
いかないことが多いような気がします。


Index: tcltklib.c
===================================================================
RCS file: /cvs/ruby/src/ruby/ext/tcltklib/tcltklib.c,v
retrieving revision 1.8
diff -u -2 -p -r1.8 tcltklib.c
--- tcltklib.c	2001/05/11 05:24:56	1.8
+++ tcltklib.c	2001/08/15 19:02:43
@@ -65,4 +65,5 @@ static Tcl_TimerToken timer_token;
 
 /* timer callback */
+static void _timer_for_tcl _((ClientData));
 static void
 _timer_for_tcl(clientData)
@@ -120,4 +121,10 @@ ip_eval_rescue(failed, einfo)
     return Qnil;
 }
+
+#if TCL_MAJOR_VERSION >= 8
+static int ip_ruby _((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*));
+#else
+static int ip_ruby _((ClientData, Tcl_Interp *, int, char **));
+#endif
 
 static int


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦