summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-10-14 08:34:48 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-10-14 08:34:48 (GMT)
commit71bcf95b719518cd64e068921561bcd2a503598e (patch)
treef8162b54ed0b55ce4d6ce831bc05a1a8beef10a9 /generic
parentd02f468b979104d4c98a39347be7960486530e1c (diff)
downloadtcl-71bcf95b719518cd64e068921561bcd2a503598e.zip
tcl-71bcf95b719518cd64e068921561bcd2a503598e.tar.gz
tcl-71bcf95b719518cd64e068921561bcd2a503598e.tar.bz2
Tcl_SetResult -> Tcl_SetObjResult in two places (for Cygwin64 only).
Diffstat (limited to 'generic')
-rw-r--r--generic/tclStubInit.c10
1 files changed, 4 insertions, 6 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 782bbdf..3f1c27b 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -234,9 +234,8 @@ static int exprInt(Tcl_Interp *interp, const char *expr, int *ptr){
&& (longValue <= (long)(UINT_MAX))) {
*ptr = (int)longValue;
} else {
- Tcl_SetResult(interp,
- "integer value too large to represent as non-long integer",
- TCL_STATIC);
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(
+ "integer value too large to represent as non-long integer", -1));
result = TCL_ERROR;
}
}
@@ -251,9 +250,8 @@ static int exprIntObj(Tcl_Interp *interp, Tcl_Obj*expr, int *ptr){
&& (longValue <= (long)(UINT_MAX))) {
*ptr = (int)longValue;
} else {
- Tcl_SetResult(interp,
- "integer value too large to represent as non-long integer",
- TCL_STATIC);
+ Tcl_SetObjResult(interp, Tcl_NewStringObj(
+ "integer value too large to represent as non-long integer", -1));
result = TCL_ERROR;
}
}