diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-08 15:17:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-08 15:17:25 (GMT) |
| commit | b15e299eb27bc31822536712a94d53d68b9f57ae (patch) | |
| tree | 45761a36bae2c8d4f7c5f729609be433d5c02c30 | |
| parent | fb24c82dba94b255cb76db1910ae73e3e683746b (diff) | |
| parent | 153878c3eb8858310b9031c6c65feae0dcd05722 (diff) | |
| download | tcl-b15e299eb27bc31822536712a94d53d68b9f57ae.zip tcl-b15e299eb27bc31822536712a94d53d68b9f57ae.tar.gz tcl-b15e299eb27bc31822536712a94d53d68b9f57ae.tar.bz2 | |
Merge 8.7
| -rw-r--r-- | generic/tclInt.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index e16aade..2bae605 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4449,7 +4449,7 @@ MODULE_SCOPE void TclDbInitNewObj(Tcl_Obj *objPtr, const char *file, (objPtr)->bytes = &tclEmptyString; \ (objPtr)->length = 0; \ } else { \ - (objPtr)->bytes = (char *)Tcl_Alloc((len) + 1); \ + (objPtr)->bytes = (char *)Tcl_Alloc((size_t)(len) + 1U); \ memcpy((objPtr)->bytes, (bytePtr) ? (bytePtr) : &tclEmptyString, (len)); \ (objPtr)->bytes[len] = '\0'; \ (objPtr)->length = (len); \ |