diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-11 07:57:23 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-11 07:57:23 (GMT) |
| commit | eebc70a77ce8075c80f14b5e5a1d1fdafba8e4fd (patch) | |
| tree | 1919582a206a7becb3419238f933b7a75d769120 /generic/tclIntDecls.h | |
| parent | 2ffd22efd1279d41b6a871510d564e8a5151a948 (diff) | |
| parent | 5c0e1075afd1c466ed8ba3475784cee32172808d (diff) | |
| download | tcl-eebc70a77ce8075c80f14b5e5a1d1fdafba8e4fd.zip tcl-eebc70a77ce8075c80f14b5e5a1d1fdafba8e4fd.tar.gz tcl-eebc70a77ce8075c80f14b5e5a1d1fdafba8e4fd.tar.bz2 | |
Fix [e155cedf33]: Error-handling in TclGetOpenMode().
Add O_ACCMODE fow Windows, in case it is not defined
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 4a15b9f..b6caa06 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -151,7 +151,7 @@ EXTERN int TclGetNamespaceForQualName(Tcl_Interp *interp, EXTERN Tcl_ObjCmdProc * TclGetObjInterpProc(void); /* 40 */ EXTERN int TclGetOpenMode(Tcl_Interp *interp, const char *str, - int *seekFlagPtr); + int *modeFlagsPtr); /* 41 */ EXTERN Tcl_Command TclGetOriginalCommand(Tcl_Command command); /* 42 */ @@ -734,7 +734,7 @@ typedef struct TclIntStubs { TCL_DEPRECATED_API("") int (*tclGetLoadedPackages) (Tcl_Interp *interp, const char *targetName); /* 37 */ int (*tclGetNamespaceForQualName) (Tcl_Interp *interp, const char *qualName, Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, const char **simpleNamePtr); /* 38 */ Tcl_ObjCmdProc * (*tclGetObjInterpProc) (void); /* 39 */ - int (*tclGetOpenMode) (Tcl_Interp *interp, const char *str, int *seekFlagPtr); /* 40 */ + int (*tclGetOpenMode) (Tcl_Interp *interp, const char *str, int *modeFlagsPtr); /* 40 */ Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); /* 41 */ const char * (*tclpGetUserHome) (const char *name, Tcl_DString *bufferPtr); /* 42 */ void (*reserved43)(void); |