#3710 [binary format] write to interp result without unshared chk

[Don Porter]

The anti pattern shows up at
line 773 of Revision 1.13.2.4
of tclBinary.c:

resultPtr = Tcl_GetObjResult(interp);
buffer = Tcl_SetByteArrayLength(resultPtr, length);