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/tclIORChan.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/tclIORChan.c')
| -rw-r--r-- | generic/tclIORChan.c | 20 |
1 files changed, 8 insertions, 12 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index c8449aa..859366f 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -522,9 +522,10 @@ TclChanCreateObjCmd( * Actually: rCreate MODE CMDPREFIX * [0] [1] [2] */ - -#define MODE (1) -#define CMD (2) + enum ArgIndices { + MODE = 1, + CMD = 2 + }; /* * Number of arguments... @@ -739,9 +740,6 @@ TclChanCreateObjCmd( Tcl_DecrRefCount(rcPtr->cmd); Tcl_Free(rcPtr); return TCL_ERROR; - -#undef MODE -#undef CMD } /* @@ -826,9 +824,10 @@ TclChanPostEventObjCmd( * * where EVENTSPEC = {read write ...} (Abbreviations allowed as well). */ - -#define CHAN (1) -#define EVENT (2) + enum ArgIndices { + CHAN = 1, + EVENT = 2 + }; const char *chanId; /* Tcl level channel handle */ Tcl_Channel chan; /* Channel associated to the handle */ @@ -980,9 +979,6 @@ TclChanPostEventObjCmd( Tcl_ResetResult(interp); return TCL_OK; - -#undef CHAN -#undef EVENT } /* |