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/tclEvent.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/tclEvent.c')
| -rw-r--r-- | generic/tclEvent.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index c72317d..0a18529 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclEvent.c,v 1.8.2.5.2.1 2001/11/28 17:58:35 andreas_kupries Exp $ + * RCS: @(#) $Id: tclEvent.c,v 1.8.2.5.2.2 2001/12/05 18:22:25 andreas_kupries Exp $ */ #include "tclInt.h" @@ -270,12 +270,14 @@ HandleBgErrors(clientData) */ if (Tcl_IsSafe(interp)) { - Tcl_SavedResult save; + TEMP (Tcl_SavedResult) save; + NEWTEMP (Tcl_SavedResult, save); - Tcl_SaveResult(interp, &save); + Tcl_SaveResult(interp, REF (save)); TclGlobalInvoke(interp, 2, argv, TCL_INVOKE_HIDDEN); - Tcl_RestoreResult(interp, &save); + Tcl_RestoreResult(interp, REF (save)); + RELTEMP (save); goto doneWithInterp; } |