diff options
| author | stu <stwo@users.sourceforge.net> | 2017-06-05 18:33:57 (GMT) |
|---|---|---|
| committer | stu <stwo@users.sourceforge.net> | 2017-06-05 18:33:57 (GMT) |
| commit | a323b71adcc1795f6d3e38d0a3a51ff10b8d76b9 (patch) | |
| tree | 16d4f7c60c955d540aaee31eb84bff501bcb5f70 /generic/tclDecls.h | |
| parent | 51b616c6fb451a91e7ac680f3998eef84c352658 (diff) | |
| download | tcl-stwo_dev86.zip tcl-stwo_dev86.tar.gz tcl-stwo_dev86.tar.bz2 | |
Change the return type of Tcl_RegisterChannel from void to Tcl_Channel and have Tcl_RegisterChannel return the channel. his is a convenience to the programmer.stwo_dev86
Diffstat (limited to 'generic/tclDecls.h')
| -rw-r--r-- | generic/tclDecls.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 185546b..94a4f39 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -633,7 +633,7 @@ EXTERN int Tcl_RecordAndEval(Tcl_Interp *interp, EXTERN int Tcl_RecordAndEvalObj(Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags); /* 210 */ -EXTERN void Tcl_RegisterChannel(Tcl_Interp *interp, +EXTERN Tcl_Channel Tcl_RegisterChannel(Tcl_Interp *interp, Tcl_Channel chan); /* 211 */ EXTERN void Tcl_RegisterObjType(const Tcl_ObjType *typePtr); @@ -2067,7 +2067,7 @@ typedef struct TclStubs { void (*tcl_ReapDetachedProcs) (void); /* 207 */ int (*tcl_RecordAndEval) (Tcl_Interp *interp, const char *cmd, int flags); /* 208 */ int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags); /* 209 */ - void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */ + Tcl_Channel (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */ void (*tcl_RegisterObjType) (const Tcl_ObjType *typePtr); /* 211 */ Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, const char *pattern); /* 212 */ int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, const char *text, const char *start); /* 213 */ |