diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-09 20:42:55 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-09 20:42:55 (GMT) |
| commit | 216ea63416cffd9c521476d74fce958860d2acf9 (patch) | |
| tree | 12548bd774597467fe7fb65e16bd97a65e0b5b79 /generic/tclResult.c | |
| parent | 5a1aa160a161470edd5156772ad4b91126076fa4 (diff) | |
| parent | b1139d3d2099aad8ad1981deaa0f689e1b4c322a (diff) | |
| download | tcl-216ea63416cffd9c521476d74fce958860d2acf9.zip tcl-216ea63416cffd9c521476d74fce958860d2acf9.tar.gz tcl-216ea63416cffd9c521476d74fce958860d2acf9.tar.bz2 | |
Merge 8.7. Define Tcl_GetStringResult() as macro.
Diffstat (limited to 'generic/tclResult.c')
| -rw-r--r-- | generic/tclResult.c | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/generic/tclResult.c b/generic/tclResult.c index a59a704..c75a1f1 100644 --- a/generic/tclResult.c +++ b/generic/tclResult.c @@ -210,32 +210,6 @@ Tcl_DiscardInterpState( /* *---------------------------------------------------------------------- * - * Tcl_GetStringResult -- - * - * Returns an interpreter's result value as a string. - * - * Results: - * The interpreter's result as a string. - * - * Side effects: - * If the string result is empty, the object result is moved to the - * string result, then the object result is reset. - * - *---------------------------------------------------------------------- - */ - -const char * -Tcl_GetStringResult( - register Tcl_Interp *interp)/* Interpreter whose result to return. */ -{ - Interp *iPtr = (Interp *) interp; - - return TclGetString(iPtr->objResultPtr); -} - -/* - *---------------------------------------------------------------------- - * * Tcl_SetObjResult -- * * Arrange for objPtr to be an interpreter's result value. |