diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-25 12:58:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-25 12:58:20 (GMT) |
| commit | 61cb2bb279450c852f00de270e28b8b7fa1d4533 (patch) | |
| tree | 2f8828416d8432593252efda2b82a1dca54b7c79 /generic/tclOO.c | |
| parent | f09de888df51736f6e35a190ee1eef87b39048cf (diff) | |
| parent | 328fa692fbd773527e3f656e71f312717a9daed9 (diff) | |
| download | tcl-61cb2bb279450c852f00de270e28b8b7fa1d4533.zip tcl-61cb2bb279450c852f00de270e28b8b7fa1d4533.tar.gz tcl-61cb2bb279450c852f00de270e28b8b7fa1d4533.tar.bz2 | |
merge trunk
Add -Wwrite-strings to compiler options, so we can guarantee correct "const" usage.
Diffstat (limited to 'generic/tclOO.c')
| -rw-r--r-- | generic/tclOO.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index f5e1f20..2593234 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -843,7 +843,7 @@ ObjectRenamedTrace( result = Tcl_NRCallObjProc(interp, TclOOInvokeContext, contextPtr, 0, NULL); if (result != TCL_OK) { - Tcl_BackgroundError(interp); + Tcl_BackgroundException(interp, result); } Tcl_RestoreInterpState(interp, state); TclOODeleteContext(contextPtr); |