diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-03-27 12:36:28 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-03-27 12:36:28 (GMT) |
| commit | 346f5718f86090683709671a6028aa962edf6e54 (patch) | |
| tree | 00d34e4bd727da185eb4b5bfedf9dc2f33697326 /generic | |
| parent | 706ba6af5218493763fbf25a29f5364a84c0719c (diff) | |
| download | tcl-346f5718f86090683709671a6028aa962edf6e54.zip tcl-346f5718f86090683709671a6028aa962edf6e54.tar.gz tcl-346f5718f86090683709671a6028aa962edf6e54.tar.bz2 | |
gcc warning: unused but set variable
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclOO.c | 3 |
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. |