diff options
author | dgp <dgp@noemail.net> | 2011-04-21 13:24:25 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-04-21 13:24:25 (GMT) |
commit | 8ffca00c252fc6b8bd5a411c2d0db20a45adfb71 (patch) | |
tree | 0c3fcde0a02a3747b4b81d374da8af259c859890 /macosx/tclMacOSXFCmd.c | |
parent | 56e7b5b5cfd1fb7079e1565de46d97e037ab1028 (diff) | |
parent | 7c27aff4b7f721ba1604524e8987d080641d582d (diff) | |
download | tcl-8ffca00c252fc6b8bd5a411c2d0db20a45adfb71.zip tcl-8ffca00c252fc6b8bd5a411c2d0db20a45adfb71.tar.gz tcl-8ffca00c252fc6b8bd5a411c2d0db20a45adfb71.tar.bz2 |
Make sure SetFooFromAny routines react reasonably when passed a NULL interp.
FossilOrigin-Name: 0da07d5b1e2189ddb3e03e53da787dc681cb46bc
Diffstat (limited to 'macosx/tclMacOSXFCmd.c')
-rw-r--r-- | macosx/tclMacOSXFCmd.c | 6 |
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; |