# HG changeset patch # User vimboss # Date 1243019311 0 # Node ID c7537662746d8bae8bcdf8502a23a573a54d3855 # Parent ae2251be41f935706f7e634a832ff5ff8a91d023 updated for version 7.2-186 diff --git a/src/if_tcl.c b/src/if_tcl.c --- a/src/if_tcl.c +++ b/src/if_tcl.c @@ -290,10 +290,9 @@ tcl_end() */ #define TCL_EXIT 5 -/* ARGSUSED */ static int exitcmd(dummy, interp, objc, objv) - ClientData dummy; + ClientData dummy UNUSED; Tcl_Interp *interp; int objc; Tcl_Obj *CONST objv[]; @@ -315,10 +314,9 @@ exitcmd(dummy, interp, objc, objv) return TCL_ERROR; } -/* ARGSUSED */ static int catchcmd(dummy, interp, objc, objv) - ClientData dummy; + ClientData dummy UNUSED; Tcl_Interp *interp; int objc; Tcl_Obj *CONST objv[]; @@ -356,10 +354,9 @@ catchcmd(dummy, interp, objc, objv) /* * "::vim::beep" - what Vi[m] does best :-) */ -/* ARGSUSED */ static int beepcmd(dummy, interp, objc, objv) - ClientData dummy; + ClientData dummy UNUSED; Tcl_Interp *interp; int objc; Tcl_Obj *CONST objv[]; @@ -378,10 +375,9 @@ beepcmd(dummy, interp, objc, objv) * "::vim::buffer {N}" - create buffer command for buffer N. * "::vim::buffer new" - create a new buffer (not implemented) */ -/* ARGSUSED */ static int buffercmd(dummy, interp, objc, objv) - ClientData dummy; + ClientData dummy UNUSED; Tcl_Interp *interp; int objc; Tcl_Obj *CONST objv[]; @@ -475,10 +471,9 @@ buffercmd(dummy, interp, objc, objv) /* * "::vim::window list" - create list of window commands. */ -/* ARGSUSED */ static int windowcmd(dummy, interp, objc, objv) - ClientData dummy; + ClientData dummy UNUSED; Tcl_Interp *interp; int objc; Tcl_Obj *CONST objv[]; @@ -1130,10 +1125,9 @@ winselfcmd(ref, interp, objc, objv) } -/* ARGSUSED */ static int commandcmd(dummy, interp, objc, objv) - ClientData dummy; + ClientData dummy UNUSED; Tcl_Interp *interp; int objc; Tcl_Obj *CONST objv[]; @@ -1145,10 +1139,9 @@ commandcmd(dummy, interp, objc, objv) return err; } -/* ARGSUSED */ static int optioncmd(dummy, interp, objc, objv) - ClientData dummy; + ClientData dummy UNUSED; Tcl_Interp *interp; int objc; Tcl_Obj *CONST objv[]; @@ -1160,10 +1153,9 @@ optioncmd(dummy, interp, objc, objv) return err; } -/* ARGSUSED */ static int exprcmd(dummy, interp, objc, objv) - ClientData dummy; + ClientData dummy UNUSED; Tcl_Interp *interp; int objc; Tcl_Obj *CONST objv[]; @@ -1584,11 +1576,10 @@ tclsetdelcmd(interp, reflist, vimobj, de I/O Channel ********************************************/ -/* ARGSUSED */ static int channel_close(instance, interp) ClientData instance; - Tcl_Interp *interp; + Tcl_Interp *interp UNUSED; { int err = 0; @@ -1602,12 +1593,11 @@ channel_close(instance, interp) return err; } -/* ARGSUSED */ static int channel_input(instance, buf, bufsiz, errptr) - ClientData instance; - char *buf; - int bufsiz; + ClientData instance UNUSED; + char *buf UNUSED; + int bufsiz UNUSED; int *errptr; { @@ -1659,21 +1649,19 @@ channel_output(instance, buf, bufsiz, er return result; } -/* ARGSUSED */ static void channel_watch(instance, mask) - ClientData instance; - int mask; + ClientData instance UNUSED; + int mask UNUSED; { Tcl_SetErrno(EINVAL); } -/* ARGSUSED */ static int channel_gethandle(instance, direction, handleptr) - ClientData instance; - int direction; - ClientData *handleptr; + ClientData instance UNUSED; + int direction UNUSED; + ClientData *handleptr UNUSED; { Tcl_SetErrno(EINVAL); return EINVAL; @@ -1691,7 +1679,14 @@ static Tcl_ChannelType channel_type = NULL, /* set option */ NULL, /* get option */ channel_watch, - channel_gethandle + channel_gethandle, + NULL, + NULL, + NULL, + NULL, + NULL, + NULL, + NULL }; /********************************** diff --git a/src/version.c b/src/version.c --- a/src/version.c +++ b/src/version.c @@ -677,6 +677,8 @@ static char *(features[]) = static int included_patches[] = { /* Add new patch number below this line */ /**/ + 186, +/**/ 185, /**/ 184,