summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-05-20 15:10:18 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-05-20 15:10:18 (GMT)
commitdca34fd2a8e63fc14396f851889696c3793a2a1d (patch)
tree61ac0a1b2ff0c423a95c233c8aa1878aa48c011d /generic
parent0eb5b1db67343f2a0f3ca3acaf567db4f3c7b9cf (diff)
downloadtcl-dca34fd2a8e63fc14396f851889696c3793a2a1d.zip
tcl-dca34fd2a8e63fc14396f851889696c3793a2a1d.tar.gz
tcl-dca34fd2a8e63fc14396f851889696c3793a2a1d.tar.bz2
3613569 Handle case when TclpTempFileNameForLibrary returns NULL.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIOUtil.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 25ed57c..6259216 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -3225,6 +3225,9 @@ Tcl_LoadFile(
*/
copyToPtr = TclpTempFileNameForLibrary(interp, pathPtr);
+ if (copyToPtr == NULL) {
+ return TCL_ERROR;
+ }
Tcl_IncrRefCount(copyToPtr);
copyFsPtr = Tcl_FSGetFileSystemForPath(copyToPtr);