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/tclStringObj.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/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 010d822..d3a17d1 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -988,7 +988,7 @@ unsigned short * TclGetUnicodeFromObj( Tcl_Obj *objPtr, /* The object to find the unicode string * for. */ - ptrdiff_t *lengthPtr) /* If non-NULL, the location where the string + void *lengthPtr) /* If non-NULL, the location where the string * rep's unichar length should be stored. If * NULL, no length is stored. */ { @@ -1002,7 +1002,7 @@ TclGetUnicodeFromObj( stringPtr = GET_STRING(objPtr); if (lengthPtr != NULL) { - *lengthPtr = stringPtr->numChars; + *(ptrdiff_t *)lengthPtr = stringPtr->numChars; } return stringPtr->unicode; } |