diff options
| author | usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2002-09-08 10:25:43 +0000 |
|---|---|---|
| committer | usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2002-09-08 10:25:43 +0000 |
| commit | 4cea021747142b3ca484fa03bcce5ef87bb6fd5d (patch) | |
| tree | e5b454dd510dfe7988e5d972ab8a9e07c0cb482a /ext | |
| parent | 432dd2ead82878c2912f58590554fe49a999a7ba (diff) | |
* dir.c (rb_glob): add prototype of 2nd argument to avoid VC++ warning.
* dir.c (push_pattern): add const directive to 1st argument.
* dir.c: prototype; push_pattern() to avoid VC++ warning.
* ext/tcltklib/tcltklib.c: prototype; _timer_for_tcl() and ip_ruby()
to avoid VC++ warning.
* win32/win32.c (win32_stat): remove S_IWGRP and S_IWOTH bits from
st_mode.
* win32/win32.h (S_I*): define if not defined.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_6@2823 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/tcltklib/tcltklib.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c index 081dcb1d2e..7818f0e0bc 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; @@ -144,14 +145,17 @@ lib_restart(self) return Qnil; } -static int #if TCL_MAJOR_VERSION >= 8 +static int ip_ruby _((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST [])); +static int ip_ruby(clientData, interp, argc, argv) ClientData clientData; Tcl_Interp *interp; int argc; Tcl_Obj *CONST argv[]; #else +static int ip_ruby _((ClientData, Tcl_Interp *, int, Tcl_Obj *[])); +static int ip_ruby(clientData, interp, argc, argv) ClientData clientData; Tcl_Interp *interp; |