diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-06 13:52:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-06 13:52:37 (GMT) |
| commit | e7d900c0d6fd03b75d94af1dd77db104b7980755 (patch) | |
| tree | 94f0ea80434bd4bce43df1093965a6218188de3b | |
| parent | ebaa3516ce96522dcc9abcd073d3f1725b19a640 (diff) | |
| download | tcl-e7d900c0d6fd03b75d94af1dd77db104b7980755.zip tcl-e7d900c0d6fd03b75d94af1dd77db104b7980755.tar.gz tcl-e7d900c0d6fd03b75d94af1dd77db104b7980755.tar.bz2 | |
Missing use of TCL_NO_DEPRECATED (for Tcl_GetByteArrayFromObj)
| -rw-r--r-- | generic/tclDecls.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index b74a2a8..b67d3a8 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -4058,11 +4058,15 @@ extern const TclStubs *tclStubsPtr; Tcl_GetBool(interp, src, (TCL_NULL_OK-2)&(int)sizeof((*(boolPtr))), (char *)(boolPtr))) #if TCL_MAJOR_VERSION > 8 #undef Tcl_GetByteArrayFromObj +#if !defined(TCL_NO_DEPRECATED) #define Tcl_GetByteArrayFromObj(objPtr, sizePtr) \ (sizeof(*(sizePtr)) <= sizeof(int) ? \ tclStubsPtr->tclGetBytesFromObj(NULL, objPtr, (sizePtr)) : \ tclStubsPtr->tcl_GetBytesFromObj(NULL, objPtr, (Tcl_Size *)(void *)(sizePtr))) - +#else +#define Tcl_GetByteArrayFromObj(objPtr, sizePtr) \ + tclStubsPtr->tcl_GetBytesFromObj(NULL, objPtr, (Tcl_Size *)(void *)(sizePtr)) +#endif #endif #else #define Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, offset, msg, flags, indexPtr) \ |