diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-27 13:52:42 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-27 13:52:42 (GMT) |
| commit | 8bfaaa8337b18264aac9bcc0f66a70bcc9f2c68d (patch) | |
| tree | e67b17ab9f154fa50507049ca47d3ab1b503f880 /generic/tclObj.c | |
| parent | 54b8f460977c12181e89d16fd8e35e45a5ebf878 (diff) | |
| download | tcl-8bfaaa8337b18264aac9bcc0f66a70bcc9f2c68d.zip tcl-8bfaaa8337b18264aac9bcc0f66a70bcc9f2c68d.tar.gz tcl-8bfaaa8337b18264aac9bcc0f66a70bcc9f2c68d.tar.bz2 | |
Simplify Tcl 9 compatibility macro's. No change in functionality.
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 7c433d1..933138c 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -1726,7 +1726,7 @@ char * TclGetStringFromObj( Tcl_Obj *objPtr, /* Object whose string rep byte pointer should * be returned. */ - ptrdiff_t *lengthPtr) /* If non-NULL, the location where the string + void *lengthPtr) /* If non-NULL, the location where the string * rep's byte array length should * be stored. * If NULL, no length is stored. */ { @@ -1756,7 +1756,7 @@ TclGetStringFromObj( } } if (lengthPtr != NULL) { - *lengthPtr = ((ptrdiff_t)(unsigned)(objPtr->length + 1)) - 1; + *(ptrdiff_t *)lengthPtr = ((ptrdiff_t)(unsigned)(objPtr->length + 1)) - 1; } return objPtr->bytes; } |