diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-08-22 10:16:49 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-08-22 10:16:49 (GMT) |
| commit | 11d48cf9a94ffd0f61f698c1c81fca711e1a65b3 (patch) | |
| tree | 9d238f83e8d81e6d0f66a24a4dd482c06473605f /generic/tclIORTrans.c | |
| parent | 5e67db1121363ac6be972bb2d779ad5c88c4a273 (diff) | |
| parent | a64b3e4f6f9fc4141aa2211d311c5877006c7e08 (diff) | |
| download | tcl-11d48cf9a94ffd0f61f698c1c81fca711e1a65b3.zip tcl-11d48cf9a94ffd0f61f698c1c81fca711e1a65b3.tar.gz tcl-11d48cf9a94ffd0f61f698c1c81fca711e1a65b3.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tclIORTrans.c')
| -rw-r--r-- | generic/tclIORTrans.c | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/generic/tclIORTrans.c b/generic/tclIORTrans.c index dce1a1c..d2853e2 100644 --- a/generic/tclIORTrans.c +++ b/generic/tclIORTrans.c @@ -529,9 +529,10 @@ TclChanPushObjCmd( * Actually: rPush CHANNEL CMDPREFIX * [0] [1] [2] */ - -#define CHAN (1) -#define CMD (2) + enum ArgIndices { + CHAN = 1, + CMD = 2 + }; /* * Number of arguments... @@ -714,9 +715,6 @@ TclChanPushObjCmd( Tcl_EventuallyFree(rtPtr, FreeReflectedTransform); return TCL_ERROR; - -#undef CHAN -#undef CMD } /* @@ -751,8 +749,9 @@ TclChanPopObjCmd( * Actually: rPop CHANNEL * [0] [1] */ - -#define CHAN (1) + enum ArgIndices { + CHAN = 1 + }; const char *chanId; /* Tcl level channel handle */ Tcl_Channel chan; /* Channel associated to the handle */ @@ -786,8 +785,6 @@ TclChanPopObjCmd( Tcl_UnstackChannel(interp, chan); return TCL_OK; - -#undef CHAN } /* |