diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-03 10:01:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-03 10:01:20 (GMT) |
| commit | ef0bb68bcb7408ec078badf8cacadd093cd1eac8 (patch) | |
| tree | 56b8535b4c3d6b69e3a947d6465634b6697a38aa /generic/tclResult.c | |
| parent | 382a840e2338278254e6f05f541711cec9df065e (diff) | |
| download | tcl-ef0bb68bcb7408ec078badf8cacadd093cd1eac8.zip tcl-ef0bb68bcb7408ec078badf8cacadd093cd1eac8.tar.gz tcl-ef0bb68bcb7408ec078badf8cacadd093cd1eac8.tar.bz2 | |
Initialize legacyFreeProc with invalid value: This will result in
a crash immediately, when an extention tries to call it, in stead
of crashing some time later....
Remove some more legacy regarding accessing interp->result
Diffstat (limited to 'generic/tclResult.c')
| -rw-r--r-- | generic/tclResult.c | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/generic/tclResult.c b/generic/tclResult.c index b8f9c92..618b7d8 100644 --- a/generic/tclResult.c +++ b/generic/tclResult.c @@ -474,23 +474,6 @@ Tcl_AppendResultVA( } Tcl_AppendStringsToObjVA(objPtr, argList); Tcl_SetObjResult(interp, objPtr); - - /* - * Strictly we should call Tcl_GetStringResult(interp) here to make sure - * that interp->result is correct according to the old contract, but that - * makes the performance of much code (e.g. in Tk) absolutely awful. So we - * leave it out; code that really wants interp->result can just insert the - * calls to Tcl_GetStringResult() itself. [Patch 1041072 discussion] - */ - -#ifdef USE_INTERP_RESULT - /* - * Ensure that the interp->result is legal so old Tcl 7.* code still - * works. There's still embarrasingly much of it about... - */ - - (void) Tcl_GetStringResult(interp); -#endif /* USE_INTERP_RESULT */ } /* |