Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Don't use Tcl_GetCommandInfo when Tcl_FindCommand suffices. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
352223b866e697f441bd024b228912ae |
User & Date: | jan.nijtmans 2014-07-09 18:49:38 |
Context
2014-07-10
| ||
12:59 | Repair buffer indexing error in Tcl_ReadRaw(). check-in: 0f4ff1ba28 user: dgp tags: trunk | |
2014-07-09
| ||
18:49 | Don't use Tcl_GetCommandInfo when Tcl_FindCommand suffices. check-in: 352223b866 user: jan.nijtmans tags: trunk | |
2014-07-08
| ||
13:45 | The write and flush operations of reflected transforms ([chan push]) have been converting all lower ... check-in: cedfcfd1b5 user: dgp tags: trunk | |
Changes
Changes to generic/tclZlib.c.
︙ | ︙ | |||
639 640 641 642 643 644 645 | Tcl_Obj *dictObj, /* Dictionary containing headers for gzip. */ Tcl_ZlibStream *zshandlePtr) { int wbits = 0; int e; ZlibStreamHandle *zshPtr = NULL; Tcl_DString cmdname; | < | 639 640 641 642 643 644 645 646 647 648 649 650 651 652 | Tcl_Obj *dictObj, /* Dictionary containing headers for gzip. */ Tcl_ZlibStream *zshandlePtr) { int wbits = 0; int e; ZlibStreamHandle *zshPtr = NULL; Tcl_DString cmdname; GzipHeader *gzHeaderPtr = NULL; switch (mode) { case TCL_ZLIB_STREAM_DEFLATE: /* * Compressed format is specified by the wbits parameter. See zlib.h * for details. |
︙ | ︙ | |||
765 766 767 768 769 770 771 | if (interp != NULL) { if (Tcl_Eval(interp, "::incr ::tcl::zlib::cmdcounter") != TCL_OK) { goto error; } Tcl_DStringInit(&cmdname); TclDStringAppendLiteral(&cmdname, "::tcl::zlib::streamcmd_"); TclDStringAppendObj(&cmdname, Tcl_GetObjResult(interp)); | | | | 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 | if (interp != NULL) { if (Tcl_Eval(interp, "::incr ::tcl::zlib::cmdcounter") != TCL_OK) { goto error; } Tcl_DStringInit(&cmdname); TclDStringAppendLiteral(&cmdname, "::tcl::zlib::streamcmd_"); TclDStringAppendObj(&cmdname, Tcl_GetObjResult(interp)); if (Tcl_FindCommand(interp, Tcl_DStringValue(&cmdname), NULL, 0) != NULL) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "BUG: Stream command name already exists", -1)); Tcl_SetErrorCode(interp, "TCL", "BUG", "EXISTING_CMD", NULL); Tcl_DStringFree(&cmdname); goto error; } Tcl_ResetResult(interp); |
︙ | ︙ |