database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-10 01:02:56 +03:00
Code Activity

Add a call to Tcl_Init() in tclsqlite3's setup. This activates many of the otherwise-missing Tcl standard commands and is believed to be benign on systems where those cannot be loaded, but whether it truly is requires some experimentation on affected systems.

Browse Source 
FossilOrigin-Name: 9eb5c91c897f8820affb30f8571eb927423c7831161f5df0043715e7f0a729d7
This commit is contained in:
stephan
2025-07-22 20:17:06 +00:00
parent 5a6f651397
commit cac93a5be0
3 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
manifest
View File

@@ -1,5 +1,5 @@
C Fix\sa\spotentially\suninitialized\sfield\sin\sthe\sWhereLoop\sobject\sthat\sis\sused\nas\spart\sof\sthe\sskip-ahead-distinct\soptimization.\s\sThis\sfixes\svarious\n[forum:/timeline?ymd=20250722&u=yxchen&vfx|recent\sforum\sreports\sfrom\syxchen]. C Add\sa\scall\sto\sTcl_Init()\sin\stclsqlite3's\ssetup.\sThis\sactivates\smany\sof\sthe\sotherwise-missing\sTcl\sstandard\scommands\sand\sis\sbelieved\sto\sbe\sbenign\son\ssystems\swhere\sthose\scannot\sbe\sloaded,\sbut\swhether\sit\struly\sis\srequires\ssome\sexperimentation\son\saffected\ssystems.
D 2025-07-22T15:51:41.542 D 2025-07-22T20:17:06.508
F .fossil-settings/binary-glob 61195414528fb3ea9693577e1980230d78a1f8b0a54c78cf1b9b24d0a409ed6a x F .fossil-settings/binary-glob 61195414528fb3ea9693577e1980230d78a1f8b0a54c78cf1b9b24d0a409ed6a x
F .fossil-settings/empty-dirs dbb81e8fc0401ac46a1491ab34a7f2c7c0452f2f06b54ebb845d024ca8283ef1 F .fossil-settings/empty-dirs dbb81e8fc0401ac46a1491ab34a7f2c7c0452f2f06b54ebb845d024ca8283ef1
F .fossil-settings/ignore-glob 35175cdfcf539b2318cb04a9901442804be81cd677d8b889fcc9149c21f239ea F .fossil-settings/ignore-glob 35175cdfcf539b2318cb04a9901442804be81cd677d8b889fcc9149c21f239ea
@@ -795,7 +795,7 @@ F src/sqliteInt.h a54f83985985655d1276e9e356dd6ae19b8d0b62c2abc75cc9e8f402ea1412
F src/sqliteLimit.h 6d817c28a8f19af95e6f4921933b7fbbca48a962bce0eb0ec81e8bb3ef38e68b F src/sqliteLimit.h 6d817c28a8f19af95e6f4921933b7fbbca48a962bce0eb0ec81e8bb3ef38e68b
F src/status.c 0e72e4f6be6ccfde2488eb63210297e75f569f3ce9920f6c3d77590ec6ce5ffd F src/status.c 0e72e4f6be6ccfde2488eb63210297e75f569f3ce9920f6c3d77590ec6ce5ffd
F src/table.c 0f141b58a16de7e2fbe81c308379e7279f4c6b50eb08efeec5892794a0ba30d1 F src/table.c 0f141b58a16de7e2fbe81c308379e7279f4c6b50eb08efeec5892794a0ba30d1
F src/tclsqlite.c 3c604c49e6cf4211960a9ddb9505280fd22cde32175f40884c641c0f5a286036 F src/tclsqlite.c c3c31f4e8c2506d356d1439fa57d922cb0a25831491837dad3bf74abf8965d84
F src/tclsqlite.h 65e2c761446e1c9fa0342b7d2612a703483643c8b6a316d12a65b745a4727395 F src/tclsqlite.h 65e2c761446e1c9fa0342b7d2612a703483643c8b6a316d12a65b745a4727395
F src/test1.c 13cc07851f989141b29f7ca3c6c90f6d18f90081ab423c66716c8cb29d277d1f F src/test1.c 13cc07851f989141b29f7ca3c6c90f6d18f90081ab423c66716c8cb29d277d1f
F src/test2.c 62f0830958f9075692c29c6de51b495ae8969e1bef85f239ffcd9ba5fb44a5ff F src/test2.c 62f0830958f9075692c29c6de51b495ae8969e1bef85f239ffcd9ba5fb44a5ff
@@ -2213,8 +2213,11 @@ F tool/version-info.c 3b36468a90faf1bbd59c65fd0eb66522d9f941eedd364fabccd7227350
F tool/warnings-clang.sh bbf6a1e685e534c92ec2bfba5b1745f34fb6f0bc2a362850723a9ee87c1b31a7 F tool/warnings-clang.sh bbf6a1e685e534c92ec2bfba5b1745f34fb6f0bc2a362850723a9ee87c1b31a7
F tool/warnings.sh 1ad0169b022b280bcaaf94a7fa231591be96b514230ab5c98fbf15cd7df842dd F tool/warnings.sh 1ad0169b022b280bcaaf94a7fa231591be96b514230ab5c98fbf15cd7df842dd
F tool/win/sqlite.vsix deb315d026cc8400325c5863eef847784a219a2f F tool/win/sqlite.vsix deb315d026cc8400325c5863eef847784a219a2f
P 477211be60cd873d078293f0dd767506c069c3dd83bc1759ae7258d4d3dff359 P c10f9970c6a3ffacaef0f0728fc7ff11011686835dc78ca43035c0493e0af319
R f8ba680ce9b1657fae69f61ff9d57d1d R 11f6c064f36bf2f7bad7605af200ebb4
U drh T *branch * tcl-init
Z c9346dfa43d7f5c186a9a25b6a8a2164 T *sym-tcl-init *
T -sym-trunk *
U stephan
Z a3562105013d390229c1a25d7432081c
# Remove this line to create a well-formed Fossil manifest. # Remove this line to create a well-formed Fossil manifest.

2
manifest.uuid
View File

@@ -1 +1 @@
c10f9970c6a3ffacaef0f0728fc7ff11011686835dc78ca43035c0493e0af319 9eb5c91c897f8820affb30f8571eb927423c7831161f5df0043715e7f0a729d7

1
src/tclsqlite.c
View File

@@ -4190,6 +4190,7 @@ int SQLITE_CDECL TCLSH_MAIN(int argc, char **argv){
Tcl_SetSystemEncoding(NULL, "utf-8"); Tcl_SetSystemEncoding(NULL, "utf-8");
interp = Tcl_CreateInterp(); interp = Tcl_CreateInterp();
Sqlite3_Init(interp); Sqlite3_Init(interp);
Tcl_Init(interp);
sqlite3_snprintf(sizeof(zArgc), zArgc, "%d", argc-1); sqlite3_snprintf(sizeof(zArgc), zArgc, "%d", argc-1);
Tcl_SetVar(interp,"argc", zArgc, TCL_GLOBAL_ONLY); Tcl_SetVar(interp,"argc", zArgc, TCL_GLOBAL_ONLY);