summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorredman <redman>1999-07-02 21:59:18 (GMT)
committerredman <redman>1999-07-02 21:59:18 (GMT)
commitcd0cbda2bccf9d04fd23795065755fb079d328ca (patch)
tree694f4da63f5791e414805022552c69377e261a20 /generic
parent2472e6704472024174fc054de2aa3355c79db345 (diff)
downloadtcl-cd0cbda2bccf9d04fd23795065755fb079d328ca.zip
tcl-cd0cbda2bccf9d04fd23795065755fb079d328ca.tar.gz
tcl-cd0cbda2bccf9d04fd23795065755fb079d328ca.tar.bz2
Fix Tcl_GetStackedChannel declaration, the function
returns a Tcl_Channel, not void.
Diffstat (limited to 'generic')
-rw-r--r--generic/tcl.decls4
-rw-r--r--generic/tclDecls.h6
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 */