diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-08 10:16:31 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-08 10:16:31 (GMT) |
commit | 142a7645bb9c38692513ce5aaefe2ccbd1a9e02a (patch) | |
tree | 5d3d2fd6b73cc70b43ed5305e985ed19dcd31fc9 /generic/tclZlib.c | |
parent | bbfcd52f865c1fe426d2a3b54b3d79ed39606af1 (diff) | |
parent | 82a4b8a569583a68f0c54c9f31321412cf06d709 (diff) | |
download | tcl-142a7645bb9c38692513ce5aaefe2ccbd1a9e02a.zip tcl-142a7645bb9c38692513ce5aaefe2ccbd1a9e02a.tar.gz tcl-142a7645bb9c38692513ce5aaefe2ccbd1a9e02a.tar.bz2 |
Merge 9.0
Diffstat (limited to 'generic/tclZlib.c')
-rw-r--r-- | generic/tclZlib.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c index 046140a..8b3c8a8 100644 --- a/generic/tclZlib.c +++ b/generic/tclZlib.c @@ -496,8 +496,8 @@ GenerateHeader( if (GetValue(interp, dictObj, "type", &value) != TCL_OK) { goto error; - } else if (value != NULL && Tcl_GetIndexFromObj(interp, value, types, - "type", TCL_EXACT, &headerPtr->header.text) != TCL_OK) { + } else if (value != NULL && Tcl_GetIndexFromObjStruct(interp, value, types, + sizeof(char *), "type", TCL_EXACT, &headerPtr->header.text) != TCL_OK) { goto error; } @@ -1952,7 +1952,7 @@ ZlibCmd( int objc, Tcl_Obj *const objv[]) { - int command, i, option, level = -1; + int i, option, level = -1; size_t dlen = 0, start, buffersize = 0; Tcl_WideInt wideLen; Byte *data; @@ -1966,18 +1966,18 @@ ZlibCmd( enum zlibCommands { CMD_ADLER, CMD_COMPRESS, CMD_CRC, CMD_DECOMPRESS, CMD_DEFLATE, CMD_GUNZIP, CMD_GZIP, CMD_INFLATE, CMD_PUSH, CMD_STREAM - }; + } command; if (objc < 2) { Tcl_WrongNumArgs(interp, 1, objv, "command arg ?...?"); return TCL_ERROR; } - if (Tcl_GetIndexFromObj(interp, objv[1], commands, "command", 0, - &command) != TCL_OK) { + if (Tcl_GetIndexFromObjStruct(interp, objv[1], commands, + sizeof(char *), "command", 0, &command) != TCL_OK) { return TCL_ERROR; } - switch ((enum zlibCommands) command) { + switch (command) { case CMD_ADLER: /* adler32 str ?startvalue? * -> checksum */ if (objc < 3 || objc > 4) { |