diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-21 06:16:53 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-21 06:16:53 (GMT) |
| commit | c7f27e3c8788c57a0e58d4b31140a4c4652a422f (patch) | |
| tree | b75c4e99c0169e29c90064020a7e6b69e081544c /unix/tclUnixInit.c | |
| parent | e86259d193d2c7ad6628755161cc75a706e194cb (diff) | |
| download | tcl-c7f27e3c8788c57a0e58d4b31140a4c4652a422f.zip tcl-c7f27e3c8788c57a0e58d4b31140a4c4652a422f.tar.gz tcl-c7f27e3c8788c57a0e58d4b31140a4c4652a422f.tar.bz2 | |
Fix warnings generated on disable8api builds
Diffstat (limited to 'unix/tclUnixInit.c')
| -rw-r--r-- | unix/tclUnixInit.c | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c index 9d1c192..1aecbd8 100644 --- a/unix/tclUnixInit.c +++ b/unix/tclUnixInit.c @@ -544,9 +544,17 @@ TclpInitLibraryPath( Tcl_DStringFree(&buffer); *encodingPtr = Tcl_GetEncoding(NULL, NULL); - str = Tcl_GetStringFromObj(pathPtr, lengthPtr); - *valuePtr = (char *)Tcl_Alloc(*lengthPtr + 1); - memcpy(*valuePtr, str, *lengthPtr + 1); + + /* + * Note lengthPtr is (TCL_HASH_TYPE *) which is unsigned so cannot + * pass directly to Tcl_GetStringFromObj. + * TODO - why is the type TCL_HASH_TYPE anyways? + */ + Tcl_Size length; + str = Tcl_GetStringFromObj(pathPtr, &length); + *lengthPtr = length; + *valuePtr = (char *)Tcl_Alloc(length + 1); + memcpy(*valuePtr, str, length + 1); Tcl_DecrRefCount(pathPtr); } |