summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-06-02 18:54:09 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-06-02 18:54:09 (GMT)
commit77f3ad2fcd5b1383a5a9e38441c20bbb4227fd03 (patch)
tree55a55b70aa1c47ffb6ad15fcc139e579f54548c3
parent8bd69e27f28e6a4927f6df9aacd29694d76c0dca (diff)
downloadtcl-77f3ad2fcd5b1383a5a9e38441c20bbb4227fd03.zip
tcl-77f3ad2fcd5b1383a5a9e38441c20bbb4227fd03.tar.gz
tcl-77f3ad2fcd5b1383a5a9e38441c20bbb4227fd03.tar.bz2
Remove useless macro, use existing macro where it makes sense.
-rw-r--r--generic/tclAssembly.c4
-rw-r--r--generic/tclCompile.h3
2 files changed, 2 insertions, 5 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c
index 0fe50b3a..d1af8c6 100644
--- a/generic/tclAssembly.c
+++ b/generic/tclAssembly.c
@@ -650,7 +650,7 @@ BBEmitOpcode(
}
TclEmitInt1(op, envPtr);
- envPtr->atCmdStart = ((op) == INST_START_CMD);
+ TclUpdateAtCmdStart(op, envPtr);
BBUpdateStackReqs(bbPtr, tblIdx, count);
}
@@ -711,7 +711,7 @@ BBEmitInst1or4(
} else {
TclEmitInt4(param, envPtr);
}
- envPtr->atCmdStart = ((op) == INST_START_CMD);
+ TclUpdateAtCmdStart(op, envPtr);
BBUpdateStackReqs(bbPtr, tblIdx, count);
}
diff --git a/generic/tclCompile.h b/generic/tclCompile.h
index 8430da3..4b50710 100644
--- a/generic/tclCompile.h
+++ b/generic/tclCompile.h
@@ -1450,14 +1450,11 @@ MODULE_SCOPE Tcl_Obj *TclNewInstNameObj(unsigned char inst);
* of LOOP ranges is an interesting datum for debugging purposes, and that is
* what we compute now.
*
- * static int DeclareExceptionRange(CompileEnv *envPtr, int type);
* static int ExceptionRangeStarts(CompileEnv *envPtr, int index);
* static void ExceptionRangeEnds(CompileEnv *envPtr, int index);
* static void ExceptionRangeTarget(CompileEnv *envPtr, int index, LABEL);
*/
-#define DeclareExceptionRange(envPtr, type) \
- (TclCreateExceptRange((type), (envPtr)))
#define ExceptionRangeStarts(envPtr, index) \
(((envPtr)->exceptDepth++), \
((envPtr)->maxExceptDepth = \