diff options
author | usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2002-04-01 06:21:24 +0000 |
---|---|---|
committer | usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2002-04-01 06:21:24 +0000 |
commit | 1ecdc6a115f48c880dff0cbc04f4de831480c748 (patch) | |
tree | 200419f954e1360d34b2a22d1bf759be75ed86a1 | |
parent | 564222ba27f71b38c3db9b4e047e006f350b4202 (diff) |
* 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: svn+ssh://ci.ruby-lang.org/ruby/trunk@2311 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
-rw-r--r-- | ChangeLog | 9 | ||||
-rw-r--r-- | ext/racc/cparse/cparse.c | 2 | ||||
-rw-r--r-- | ext/sdbm/init.c | 2 | ||||
-rw-r--r-- | ext/tcltklib/tcltklib.c | 7 |
4 files changed, 20 insertions, 0 deletions
@@ -1,3 +1,12 @@ +Mon Apr 1 15:11:40 2002 NAKAMURA Usaku <usa@ruby-lang.org> + + * 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]. + Fri Mar 29 20:21:58 2002 Nobuyoshi Nakada <nobu.nakada@nifty.ne.jp> * lib/mkmf.rb (create_makefile): default FLAGS to empty strings. diff --git a/ext/racc/cparse/cparse.c b/ext/racc/cparse/cparse.c index 7607364890..7ec12b9a98 100644 --- a/ext/racc/cparse/cparse.c +++ b/ext/racc/cparse/cparse.c @@ -282,6 +282,8 @@ catch_scaniter(arr, data, self) return Qnil; } +static VALUE call_scaniter _((VALUE)); + static void wrap_yyparse(v) struct cparse_params *v; diff --git a/ext/sdbm/init.c b/ext/sdbm/init.c index 5412dd8452..c5d20bf983 100644 --- a/ext/sdbm/init.c +++ b/ext/sdbm/init.c @@ -420,6 +420,8 @@ update_i(pair, dbm) return Qnil; } +static VALUE each_pair _((VALUE)); + static VALUE fsdbm_update(obj, other) VALUE obj, other; diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c index 7acbacdd94..990fbc38af 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) |