Differences From Artifact [4f459c1e32]:

• File generic/tclBinary.c — part of check-in [32aebe8054] at 2022-11-19 16:29:09 on branch tip-626 — Merge 9.0 (user: jan.nijtmans size: 82314) [more...]

To Artifact [c8a78b825e]:

• File generic/tclBinary.c — part of check-in [2b17ac5d49] at 2022-11-23 21:12:52 on branch tip-626 — Merge 8.7 (user: jan.nijtmans size: 82321) [more...]

526
527
528
529
530
531
532
533
534
535
536
537
538
539
540

    byteArrayPtr->used = dst - byteArrayPtr->bytes;
    byteArrayPtr->allocated = numBytes;

    *byteArrayPtrPtr = byteArrayPtr;
    return proper;
}

Tcl_Obj *
TclNarrowToBytes(
    Tcl_Obj *objPtr)
{
    if (NULL == TclFetchInternalRep(objPtr, &properByteArrayType)) {
	Tcl_ObjInternalRep ir;
	ByteArray *byteArrayPtr;

|

526
527
528
529
530
531
532
533
534
535
536
537
538
539
540

    byteArrayPtr->used = dst - byteArrayPtr->bytes;
    byteArrayPtr->allocated = numBytes;

    *byteArrayPtrPtr = byteArrayPtr;
    return proper;
}

static Tcl_Obj *
TclNarrowToBytes(
    Tcl_Obj *objPtr)
{
    if (NULL == TclFetchInternalRep(objPtr, &properByteArrayType)) {
	Tcl_ObjInternalRep ir;
	ByteArray *byteArrayPtr;