summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIORChan.c19
1 files changed, 7 insertions, 12 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c
index d665dba..2e4b192 100644
--- a/generic/tclIORChan.c
+++ b/generic/tclIORChan.c
@@ -15,7 +15,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIORChan.c,v 1.10 2005/10/19 14:12:35 dkf Exp $
+ * RCS: @(#) $Id: tclIORChan.c,v 1.11 2005/10/19 21:26:19 dkf Exp $
*/
#include <tclInt.h>
@@ -359,26 +359,21 @@ static void DstExitProc(ClientData clientData);
}
#define PassReceivedErrorInterp(i,p) \
if ((i) != NULL) { \
- Tcl_Obj *preiTmpObj; \
- TclNewStringObj(preiTmpObj, (p)->base.msgStr, -1); \
- Tcl_SetChannelErrorInterp((i), preiTmpObj); \
+ Tcl_SetChannelErrorInterp((i), \
+ Tcl_NewStringObj((p)->base.msgStr, -1)); \
} \
FreeReceivedError(p)
#define PassReceivedError(c,p) \
- { \
- Tcl_Obj *preTmpObj; \
- TclNewStringObj(preTmpObj, (p)->base.msgStr, -1); \
- Tcl_SetChannelError((c), preTmpObj); \
- FreeReceivedError(p); \
- }
+ Tcl_SetChannelError((c), Tcl_NewStringObj((p)->base.msgStr, -1)); \
+ FreeReceivedError(p)
#define ForwardSetStaticError(p,emsg) \
(p)->base.code = TCL_ERROR; \
(p)->base.mustFree = 0; \
- (p)->base.msgStr = (char *) (emsg);
+ (p)->base.msgStr = (char *) (emsg)
#define ForwardSetDynamicError(p,emsg) \
(p)->base.code = TCL_ERROR; \
(p)->base.mustFree = 1; \
- (p)->base.msgStr = (char *) (emsg);
+ (p)->base.msgStr = (char *) (emsg)
static void ForwardSetObjError(ForwardParam *p,
Tcl_Obj *objPtr);