summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclBasic.c2
-rw-r--r--generic/tclExecute.c8
2 files changed, 7 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index baa2f2c..1889dfd 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -6109,6 +6109,8 @@ TclNREvalObjEx(
ContLineLoc *saveCLLocPtr = iPtr->scriptCLLocPtr;
ContLineLoc *clLocPtr = TclContinuationsGet(objPtr);
+ assert(invoker == NULL);
+
if (clLocPtr) {
iPtr->scriptCLLocPtr = clLocPtr;
Tcl_Preserve(iPtr->scriptCLLocPtr);
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 11e9920..f6072a1 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -8774,13 +8774,15 @@ TclGetSrcInfoForPc(
{
ByteCode *codePtr = (ByteCode *) cfPtr->data.tebc.codePtr;
- if (cfPtr->cmd == NULL) {
+ assert(cfPtr->type == TCL_LOCATION_BC);
+ assert(cfPtr->cmd == NULL);
+
cfPtr->cmd = GetSrcInfoForPc(
(unsigned char *) cfPtr->data.tebc.pc, codePtr,
&cfPtr->len, NULL, NULL);
- }
- if (cfPtr->cmd != NULL) {
+ assert(cfPtr->cmd != NULL);
+ {
/*
* We now have the command. We can get the srcOffset back and from
* there find the list of word locations for this command.