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

こんにちは、なかむら(う)です。

VC5でtcltklibのコンパイル中に警告が出るので消してみました。
が、Tcl/Tkに関して何の知識もないので済みませんがわかる方ご確
認願います。

Index: ext/tcltklib/tcltklib.c
===================================================================
RCS file: /src/ruby/ext/tcltklib/tcltklib.c,v
retrieving revision 1.8
diff -u -2 -p -r1.8 tcltklib.c
--- ext/tcltklib/tcltklib.c	2001/05/11 05:24:56	1.8
+++ ext/tcltklib/tcltklib.c	2001/08/15 18:38:21
@@ -64,4 +64,6 @@ static VALUE main_thread;
 static Tcl_TimerToken timer_token;
 
+typedef void (*TCL_TIMER_CALLBACK) _((int*));
+
 /* timer callback */
 static void
@@ -73,5 +75,5 @@ _timer_for_tcl(clientData)
 
     Tk_DeleteTimerHandler(timer_token);
-    timer_token = Tk_CreateTimerHandler(100, _timer_for_tcl, (ClientData)0);
+    timer_token = Tk_CreateTimerHandler(100, (TCL_TIMER_CALLBACK)_timer_for_tcl, (ClientData)0);
 
     CHECK_INTS;
@@ -96,5 +98,5 @@ lib_mainloop(self)
     VALUE self;
 {
-    timer_token = Tk_CreateTimerHandler(100, _timer_for_tcl, (ClientData)0);
+    timer_token = Tk_CreateTimerHandler(100, (TCL_TIMER_CALLBACK)_timer_for_tcl, (ClientData)0);
     DUMP1("start Tk_Mainloop");
     Tk_MainLoop();
@@ -198,4 +200,6 @@ ip_free(ptr)
 }
 
+typedef int (*TCL_CREATEOBJ_CALLBACK) _((int*, struct Tcl_Interp *, int, struct Tcl_Obj *const *));
+
 /* create and initialize interpreter */
 static VALUE
@@ -230,5 +234,5 @@ ip_new(self)
 #if TCL_MAJOR_VERSION >= 8
     DUMP1("Tcl_CreateObjCommand(\"ruby\")");
-    Tcl_CreateObjCommand(ptr->ip, "ruby", ip_ruby, (ClientData)NULL,
+    Tcl_CreateObjCommand(ptr->ip, "ruby", (TCL_CREATEOBJ_CALLBACK)ip_ruby, (ClientData)NULL,
 			 (Tcl_CmdDeleteProc *)NULL);
 #else


それでは。

--
U.Nakamura <[e-mail]>