diff options
| author | redman <redman> | 1999-07-02 21:59:18 (GMT) |
|---|---|---|
| committer | redman <redman> | 1999-07-02 21:59:18 (GMT) |
| commit | cd0cbda2bccf9d04fd23795065755fb079d328ca (patch) | |
| tree | 694f4da63f5791e414805022552c69377e261a20 | |
| parent | 2472e6704472024174fc054de2aa3355c79db345 (diff) | |
| download | tcl-cd0cbda2bccf9d04fd23795065755fb079d328ca.zip tcl-cd0cbda2bccf9d04fd23795065755fb079d328ca.tar.gz tcl-cd0cbda2bccf9d04fd23795065755fb079d328ca.tar.bz2 | |
Fix Tcl_GetStackedChannel declaration, the function
returns a Tcl_Channel, not void.
| -rw-r--r-- | generic/tcl.decls | 4 | ||||
| -rw-r--r-- | generic/tclDecls.h | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 354882e..118cd49 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tcl.decls,v 1.19 1999/07/02 19:51:29 welch Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.20 1999/07/02 21:59:18 redman Exp $ library tcl @@ -990,7 +990,7 @@ declare 282 generic { void Tcl_UnstackChannel(Tcl_Interp *interp, Tcl_Channel chan) } declare 283 generic { - void Tcl_GetStackedChannel(Tcl_Channel chan) + Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan) } # Reserved for future use (8.0.x vs. 8.1) # declare 284 generic { diff --git a/generic/tclDecls.h b/generic/tclDecls.h index e4ef026..a1a29bf 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclDecls.h,v 1.20 1999/07/02 21:09:11 redman Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.21 1999/07/02 21:59:19 redman Exp $ */ #ifndef _TCLDECLS @@ -912,7 +912,7 @@ EXTERN Tcl_Channel Tcl_StackChannel _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_UnstackChannel _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 283 */ -EXTERN void Tcl_GetStackedChannel _ANSI_ARGS_((Tcl_Channel chan)); +EXTERN Tcl_Channel Tcl_GetStackedChannel _ANSI_ARGS_((Tcl_Channel chan)); /* Slot 284 is reserved */ /* Slot 285 is reserved */ /* 286 */ @@ -1555,7 +1555,7 @@ typedef struct TclStubs { void (*tcl_InitMemory) _ANSI_ARGS_((Tcl_Interp * interp)); /* 280 */ Tcl_Channel (*tcl_StackChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_ChannelType * typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan)); /* 281 */ void (*tcl_UnstackChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 282 */ - void (*tcl_GetStackedChannel) _ANSI_ARGS_((Tcl_Channel chan)); /* 283 */ + Tcl_Channel (*tcl_GetStackedChannel) _ANSI_ARGS_((Tcl_Channel chan)); /* 283 */ void *reserved284; void *reserved285; void (*tcl_AppendObjToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_Obj * appendObjPtr)); /* 286 */ |