Itk - the [incr Tk] extension

Check-in [2f9e81a683]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:[8a022f72e7] Correct memory access violation. Thanks ralfixx!
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2f9e81a683b4a8bb365f96b12373c5b01cfef7a3
User & Date: dgp 2015-05-01 16:42:59
Context
2015-05-01
16:50
[fa152b6a6e] Continue support of mixed case pacakge name "Itk". Permits continued use of [package require Itk] in existing scripts. Thanks ralfixx! check-in: b3513260e3 user: dgp tags: trunk
16:42
[8a022f72e7] Correct memory access violation. Thanks ralfixx! check-in: 2f9e81a683 user: dgp tags: trunk
2015-03-11
17:48
merge release check-in: c9fc24de31 user: dgp tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/itkArchBase.c.

508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
            /* isProcCallFrame */ 0);

    if (result == TCL_OK) {
        result = Tcl_EvalObj(interp, objPtr);
        Itcl_PopCallFrame(interp);
    }

    if (objPtr != objv[3]) {
        Tcl_DecrRefCount(objPtr);
    }
    if (result != TCL_OK) {
        goto compFail;
    }

    Itk_DelGenericOptTable(mergeInfo->optionTable);






|







508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
            /* isProcCallFrame */ 0);

    if (result == TCL_OK) {
        result = Tcl_EvalObj(interp, objPtr);
        Itcl_PopCallFrame(interp);
    }

    if (objc != 4) {
        Tcl_DecrRefCount(objPtr);
    }
    if (result != TCL_OK) {
        goto compFail;
    }

    Itk_DelGenericOptTable(mergeInfo->optionTable);