summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.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/tclBasic.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/tclBasic.c')
-rw-r--r--generic/tclBasic.c24
1 files changed, 12 insertions, 12 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index cd7bd25..b0cc7f6 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -16,7 +16,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclBasic.c,v 1.409 2009/11/16 18:00:11 dgp Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.410 2009/11/18 21:59:50 nijtmans Exp $
*/
#include "tclInt.h"
@@ -4075,7 +4075,7 @@ TclNREvalObjv(
cmdPtrPtr = (Command **) &(TOP_CB(interp)->data[0]);
TclNRSpliceDeferred(interp);
-
+
iPtr->numLevels++;
result = TclInterpReady(interp);
@@ -4564,14 +4564,14 @@ TEOV_NotFound(
/*
* Release any resources we locked and allocated during the handler call.
*/
-
+
for (i = 0; i < handlerObjc; ++i) {
Tcl_DecrRefCount(newObjv[i]);
}
TclStackFree(interp, newObjv);
return TCL_ERROR;
}
-
+
if (lookupNsPtr) {
savedNsPtr = varFramePtr->nsPtr;
varFramePtr->nsPtr = lookupNsPtr;
@@ -4591,9 +4591,9 @@ TEOV_NotFoundCallback(
int objc = PTR2INT(data[0]);
Tcl_Obj **objv = data[1];
Namespace *savedNsPtr = data[2];
-
+
int i;
-
+
if (savedNsPtr) {
iPtr->varFramePtr->nsPtr = savedNsPtr;
}
@@ -4608,7 +4608,7 @@ TEOV_NotFoundCallback(
TclStackFree(interp, objv);
return result;
-}
+}
static int
TEOV_RunEnterTraces(
@@ -5928,7 +5928,7 @@ TclNREvalObjEx(
listPtr = TclListObjCopy(interp, objPtr);
Tcl_IncrRefCount(listPtr);
TclDecrRefCount(objPtr);
-
+
if (word != INT_MIN) {
/*
* TIP #280 Structures for tracking lines. As we know that this is
@@ -8192,12 +8192,12 @@ TclNRTailcallObjCmd(
Tcl_Obj *listPtr, *nsObjPtr;
Tcl_Namespace *nsPtr = (Tcl_Namespace *) iPtr->varFramePtr->nsPtr;
Tcl_Namespace *ns1Ptr;
-
+
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "command ?arg ...?");
return TCL_ERROR;
}
-
+
if (!iPtr->varFramePtr->isProcCallFrame || /* is not a body ... */
(iPtr->framePtr != iPtr->varFramePtr)) { /* or is upleveled */
Tcl_SetResult(interp,
@@ -8215,7 +8215,7 @@ TclNRTailcallObjCmd(
Tcl_Panic("Tailcall failed to find the proper namespace");
}
Tcl_IncrRefCount(nsObjPtr);
-
+
/*
* Add two callbacks: first the one to actually evaluate the tailcalled
* command, then the one that signals TEBC to stash the first at its
@@ -8340,7 +8340,7 @@ static int NRCoroutineExitCallback(ClientData data[],
static int NRCoroutineCallerCallback(ClientData data[],
Tcl_Interp *interp, int result);
-static const CorContext NULL_CONTEXT = {NULL, NULL, NULL};
+static const CorContext NULL_CONTEXT = {NULL, NULL, NULL, NULL};
#define SAVE_CONTEXT(context) \
(context).framePtr = iPtr->framePtr; \