summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2004-10-06 20:09:37 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2004-10-06 20:09:37 (GMT)
commit58d27ba0d542d94389154c2b5eb09169b07229d7 (patch)
tree103981eee6e3ec61aa12e4b14691c047bbb9bc9c /generic
parent0d4af99b94a36cc28d86bad10ef3062bce884961 (diff)
downloadtcl-58d27ba0d542d94389154c2b5eb09169b07229d7.zip
tcl-58d27ba0d542d94389154c2b5eb09169b07229d7.tar.gz
tcl-58d27ba0d542d94389154c2b5eb09169b07229d7.tar.bz2
Formatting fixes.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclExecute.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 7d92376..65a57dd 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclExecute.c,v 1.154 2004/10/06 14:59:01 dgp Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.155 2004/10/06 20:09:37 dkf Exp $
*/
#ifdef STDC_HEADERS
@@ -1670,7 +1670,7 @@ TclExecuteByteCode(interp, codePtr)
*/
TRACE_WITH_OBJ(("%u => ... after \"%.20s\": TCL_OK, result=",
- objc, cmdNameBuf), Tcl_GetObjResult(interp));
+ objc, cmdNameBuf), Tcl_GetObjResult(interp));
objResultPtr = Tcl_GetObjResult(interp);
@@ -1757,8 +1757,8 @@ TclExecuteByteCode(interp, codePtr)
result = Tcl_ExprObj(interp, objPtr, &valuePtr);
CACHE_STACK_INFO();
if (result != TCL_OK) {
- TRACE_WITH_OBJ(("\"%.30s\" => ERROR: ",
- O2S(objPtr)), Tcl_GetObjResult(interp));
+ TRACE_WITH_OBJ(("\"%.30s\" => ERROR: ", O2S(objPtr)),
+ Tcl_GetObjResult(interp));
goto checkForCatch;
}
objResultPtr = valuePtr;
@@ -2206,7 +2206,7 @@ TclExecuteByteCode(interp, codePtr)
REQUIRE_WIDE_OR_INT(result, objPtr, i, w);
if (result != TCL_OK) {
TRACE_WITH_OBJ(("%u (by %s) => ERROR converting increment amount to int: ",
- opnd, O2S(objPtr)), Tcl_GetObjResult(interp));
+ opnd, O2S(objPtr)), Tcl_GetObjResult(interp));
DECACHE_STACK_INFO();
Tcl_AddErrorInfo(interp, "\n (reading increment)");
CACHE_STACK_INFO();
@@ -4611,8 +4611,8 @@ TclExecuteByteCode(interp, codePtr)
CACHE_STACK_INFO();
if (value2Ptr == NULL) {
TRACE_WITH_OBJ(("%u => ERROR init. index temp %d: ",
- opnd, varIndex),
- Tcl_GetObjResult(interp));
+ opnd, varIndex),
+ Tcl_GetObjResult(interp));
if (setEmptyStr) {
TclDecrRefCount(valuePtr);
}
@@ -4661,7 +4661,7 @@ TclExecuteByteCode(interp, codePtr)
case INST_PUSH_RESULT:
objResultPtr = Tcl_GetObjResult(interp);
- TRACE_WITH_OBJ(("=> "), Tcl_GetObjResult(interp));
+ TRACE_WITH_OBJ(("=> "), objResultPtr);
/*
* See the comments at INST_INVOKE_STK