diff options
| author | dgp <dgp@users.sourceforge.net> | 2021-11-06 15:41:54 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2021-11-06 15:41:54 (GMT) |
| commit | dc9c511e43fb0c2d2c39dd6c4fd68e654d7412bd (patch) | |
| tree | 8f0418bd3674828103596f36d6138a04effb145f | |
| parent | f096016a8e791b2cc0d577bfe29ef772ef7681b7 (diff) | |
| parent | c9f5f714b785e31d0e8c5b9bbd3d0874d23a8aa7 (diff) | |
| download | tcl-dc9c511e43fb0c2d2c39dd6c4fd68e654d7412bd.zip tcl-dc9c511e43fb0c2d2c39dd6c4fd68e654d7412bd.tar.gz tcl-dc9c511e43fb0c2d2c39dd6c4fd68e654d7412bd.tar.bz2 | |
merge 8.6
| -rw-r--r-- | generic/tclBinary.c | 34 |
1 files changed, 9 insertions, 25 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index 7b12f4c..5eb5b54 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -75,31 +75,15 @@ static int NeedReversing(int format); static void CopyNumber(const void *from, void *to, unsigned length, int type); /* Binary ensemble commands */ -static int BinaryFormatCmd(ClientData clientData, - Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -static int BinaryScanCmd(ClientData clientData, - Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); +static Tcl_ObjCmdProc BinaryFormatCmd; +static Tcl_ObjCmdProc BinaryScanCmd; /* Binary encoding sub-ensemble commands */ -static int BinaryEncodeHex(ClientData clientData, - Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -static int BinaryDecodeHex(ClientData clientData, - Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -static int BinaryEncode64(ClientData clientData, - Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -static int BinaryDecode64(ClientData clientData, - Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -static int BinaryEncodeUu(ClientData clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -static int BinaryDecodeUu(ClientData clientData, - Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); +static Tcl_ObjCmdProc BinaryEncodeHex; +static Tcl_ObjCmdProc BinaryDecodeHex; +static Tcl_ObjCmdProc BinaryEncode64; +static Tcl_ObjCmdProc BinaryDecode64; +static Tcl_ObjCmdProc BinaryEncodeUu; +static Tcl_ObjCmdProc BinaryDecodeUu; /* * The following tables are used by the binary encoders @@ -1525,7 +1509,7 @@ BinaryFormatCmd( *---------------------------------------------------------------------- */ -int +static int BinaryScanCmd( TCL_UNUSED(ClientData), Tcl_Interp *interp, /* Current interpreter. */ |