From cd0cbda2bccf9d04fd23795065755fb079d328ca Mon Sep 17 00:00:00 2001
From: redman <redman>
Date: Fri, 2 Jul 1999 21:59:18 +0000
Subject: Fix Tcl_GetStackedChannel declaration, the function returns a
 Tcl_Channel, not void.

---
 generic/tcl.decls  | 4 ++--
 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 */
-- 
cgit v0.12