diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-02-09 21:05:49 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-02-09 21:05:49 (GMT) |
| commit | e66cb0c31e8286e752f0ce8d20b886af8b8d4507 (patch) | |
| tree | 32fb2044df6d99ef12cb9cdfbfb5a0d39c9c5458 /generic/tclDecls.h | |
| parent | 445aa5833b2b86fe2b861389c9cf1aa167fd95ea (diff) | |
| download | tcl-e66cb0c31e8286e752f0ce8d20b886af8b8d4507.zip tcl-e66cb0c31e8286e752f0ce8d20b886af8b8d4507.tar.gz tcl-e66cb0c31e8286e752f0ce8d20b886af8b8d4507.tar.bz2 | |
Convert Tcl_BacktroundError() into a macro, so we can deprecate the stub entry for it.
Add -Wpointer-arith warning to CFLAGS
Diffstat (limited to 'generic/tclDecls.h')
| -rw-r--r-- | generic/tclDecls.h | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index d323b73..865c960 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -271,7 +271,8 @@ EXTERN void Tcl_AsyncMark(Tcl_AsyncHandler async); /* 75 */ EXTERN int Tcl_AsyncReady(void); /* 76 */ -EXTERN void Tcl_BackgroundError(Tcl_Interp *interp); +TCL_DEPRECATED("No longer in use, changed to macro") +void Tcl_BackgroundError(Tcl_Interp *interp); /* 77 */ TCL_DEPRECATED("Use Tcl_UtfBackslash") char Tcl_Backslash(const char *src, int *readPtr); @@ -1998,7 +1999,7 @@ typedef struct TclStubs { int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); /* 73 */ void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */ int (*tcl_AsyncReady) (void); /* 75 */ - void (*tcl_BackgroundError) (Tcl_Interp *interp); /* 76 */ + TCL_DEPRECATED_API("No longer in use, changed to macro") void (*tcl_BackgroundError) (Tcl_Interp *interp); /* 76 */ TCL_DEPRECATED_API("Use Tcl_UtfBackslash") char (*tcl_Backslash) (const char *src, int *readPtr); /* 77 */ int (*tcl_BadChannelOption) (Tcl_Interp *interp, const char *optionName, const char *optionList); /* 78 */ void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 79 */ @@ -4070,6 +4071,8 @@ extern const TclStubs *tclStubsPtr; #define Tcl_SetLongObj(objPtr, value) Tcl_SetWideIntObj((objPtr), (long)(value)) #undef Tcl_GetUnicode #define Tcl_GetUnicode(objPtr) Tcl_GetUnicodeFromObj((objPtr), NULL) +#undef Tcl_BackgroundError +#define Tcl_BackgroundError(interp) Tcl_BackgroundException((interp), TCL_ERROR) /* * Deprecated Tcl procedures: |