summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
authornijtmans <nijtmans>2009-11-18 21:59:49 (GMT)
committernijtmans <nijtmans>2009-11-18 21:59:49 (GMT)
commit22da2964cc80cf1b750e2c467f9b732dc17f682f (patch)
treeddefc8b4f539a5dd99629207908dae49d8e515db /generic/tclExecute.c
parent1cb4f92988da74c1fbee275ed1a3e70f784fc19f (diff)
downloadtcl-22da2964cc80cf1b750e2c467f9b732dc17f682f.zip
tcl-22da2964cc80cf1b750e2c467f9b732dc17f682f.tar.gz
tcl-22da2964cc80cf1b750e2c467f9b732dc17f682f.tar.bz2
Eliminate various gcc warnings (in -Wextra mode)
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r--generic/tclExecute.c20
1 files changed, 10 insertions, 10 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 587dd3e..404696c 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -14,7 +14,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.447 2009/09/30 03:11:25 dgp Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.448 2009/11/18 21:59:51 nijtmans Exp $
*/
#include "tclInt.h"
@@ -160,7 +160,7 @@ static BuiltinFunc const tclBuiltinFuncTable[] = {
{"round", 1},
{"srand", 1},
{"wide", 1},
- {0},
+ {NULL, 0},
};
#define LAST_BUILTIN_FUNC 25
@@ -774,7 +774,7 @@ TclCreateExecEnv(
Tcl_Interp *interp, /* Interpreter for which the execution
* environment is being created. */
int size) /* the initial stack size, in number of words
- * [sizeof(Tcl_Obj*)] */
+ * [sizeof(Tcl_Obj*)] */
{
ExecEnv *eePtr = (ExecEnv *) ckalloc(sizeof(ExecEnv));
ExecStack *esPtr = (ExecStack *) ckalloc(sizeof(ExecStack)
@@ -1622,7 +1622,7 @@ TclCompileObj(
int redo = 0;
if (invoker) {
- CmdFrame *ctxPtr = (CmdFrame *)
+ CmdFrame *ctxPtr = (CmdFrame *)
TclStackAlloc(interp, sizeof(CmdFrame));
*ctxPtr = *invoker;
@@ -1653,7 +1653,7 @@ TclCompileObj(
* test info-32.0 using literal of info-24.8
* (dict with ... vs set body ...).
*/
- redo =
+ redo =
((eclPtr->type == TCL_LOCATION_SOURCE) &&
(eclPtr->start != ctxPtr->line[word])) ||
((eclPtr->type == TCL_LOCATION_BC) &&
@@ -2132,7 +2132,7 @@ TclExecuteByteCode(
}
goto abnormalReturn;
}
-
+
if (iPtr->execEnvPtr->rewind) {
result = TCL_ERROR;
goto abnormalReturn;
@@ -2555,7 +2555,7 @@ TclExecuteByteCode(
*/
if (onlyb) {
- for (currPtr = &OBJ_AT_DEPTH(opnd-2);
+ for (currPtr = &OBJ_AT_DEPTH(opnd-2);
appendLen >= 0 && currPtr <= &OBJ_AT_TOS; currPtr++) {
if ((*currPtr)->bytes != tclEmptyStringRep) {
Tcl_GetByteArrayFromObj(*currPtr, &length);
@@ -7935,16 +7935,16 @@ TclExecuteByteCode(
/*
* Winding down: insure that all pending cleanups are done before
- * dropping out of this bytecode.
+ * dropping out of this bytecode.
*/
if (TOP_CB(interp) != bottomPtr->rootPtr) {
result = TclNRRunCallbacks(interp, result, bottomPtr->rootPtr, 1);
-
+
if (TOP_CB(interp) != bottomPtr->rootPtr) {
Tcl_Panic("Abnormal return with busy callback stack");
}
}
-
+
/*
* Clear all expansions and same-level NR calls.
*