diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-22 14:15:06 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-22 14:15:06 (GMT) |
| commit | ae6d91316afca4d7295521163352757b570d0e85 (patch) | |
| tree | 5b77771e69c55c2bb651a5ccdba2337103cdffad /generic/tclTest.c | |
| parent | c5e46efb954d7d3ec9a1594489918053bde2e758 (diff) | |
| parent | 1aba207fe781bcbb05472aadff385d3a7bc0b819 (diff) | |
| download | tcl-ae6d91316afca4d7295521163352757b570d0e85.zip tcl-ae6d91316afca4d7295521163352757b570d0e85.tar.gz tcl-ae6d91316afca4d7295521163352757b570d0e85.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 8caf493..f1333ba 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -5998,7 +5998,7 @@ TestReport( * API, but there you go. We should convert it to objects. */ - Tcl_SavedResult savedResult; + Tcl_Obj *savedResult; Tcl_DString ds; Tcl_DStringInit(&ds); @@ -6012,11 +6012,15 @@ TestReport( Tcl_DStringAppendElement(&ds, Tcl_GetString(arg2)); } Tcl_DStringEndSublist(&ds); - Tcl_SaveResult(interp, &savedResult); - Tcl_EvalEx(interp, Tcl_DStringValue(&ds), -1, 0); + savedResult = Tcl_GetObjResult(interp); + Tcl_IncrRefCount(savedResult); + Tcl_SetObjResult(interp, Tcl_NewObj()); + Tcl_Eval(interp, Tcl_DStringValue(&ds)); Tcl_DStringFree(&ds); - Tcl_RestoreResult(interp, &savedResult); - } + Tcl_ResetResult(interp); + Tcl_SetObjResult(interp, savedResult); + Tcl_DecrRefCount(savedResult); + } } static int |