diff options
author | Joe Mistachkin <joe@mistachkin.com> | 2015-04-09 19:53:39 (GMT) |
---|---|---|
committer | Joe Mistachkin <joe@mistachkin.com> | 2015-04-09 19:53:39 (GMT) |
commit | 8dd7c4f2d2a3ac59420c49cb816bf5eb237ea119 (patch) | |
tree | 64f6b3b62d1a2d29c62c2e5174d8710e379e4177 /generic/tclDecls.h | |
parent | 651d304f426a8ed04bc3e743e922ff46ad5b9aa1 (diff) | |
download | tcl-8dd7c4f2d2a3ac59420c49cb816bf5eb237ea119.zip tcl-8dd7c4f2d2a3ac59420c49cb816bf5eb237ea119.tar.gz tcl-8dd7c4f2d2a3ac59420c49cb816bf5eb237ea119.tar.bz2 |
Add new public Tcl C API to allow a mutex to be unlocked and then finalized atomically. Candidate fix for bug [57945b574a].
Diffstat (limited to 'generic/tclDecls.h')
-rw-r--r-- | generic/tclDecls.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 91c0add..f4ebc53 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -1815,6 +1815,8 @@ EXTERN int Tcl_FSUnloadFile(Tcl_Interp *interp, EXTERN void Tcl_ZlibStreamSetCompressionDictionary( Tcl_ZlibStream zhandle, Tcl_Obj *compressionDictionaryObj); +/* 631 */ +EXTERN void Tcl_MutexUnlockAndFinalize(Tcl_Mutex *mutex); typedef struct { const struct TclPlatStubs *tclPlatStubs; @@ -2481,6 +2483,7 @@ typedef struct TclStubs { void * (*tcl_FindSymbol) (Tcl_Interp *interp, Tcl_LoadHandle handle, const char *symbol); /* 628 */ int (*tcl_FSUnloadFile) (Tcl_Interp *interp, Tcl_LoadHandle handlePtr); /* 629 */ void (*tcl_ZlibStreamSetCompressionDictionary) (Tcl_ZlibStream zhandle, Tcl_Obj *compressionDictionaryObj); /* 630 */ + void (*tcl_MutexUnlockAndFinalize) (Tcl_Mutex *mutex); /* 631 */ } TclStubs; extern const TclStubs *tclStubsPtr; @@ -3773,6 +3776,8 @@ extern const TclStubs *tclStubsPtr; (tclStubsPtr->tcl_FSUnloadFile) /* 629 */ #define Tcl_ZlibStreamSetCompressionDictionary \ (tclStubsPtr->tcl_ZlibStreamSetCompressionDictionary) /* 630 */ +#define Tcl_MutexUnlockAndFinalize \ + (tclStubsPtr->tcl_MutexUnlockAndFinalize) /* 631 */ #endif /* defined(USE_TCL_STUBS) */ |