diff options
| author | andreas_kupries <akupries@shaw.ca> | 2001-12-05 18:22:24 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2001-12-05 18:22:24 (GMT) |
| commit | c2a8f646627f4cec5a76810a5b59d17229c5eec6 (patch) | |
| tree | c99bcc14812bc67defd3e90e776b514766e0e574 /generic/tclParse.c | |
| parent | 8c077c7737d8f145bda783f4f6ae7b66660d5c3d (diff) | |
| download | tcl-c2a8f646627f4cec5a76810a5b59d17229c5eec6.zip tcl-c2a8f646627f4cec5a76810a5b59d17229c5eec6.tar.gz tcl-c2a8f646627f4cec5a76810a5b59d17229c5eec6.tar.bz2 | |
* NOTES: Updated to explain the usage of the various macros
upfront. The original contents remain and are declared to be the
scratchpad.
* tclCmdMZ.c:
* tclCompCmds.c:
* tclCompile.c:
* tclEvent.c:
* tclExecute.c:
* tclNamesp.c:
* tclParse.c:
* tclProc.c:
* tclUtil.c: More places using TCL_STRUCT_ON_HEAP.
Diffstat (limited to 'generic/tclParse.c')
| -rw-r--r-- | generic/tclParse.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/generic/tclParse.c b/generic/tclParse.c index 41037ae..84d1ba9 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.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: tclParse.c,v 1.13.2.1.2.2 2001/12/04 21:52:09 andreas_kupries Exp $ + * RCS: @(#) $Id: tclParse.c,v 1.13.2.1.2.3 2001/12/05 18:22:25 andreas_kupries Exp $ */ #include "tclInt.h" @@ -1074,17 +1074,19 @@ Tcl_LogCommandInfo(interp, script, command, length) int length; /* Number of bytes in command (-1 means * use all bytes up to first null byte). */ { - char buffer[200]; + STRING (200, buffer); register char *p; char *ellipsis = ""; Interp *iPtr = (Interp *) interp; + NEWSTR (200, buffer); if (iPtr->flags & ERR_ALREADY_LOGGED) { /* * Someone else has already logged error information for this * command; we shouldn't add anything more. */ + RELTEMP (buffer); return; } @@ -1120,6 +1122,7 @@ Tcl_LogCommandInfo(interp, script, command, length) } Tcl_AddObjErrorInfo(interp, buffer, -1); iPtr->flags &= ~ERR_ALREADY_LOGGED; + RELTEMP (buffer); } /* |