summaryrefslogtreecommitdiffstats
path: root/generic/tclRegexp.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-08-03 14:24:34 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-08-03 14:24:34 (GMT)
commit9721f569eacfc8d7452182fb57bfa2a758f580b7 (patch)
tree638bb10c1c93ca8531074a657f22bf17d2447bee /generic/tclRegexp.c
parent4152a1cc08547b251509c18405d318433f5ece2e (diff)
downloadtcl-9721f569eacfc8d7452182fb57bfa2a758f580b7.zip
tcl-9721f569eacfc8d7452182fb57bfa2a758f580b7.tar.gz
tcl-9721f569eacfc8d7452182fb57bfa2a758f580b7.tar.bz2
more result generation conversion
Diffstat (limited to 'generic/tclRegexp.c')
-rw-r--r--generic/tclRegexp.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclRegexp.c b/generic/tclRegexp.c
index 53d7153..6c1dc08 100644
--- a/generic/tclRegexp.c
+++ b/generic/tclRegexp.c
@@ -714,14 +714,14 @@ TclRegError(
int status) /* Status code to report. */
{
char buf[100]; /* ample in practice */
- char cbuf[100]; /* lots in practice */
+ char cbuf[TCL_INTEGER_SPACE];
size_t n;
const char *p;
Tcl_ResetResult(interp);
n = TclReError(status, NULL, buf, sizeof(buf));
p = (n > sizeof(buf)) ? "..." : "";
- Tcl_AppendResult(interp, msg, buf, p, NULL);
+ Tcl_SetObjResult(interp, Tcl_ObjPrintf("%s%s%s", msg, buf, p));
sprintf(cbuf, "%d", status);
(void) TclReError(REG_ITOA, NULL, cbuf, sizeof(cbuf));