diff options
author | dgp <dgp@noemail.net> | 2011-04-21 12:58:31 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-04-21 12:58:31 (GMT) |
commit | 7c27aff4b7f721ba1604524e8987d080641d582d (patch) | |
tree | b8ecdf481ef7cee8415ecfaad655ad6d985cbbf0 /generic/tclCompile.c | |
parent | e65eb9c9e1ae98da2af403b30deabb51a0c0df70 (diff) | |
download | tcl-7c27aff4b7f721ba1604524e8987d080641d582d.zip tcl-7c27aff4b7f721ba1604524e8987d080641d582d.tar.gz tcl-7c27aff4b7f721ba1604524e8987d080641d582d.tar.bz2 |
Make sure SetFooFromAny routines react reasonably when passed a NULL interp.
FossilOrigin-Name: 2adc132d5223ca31015c197873552d9d7fd254ab
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r-- | generic/tclCompile.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 660a1f2..0b1a3ff 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -333,12 +333,12 @@ Tcl_ObjType tclByteCodeType = { * compiling its string representation. This function also takes * a hook procedure that will be invoked to perform any needed post * processing on the compilation results before generating byte - * codes. + * codes. interp is compilation context and may not be NULL. * * Results: * The return value is a standard Tcl object result. If an error occurs * during compilation, an error message is left in the interpreter's - * result unless "interp" is NULL. + * result. * * Side effects: * Frees the old internal representation. If no error occurs, then the @@ -515,6 +515,9 @@ SetByteCodeFromAny(interp, objPtr) * being compiled. Must not be NULL. */ Tcl_Obj *objPtr; /* The object to make a ByteCode object. */ { + if (interp == NULL) { + return TCL_ERROR; + } return TclSetByteCodeFromAny(interp, objPtr, (CompileHookProc *) NULL, (ClientData) NULL); } |