summaryrefslogtreecommitdiffstats
path: root/macosx
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-04-21 13:24:25 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-04-21 13:24:25 (GMT)
commit842312f3957922d5d3255fd5d2a511220f26c748 (patch)
tree0c3fcde0a02a3747b4b81d374da8af259c859890 /macosx
parent0931d1b4cbfc3fca3e3bd7e227bd7632853c1384 (diff)
parent3dee0582a464245f4ebfb6cc887e198566d3f035 (diff)
downloadtcl-842312f3957922d5d3255fd5d2a511220f26c748.zip
tcl-842312f3957922d5d3255fd5d2a511220f26c748.tar.gz
tcl-842312f3957922d5d3255fd5d2a511220f26c748.tar.bz2
Make sure SetFooFromAny routines react reasonably when passed a NULL interp.
Diffstat (limited to 'macosx')
-rw-r--r--macosx/tclMacOSXFCmd.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/macosx/tclMacOSXFCmd.c b/macosx/tclMacOSXFCmd.c
index 8eb3e57..09ee96d 100644
--- a/macosx/tclMacOSXFCmd.c
+++ b/macosx/tclMacOSXFCmd.c
@@ -623,8 +623,10 @@ SetOSTypeFromAny(
Tcl_UtfToExternalDString(encoding, string, length, &ds);
if (Tcl_DStringLength(&ds) > 4) {
- Tcl_AppendResult(interp, "expected Macintosh OS type but got \"",
- string, "\": ", NULL);
+ if (interp) {
+ Tcl_AppendResult(interp, "expected Macintosh OS type but got \"",
+ string, "\": ", NULL);
+ }
result = TCL_ERROR;
} else {
OSType osType;