diff options
| author | nijtmans <nijtmans> | 2008-11-16 22:22:11 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-11-16 22:22:11 (GMT) |
| commit | 97cffdf748033bc48656674844a82e30d9aae794 (patch) | |
| tree | 83568fb4ec41e18f53ac2fb9bc987deebd40f782 /generic | |
| parent | 6ff3c3c441fa2cb37d39c2f0604ffa9160e12e76 (diff) | |
| download | tcl-97cffdf748033bc48656674844a82e30d9aae794.zip tcl-97cffdf748033bc48656674844a82e30d9aae794.tar.gz tcl-97cffdf748033bc48656674844a82e30d9aae794.tar.bz2 | |
change two Tcl_SetResult calls to Tcl_SetObjResult,
as simplification for the TIP #340 patch.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclTest.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index d8c00b6..515d922 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTest.c,v 1.129 2008/10/17 16:32:58 dgp Exp $ + * RCS: @(#) $Id: tclTest.c,v 1.130 2008/11/16 22:22:11 nijtmans Exp $ */ #define TCL_TEST @@ -5891,7 +5891,7 @@ TestFilesystemObjCmd( Tcl_Obj *const objv[]) { int res, boolVal; - char *msg; + const char *msg; if (objc != 2) { Tcl_WrongNumArgs(interp, 1, objv, "boolean"); @@ -5907,7 +5907,7 @@ TestFilesystemObjCmd( res = Tcl_FSUnregister(&testReportingFilesystem); msg = (res == TCL_OK) ? "unregistered" : "failed"; } - Tcl_SetResult(interp, msg, TCL_VOLATILE); + Tcl_SetObjResult(interp, Tcl_NewStringObj(msg , -1)); return res; } @@ -6263,7 +6263,7 @@ TestSimpleFilesystemObjCmd( Tcl_Obj *const objv[]) { int res, boolVal; - char *msg; + const char *msg; if (objc != 2) { Tcl_WrongNumArgs(interp, 1, objv, "boolean"); @@ -6279,7 +6279,7 @@ TestSimpleFilesystemObjCmd( res = Tcl_FSUnregister(&simpleFilesystem); msg = (res == TCL_OK) ? "unregistered" : "failed"; } - Tcl_SetResult(interp, msg, TCL_VOLATILE); + Tcl_SetObjResult(interp, Tcl_NewStringObj(msg , -1)); return res; } |