diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-03-27 12:36:28 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-03-27 12:36:28 (GMT) |
| commit | 49f3533203bebc28bb446d1de57d96fb56d703ae (patch) | |
| tree | 00d34e4bd727da185eb4b5bfedf9dc2f33697326 | |
| parent | 19569a632b3dc320224acceb1547fc2846cff355 (diff) | |
| download | tcl-49f3533203bebc28bb446d1de57d96fb56d703ae.zip tcl-49f3533203bebc28bb446d1de57d96fb56d703ae.tar.gz tcl-49f3533203bebc28bb446d1de57d96fb56d703ae.tar.bz2 | |
gcc warning: unused but set variable
| -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. |