Differences From Artifact [c7250a5478]:

• File generic/tclBinary.c — part of check-in [5f6c7373c1] at 2024-05-28 12:38:44 on branch core-8-6-branch — Make TclGlob() a static function. Sentinel/indenting/comment improvements (all backported from 8.7) (user: jan.nijtmans size: 77926)

To Artifact [df6a5dff7f]:

• File generic/tclBinary.c — part of check-in [4a1e38600e] at 2024-05-29 19:14:34 on branch core-8-6-branch — Another round of sentinel fixes for 8.6, NULL -> (char *)NULL (user: jan.nijtmans size: 77934) [more...]

2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447

    } else {
	TclUtfToUniChar((const char *)(data - 1), &ch);
    }
    TclDecrRefCount(resultObj);
    Tcl_SetObjResult(interp, Tcl_ObjPrintf(
	    "invalid hexadecimal digit \"%c\" at position %d",
	    ch, (int) (data - datastart - 1)));
    Tcl_SetErrorCode(interp, "TCL", "BINARY", "DECODE", "INVALID", NULL);
    return TCL_ERROR;
}

/*
 *----------------------------------------------------------------------
 *
 * BinaryEncode64 --

|

2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447

    } else {
	TclUtfToUniChar((const char *)(data - 1), &ch);
    }
    TclDecrRefCount(resultObj);
    Tcl_SetObjResult(interp, Tcl_ObjPrintf(
	    "invalid hexadecimal digit \"%c\" at position %d",
	    ch, (int) (data - datastart - 1)));
    Tcl_SetErrorCode(interp, "TCL", "BINARY", "DECODE", "INVALID", (char *)NULL);
    return TCL_ERROR;
}

/*
 *----------------------------------------------------------------------
 *
 * BinaryEncode64 --