summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-03-27 12:36:28 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-03-27 12:36:28 (GMT)
commit346f5718f86090683709671a6028aa962edf6e54 (patch)
tree00d34e4bd727da185eb4b5bfedf9dc2f33697326
parent706ba6af5218493763fbf25a29f5364a84c0719c (diff)
downloadtcl-346f5718f86090683709671a6028aa962edf6e54.zip
tcl-346f5718f86090683709671a6028aa962edf6e54.tar.gz
tcl-346f5718f86090683709671a6028aa962edf6e54.tar.bz2
gcc warning: unused but set variable
-rw-r--r--generic/tclOO.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c
index 22a4d57..9dd8162 100644
--- a/generic/tclOO.c
+++ b/generic/tclOO.c
@@ -1618,7 +1618,7 @@ Tcl_NewObjectInstance(
TclOOGetCallContext(oPtr, NULL, CONSTRUCTOR, NULL);
if (contextPtr != NULL) {
- int result, flags;
+ int result;
Tcl_InterpState state;
state = Tcl_SaveInterpState(interp, TCL_OK);
@@ -1626,7 +1626,6 @@ Tcl_NewObjectInstance(
contextPtr->skip = skip;
result = Tcl_NRCallObjProc(interp, TclOOInvokeContext, contextPtr,
objc, objv);
- flags = oPtr->flags;
/*
* It's an error if the object was whacked in the constructor.