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 /generic/tclCompile.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 'generic/tclCompile.c')
-rw-r--r-- | generic/tclCompile.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index f2c4fdc..2d8d58c 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -454,12 +454,13 @@ Tcl_ObjType tclByteCodeType = { * generate an byte code internal form for the Tcl object "objPtr" by * 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. + * on the compilation results before generating byte 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 @@ -616,6 +617,9 @@ SetByteCodeFromAny( * compiled. Must not be NULL. */ Tcl_Obj *objPtr) /* The object to make a ByteCode object. */ { + if (interp == NULL) { + return TCL_ERROR; + } (void) TclSetByteCodeFromAny(interp, objPtr, NULL, (ClientData) NULL); return TCL_OK; } |