updated for version 7.2-186
diff --git a/src/if_tcl.c b/src/if_tcl.c
index ce00246..0f4daed 100644
--- a/src/if_tcl.c
+++ b/src/if_tcl.c
@@ -290,10 +290,9 @@
*/
#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 @@
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 @@
/*
* "::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 @@
* "::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 @@
/*
* "::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 @@
}
-/* 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 @@
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 @@
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 @@
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 @@
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 @@
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 @@
NULL, /* set option */
NULL, /* get option */
channel_watch,
- channel_gethandle
+ channel_gethandle,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL
};
/**********************************