From 1ead0ff3f197d43e44ffdeb93d8c5b0c9aa4a69c Mon Sep 17 00:00:00 2001
From: usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 1 Apr 2002 06:21:24 +0000
Subject: * ext/racc/cparse/cparse.c: prototype; call_scaniter(). *
 ext/sdbm/init.c: prototype; each_pair(). * ext/tcltklib/tcltklib.c:
 prototypes; _timer_for_tcl() and ip_ruby(),   Nobu's patch at
 [ruby-dev:14483].

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@2311 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tcltklib/tcltklib.c | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'ext/tcltklib/tcltklib.c')

diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c
index 7acbacdd9..990fbc38a 100644
--- a/ext/tcltklib/tcltklib.c
+++ b/ext/tcltklib/tcltklib.c
@@ -64,6 +64,7 @@ static VALUE main_thread;
 static Tcl_TimerToken timer_token;
 
 /* timer callback */
+static void _timer_for_tcl _((ClientData));
 static void
 _timer_for_tcl(clientData)
     ClientData clientData;
@@ -90,6 +91,12 @@ _timer_for_tcl(clientData)
     rb_thread_schedule();
 }
 
+#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
+
 /* execute Tk_MainLoop */
 static VALUE
 lib_mainloop(self)
-- 
cgit