From: stephan <stephan@noemail.net>
Date: Mon, 5 May 2025 23:44:41 +0000 (+0000)
Subject: Account for Tcl 8.x's lack of Tcl_BounceRefCount().
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=fc3e7263893ec4d10fa629c26f869c40c04e4f3f;p=thirdparty%2Fsqlite.git

Account for Tcl 8.x's lack of Tcl_BounceRefCount().

FossilOrigin-Name: 46b0bf5603251748bbb48451d6a80f8e0596f5eff3ff62cebba0060cec6cdbe8
---

diff --git a/manifest b/manifest
index 5d5f1e4d96..0fff8ea257 100644
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Part\s2\sof\s2(?)\sof\sadding\sthe\s-asdict\sflag\sto\sthe\sdb\seval\scommand\sof\sthe\sTcl\sinterface.\sThis\sneeds\sa\scritical\sreview\sfrom\sseasoned\sTcl\sC\sAPI\susers\sbefore\smerging\scan\sbe\sconsidered\s(noting\sthat\sit's\snot\splanned\sfor\sinclusion\suntil\s3.51).
-D 2025-05-05T22:56:07.042
+C Account\sfor\sTcl\s8.x's\slack\sof\sTcl_BounceRefCount().
+D 2025-05-05T23:44:41.305
 F .fossil-settings/binary-glob 61195414528fb3ea9693577e1980230d78a1f8b0a54c78cf1b9b24d0a409ed6a x
 F .fossil-settings/empty-dirs dbb81e8fc0401ac46a1491ab34a7f2c7c0452f2f06b54ebb845d024ca8283ef1
 F .fossil-settings/ignore-glob 35175cdfcf539b2318cb04a9901442804be81cd677d8b889fcc9149c21f239ea
@@ -794,7 +794,7 @@ F src/sqliteInt.h 8b18ed676757ce49df633b603a465655aa105d9862821ffa9296afb189ba56
 F src/sqliteLimit.h 6d817c28a8f19af95e6f4921933b7fbbca48a962bce0eb0ec81e8bb3ef38e68b
 F src/status.c 0e72e4f6be6ccfde2488eb63210297e75f569f3ce9920f6c3d77590ec6ce5ffd
 F src/table.c 0f141b58a16de7e2fbe81c308379e7279f4c6b50eb08efeec5892794a0ba30d1
-F src/tclsqlite.c deb1fb446c0e98c3a226624cd2824d29300e4a2fee7259745b21c74ab5ecf960
+F src/tclsqlite.c 661032a24b661216d9a53393c71a079834d72d57bc663800991cf6f6e20aba59
 F src/tclsqlite.h 65e2c761446e1c9fa0342b7d2612a703483643c8b6a316d12a65b745a4727395
 F src/test1.c 9b54135e5f1352f06b1d23d7c183f124c1f33de6ea8997cd801f0f215c43591d
 F src/test2.c 62f0830958f9075692c29c6de51b495ae8969e1bef85f239ffcd9ba5fb44a5ff
@@ -2207,8 +2207,8 @@ F tool/version-info.c 3b36468a90faf1bbd59c65fd0eb66522d9f941eedd364fabccd7227350
 F tool/warnings-clang.sh bbf6a1e685e534c92ec2bfba5b1745f34fb6f0bc2a362850723a9ee87c1b31a7
 F tool/warnings.sh 49a486c5069de041aedcbde4de178293e0463ae9918ecad7539eedf0ec77a139
 F tool/win/sqlite.vsix deb315d026cc8400325c5863eef847784a219a2f
-P 003e2c9bcaf560ee99c8fcf5d6f85f3813caaaf004ec0a04d9ef3bc58f0e8ce5
-R c575c0837760d3bcdf9311246eaa7997
+P 5368647a1f3f97c34c5d1f6dc406e62cd19fda28005c610bc789ce89dd7b58e6
+R e6273f233b27c1921198b3367234508c
 U stephan
-Z 57f1200969b68de06c87296ce6645501
+Z e21b217289727fd9e120dd35bac451dc
 # Remove this line to create a well-formed Fossil manifest.
diff --git a/manifest.uuid b/manifest.uuid
index 91aaf9d435..3a3cd03cc9 100644
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-5368647a1f3f97c34c5d1f6dc406e62cd19fda28005c610bc789ce89dd7b58e6
+46b0bf5603251748bbb48451d6a80f8e0596f5eff3ff62cebba0060cec6cdbe8
diff --git a/src/tclsqlite.c b/src/tclsqlite.c
index 987ef7e62c..4b6ed09a41 100644
--- a/src/tclsqlite.c
+++ b/src/tclsqlite.c
@@ -49,6 +49,10 @@
 # define CONST const
 #elif !defined(Tcl_Size)
   typedef int Tcl_Size;
+# ifndef Tcl_BounceRefCount
+#  define Tcl_BounceRefCount(X) Tcl_IncrRefCount(X); Tcl_DecrRefCount(X)
+   /* https://www.tcl-lang.org/man/tcl9.0/TclLib/Object.html */
+# endif
 #endif
 /**** End copy of tclsqlite.h ****/