diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-10-14 08:34:48 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-10-14 08:34:48 (GMT) |
| commit | 825ee3c872d1e0f72328dabfdb4f1a8135aad28c (patch) | |
| tree | f8162b54ed0b55ce4d6ce831bc05a1a8beef10a9 /generic/tclStubInit.c | |
| parent | 35598288a5205fd27e3f58c278b308cf9e87590d (diff) | |
| download | tcl-825ee3c872d1e0f72328dabfdb4f1a8135aad28c.zip tcl-825ee3c872d1e0f72328dabfdb4f1a8135aad28c.tar.gz tcl-825ee3c872d1e0f72328dabfdb4f1a8135aad28c.tar.bz2 | |
Tcl_SetResult -> Tcl_SetObjResult in two places (for Cygwin64 only).
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 10 |
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; } } |