From 556c3fc35b1011e4ed012fafa8e3907ad45752e2 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Sat, 22 Apr 2023 16:34:56 +0000 Subject: Fix [2a5cb49733ff]: Make TCL_NO_TOMMATH_H sufficient for tclTomMathDecls.h --- generic/tclTomMath.h | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/generic/tclTomMath.h b/generic/tclTomMath.h index 40a4e9d..1d4f30a 100644 --- a/generic/tclTomMath.h +++ b/generic/tclTomMath.h @@ -24,6 +24,15 @@ # define MP_VAL -3 /* invalid input */ # define MP_ITER -4 /* maximum iterations reached */ # define MP_BUF -5 /* buffer overflow, supplied buffer too small */ + typedef int mp_order; + #define MP_LSB_FIRST -1 + #define MP_MSB_FIRST 1 + typedef int mp_endian; + #define MP_LITTLE_ENDIAN -1 + #define MP_NATIVE_ENDIAN 0 + #define MP_BIG_ENDIAN 1 + #endif + define MP_DEPRECATED_PRAGMA(s) /* nothing */ # define MP_WUR /* nothing */ # define mp_iszero(a) ((a)->used == 0) # define mp_isneg(a) ((a)->sign != 0) -- cgit v0.12 From 9ec33349d58033ef07bfbbdeb48d2939a9ffb5a9 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Sat, 22 Apr 2023 17:29:49 +0000 Subject: Fix tclTomMath.h (from prev commit) --- generic/tclTomMath.h | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/generic/tclTomMath.h b/generic/tclTomMath.h index 1d4f30a..26db082 100644 --- a/generic/tclTomMath.h +++ b/generic/tclTomMath.h @@ -25,14 +25,13 @@ # define MP_ITER -4 /* maximum iterations reached */ # define MP_BUF -5 /* buffer overflow, supplied buffer too small */ typedef int mp_order; - #define MP_LSB_FIRST -1 - #define MP_MSB_FIRST 1 +# define MP_LSB_FIRST -1 +# define MP_MSB_FIRST 1 typedef int mp_endian; - #define MP_LITTLE_ENDIAN -1 - #define MP_NATIVE_ENDIAN 0 - #define MP_BIG_ENDIAN 1 - #endif - define MP_DEPRECATED_PRAGMA(s) /* nothing */ +# define MP_LITTLE_ENDIAN -1 +# define MP_NATIVE_ENDIAN 0 +# define MP_BIG_ENDIAN 1 +# define MP_DEPRECATED_PRAGMA(s) /* nothing */ # define MP_WUR /* nothing */ # define mp_iszero(a) ((a)->used == 0) # define mp_isneg(a) ((a)->sign != 0) -- cgit v0.12 From 8da10bea0f8c1888cd8ed0bb3097826efbf37f81 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Sat, 22 Apr 2023 17:31:50 +0000 Subject: Register "utf32string" for Python --- generic/tclObj.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/generic/tclObj.c b/generic/tclObj.c index 94cf376..829e046 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -390,6 +390,10 @@ TclInitObjSubsystem(void) #if (TCL_UTF_MAX < 4) || !defined(TCL_NO_DEPRECATED) Tcl_RegisterObjType(&tclStringType); #endif +#if (TCL_UTF_MAX > 3) && !defined(TCL_NO_DEPRECATED) + /* Only registered for 8.7, not for 9.0 any more. See [] */ + Tcl_RegisterObjType(&tclUniCharStringType); +#endif Tcl_RegisterObjType(&tclListType); Tcl_RegisterObjType(&tclDictType); Tcl_RegisterObjType(&tclByteCodeType); -- cgit v0.12 From c90b84b1166c26f2d17506cb3c39ead08e7e9d34 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Sat, 22 Apr 2023 17:32:52 +0000 Subject: Fill in URL in previous commit --- generic/tclObj.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/generic/tclObj.c b/generic/tclObj.c index 829e046..7c433d1 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -391,7 +391,8 @@ TclInitObjSubsystem(void) Tcl_RegisterObjType(&tclStringType); #endif #if (TCL_UTF_MAX > 3) && !defined(TCL_NO_DEPRECATED) - /* Only registered for 8.7, not for 9.0 any more. See [] */ + /* Only registered for 8.7, not for 9.0 any more. + * See [https://core.tcl-lang.org/tk/tktview/6b49149b4e] */ Tcl_RegisterObjType(&tclUniCharStringType); #endif Tcl_RegisterObjType(&tclListType); -- cgit v0.12