diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2015-12-20 19:48:48 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2015-12-20 19:48:48 (GMT) |
| commit | ffbb80563527a78d6bfb471698b4e53c61b7f28c (patch) | |
| tree | f8c5ec5dc3fc7186fe0d303306f0435097e72bb6 /unix | |
| parent | f5f6d8ce5174df421a262cff16cc8cbb079ba811 (diff) | |
| download | tcl-ffbb80563527a78d6bfb471698b4e53c61b7f28c.zip tcl-ffbb80563527a78d6bfb471698b4e53c61b7f28c.tar.gz tcl-ffbb80563527a78d6bfb471698b4e53c61b7f28c.tar.bz2 | |
remove interp->result and all supporting code; remove other deprecated apis
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/tclUnixTest.c | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/unix/tclUnixTest.c b/unix/tclUnixTest.c index c5ac52a..70d15cd 100644 --- a/unix/tclUnixTest.c +++ b/unix/tclUnixTest.c @@ -75,6 +75,21 @@ static Tcl_CmdProc TestsetdefencdirCmd; static Tcl_FileProc TestFileHandlerProc; static void AlarmHandler(int signum); +static void +Tcl_AppendElement ( + Tcl_Interp *interp, + const char *element) +{ + Tcl_Obj *resPtr = Tcl_GetObjResult(interp); + + if (Tcl_IsShared(resPtr)) { + resPtr = Tcl_DuplicateObj(resPtr); + } + + (void) Tcl_ListObjAppendElement(interp, resPtr, Tcl_NewStringObj(element, -1)); + Tcl_SetObjResult(interp, resPtr); +} + /* *---------------------------------------------------------------------- * |