diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-12 19:56:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-12 19:56:27 (GMT) |
| commit | aeb6cd1eb90ec5f2e99b5c5cdcc0af270e91325a (patch) | |
| tree | 4db4f6cb1c56beac5b1649fb821d818a6848b5da | |
| parent | ca2928e6608f90322d6894bed39697b6e416ac3d (diff) | |
| download | tcl-aeb6cd1eb90ec5f2e99b5c5cdcc0af270e91325a.zip tcl-aeb6cd1eb90ec5f2e99b5c5cdcc0af270e91325a.tar.gz tcl-aeb6cd1eb90ec5f2e99b5c5cdcc0af270e91325a.tar.bz2 | |
One more unresolved reference (see prev commit)
| -rw-r--r-- | generic/tclDecls.h | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index dadc61a..9ddfa37 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -4036,7 +4036,9 @@ extern const TclStubs *tclStubsPtr; #undef Tcl_GetBooleanFromObj #undef Tcl_GetBoolean #undef TclGetByteArrayFromObj -#undef Tcl_GetByteArrayFromObj +#if !defined(TCL_NO_DEPRECATED) +# undef Tcl_GetByteArrayFromObj +#endif #if defined(USE_TCL_STUBS) # if TCL_MAJOR_VERSION < 9 || !defined(TCL_NO_DEPRECATED) # define Tcl_GetBytesFromObj(interp, objPtr, sizePtr) \ @@ -4082,11 +4084,14 @@ extern const TclStubs *tclStubsPtr; #define Tcl_GetBoolean(interp, src, boolPtr) \ ((sizeof(*(boolPtr)) == sizeof(int) && (TCL_MAJOR_VERSION == 8)) ? Tcl_GetBoolean(interp, src, (int *)(boolPtr)) : \ Tcl_GetBool(interp, src, (TCL_NULL_OK-2)&(int)sizeof((*(boolPtr))), (char *)(boolPtr))) +#if defined(TCL_NO_DEPRECATED) +#define Tcl_GetByteArrayFromObj(objPtr, sizePtr) \ + (Tcl_GetBytesFromObj)(NULL, objPtr, (Tcl_Size *)(void *)(sizePtr)) +#else #define Tcl_GetByteArrayFromObj(objPtr, sizePtr) \ (sizeof(*(sizePtr)) <= sizeof(int) ? \ TclGetBytesFromObj(NULL, objPtr, (sizePtr)) : \ (Tcl_GetBytesFromObj)(NULL, objPtr, (Tcl_Size *)(void *)(sizePtr))) -#if !defined(TCL_NO_DEPRECATED) #define Tcl_GetUnicodeFromObj(objPtr, sizePtr) \ (sizeof(*(sizePtr)) <= sizeof(int) ? \ TclGetUnicodeFromObj(objPtr, (sizePtr)) : \ |