Start on at least protecting against crashes like [0de6c1d79c]

1 files changed, 23 insertions, 0 deletions

diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index c46ab60..52bde71 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.c
@@ -1144,6 +1144,29 @@ InfoFrameCmd(
 	return TCL_ERROR;
     }
 
+    if (iPtr->cmdFramePtr == NULL) {
+	if (objc == 1) {
+	    Tcl_SetObjResult(interp, Tcl_NewIntObj(1));
+	} else {
+	    if (TclGetIntFromObj(interp, objv[1], &level) != TCL_OK) {
+		code = TCL_ERROR;
+	    } else {
+		Tcl_Obj *objs[2];
+		/*
+		 * TODO - "precompiled" is a lie. Chosen only because as documented
+		 * no other fields in the dictionary need be returned. Should
+		 * add a new type like "unknown" meaning no further information
+		 * available.
+		 * TODO - should we check that "level" is 1 ?
+		 */
+		TclNewLiteralStringObj(objs[0], "type");
+		TclNewLiteralStringObj(objs[1], "precompiled");
+		Tcl_SetObjResult(interp, Tcl_NewListObj(2, objs));
+	    }
+	}
+	return code;
+    }
+
     while (corPtr) {
 	while (*cmdFramePtrPtr) {
 	    topLevel++;