diff options
| author | hobbs <hobbs> | 2004-07-02 23:35:44 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2004-07-02 23:35:44 (GMT) |
| commit | 9b5d222f743985134ef42b6441545e60e0d64ef2 (patch) | |
| tree | 833d2703747a576dfe730255708918c2fc417cbe | |
| parent | 2ab4506f34cae724a01ece9dc1c650e5a9b674e9 (diff) | |
| download | tcl-9b5d222f743985134ef42b6441545e60e0d64ef2.zip tcl-9b5d222f743985134ef42b6441545e60e0d64ef2.tar.gz tcl-9b5d222f743985134ef42b6441545e60e0d64ef2.tar.bz2 | |
* generic/regcomp.c (stid): correct minor pointer size error
| -rw-r--r-- | ChangeLog | 2 | ||||
| -rw-r--r-- | generic/regcomp.c | 4 |
2 files changed, 4 insertions, 2 deletions
@@ -1,5 +1,7 @@ 2004-07-02 Jeff Hobbs <jeffh@ActiveState.com> + * generic/regcomp.c (stid): correct minor pointer size error + * generic/tclPipe.c (TclCreatePipeline): applied TIP #202 patch * doc/exec.n, tests/exec.test: that adds 2>@1 as a special case redirection of stderr to the result output. diff --git a/generic/regcomp.c b/generic/regcomp.c index 2a7fd6e..29be00f 100644 --- a/generic/regcomp.c +++ b/generic/regcomp.c @@ -2163,12 +2163,12 @@ char *buf; size_t bufsize; { /* big enough for hex int or decimal t->retry? */ - if (bufsize < sizeof(int)*2 + 3 || bufsize < sizeof(t->retry)*3 + 1) + if (bufsize < sizeof(void*)*2 + 3 || bufsize < sizeof(t->retry)*3 + 1) return "unable"; if (t->retry != 0) sprintf(buf, "%d", t->retry); else - sprintf(buf, "0x%x", (int)t); /* may lose bits, that's okay */ + sprintf(buf, "%p", t); return buf; } |