diff options
author | hobbs <hobbs@noemail.net> | 2000-02-08 10:05:39 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2000-02-08 10:05:39 (GMT) |
commit | 557fe4bf7aaac0fe770c802b1ee8d24f34bb1797 (patch) | |
tree | 8ff4a5485bce73a5ae4437e924043d0162596151 /generic | |
parent | d94669401aca6823b394d2d0f66d8f988459f0df (diff) | |
download | tcl-557fe4bf7aaac0fe770c802b1ee8d24f34bb1797.zip tcl-557fe4bf7aaac0fe770c802b1ee8d24f34bb1797.tar.gz tcl-557fe4bf7aaac0fe770c802b1ee8d24f34bb1797.tar.bz2 |
* generic/tclDecls.h:
* generic/tcl.decls: change Tcl_GetOpenFile to use decl of 'int
forWriting' instead of 'int write' to avoid shadowing [Bug: 4121]
* generic/tcl.h (TCL_RELEASE_SERIAL): Moved to 8.3.0 patchlevel
FossilOrigin-Name: c10caae88f879ce0babd7596d112ffb9af5acc52
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tcl.decls | 4 | ||||
-rw-r--r-- | generic/tcl.h | 8 | ||||
-rw-r--r-- | generic/tclDecls.h | 6 |
3 files changed, 9 insertions, 9 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 7238d14..b9908f3 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.30 2000/01/26 03:37:40 hobbs Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.31 2000/02/08 10:05:40 hobbs Exp $ library tcl @@ -589,7 +589,7 @@ declare 166 generic { # generic interface, so we inlcude it here for compatibility reasons. declare 167 unix { - int Tcl_GetOpenFile(Tcl_Interp *interp, char *str, int write, \ + int Tcl_GetOpenFile(Tcl_Interp *interp, char *str, int forWriting, \ int checkUsage, ClientData *filePtr) } diff --git a/generic/tcl.h b/generic/tcl.h index 4f7ae9b..dd13cd2 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -12,7 +12,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.h,v 1.62 2000/01/14 00:20:46 hobbs Exp $ + * RCS: @(#) $Id: tcl.h,v 1.63 2000/02/08 10:05:40 hobbs Exp $ */ #ifndef _TCL @@ -57,11 +57,11 @@ extern "C" { #define TCL_MAJOR_VERSION 8 #define TCL_MINOR_VERSION 3 -#define TCL_RELEASE_LEVEL TCL_BETA_RELEASE -#define TCL_RELEASE_SERIAL 2 +#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE +#define TCL_RELEASE_SERIAL 0 #define TCL_VERSION "8.3" -#define TCL_PATCH_LEVEL "8.3b2" +#define TCL_PATCH_LEVEL "8.3.0" /* * The following definitions set up the proper options for Windows diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 594cb01..05902e7 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.30 2000/01/24 02:29:57 hobbs Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.31 2000/02/08 10:05:41 hobbs Exp $ */ #ifndef _TCLDECLS @@ -541,7 +541,7 @@ EXTERN Tcl_Obj * Tcl_GetObjResult _ANSI_ARGS_((Tcl_Interp * interp)); #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ /* 167 */ EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp * interp, - char * str, int write, int checkUsage, + char * str, int forWriting, int checkUsage, ClientData * filePtr)); #endif /* UNIX */ /* 168 */ @@ -1421,7 +1421,7 @@ typedef struct TclStubs { CONST char * (*tcl_GetNameOfExecutable) _ANSI_ARGS_((void)); /* 165 */ Tcl_Obj * (*tcl_GetObjResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 166 */ #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - int (*tcl_GetOpenFile) _ANSI_ARGS_((Tcl_Interp * interp, char * str, int write, int checkUsage, ClientData * filePtr)); /* 167 */ + int (*tcl_GetOpenFile) _ANSI_ARGS_((Tcl_Interp * interp, char * str, int forWriting, int checkUsage, ClientData * filePtr)); /* 167 */ #endif /* UNIX */ #ifdef __WIN32__ void *reserved167; |