From 52b9c53fa7e8677e1790e3201b9d5eb2189c704e Mon Sep 17 00:00:00 2001
From: drh <drh@noemail.net>
Date: Mon, 30 Mar 2009 12:56:52 +0000
Subject: [PATCH] Avoid calls to newer TCL interfaces in the test logic.  This
 helps the TCL test harness compile without warnings and link when using older
 versions of the TCL library. (CVS 6409)

FossilOrigin-Name: 1ad176375746d680225d7ecddca54bc281b1556d
---
 manifest          | 12 ++++++------
 manifest.uuid     |  2 +-
 src/test_backup.c | 11 ++++++-----
 3 files changed, 13 insertions(+), 12 deletions(-)

diff --git a/manifest b/manifest
index ce8eacce56..a8147d16d9 100644
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Avoid\sall\suse\sof\sthe\s"LL"\ssuffix\sfor\slong-long\sinteger\sliterals.\nTicket\s#3759.\s(CVS\s6408)
-D 2009-03-30T12:42:45
+C Avoid\scalls\sto\snewer\sTCL\sinterfaces\sin\sthe\stest\slogic.\s\sThis\shelps\sthe\nTCL\stest\sharness\scompile\swithout\swarnings\sand\slink\swhen\susing\solder\sversions\nof\sthe\sTCL\slibrary.\s(CVS\s6409)
+D 2009-03-30T12:56:52
 F Makefile.arm-wince-mingw32ce-gcc fcd5e9cd67fe88836360bb4f9ef4cb7f8e2fb5a0
 F Makefile.in 583e87706abc3026960ed759aff6371faf84c211
 F Makefile.linux-gcc d53183f4aa6a9192d249731c90dbdffbd2c68654
@@ -175,7 +175,7 @@ F src/test8.c 3637439424d0d21ff2dcf9b015c30fcc1e7bcb24
 F src/test9.c 904ebe0ed1472d6bad17a81e2ecbfc20017dc237
 F src/test_async.c da1402a61a99d9707f9d65df063cb8e7d0df605a
 F src/test_autoext.c f53b0cdf7bf5f08100009572a5d65cdb540bd0ad
-F src/test_backup.c 79ac8daa03f0b3d360ff1eb56b23c7df0c14ecd1
+F src/test_backup.c 1384a18985a5a2d275c2662e48473bf1542ebd08
 F src/test_btree.c d7b8716544611c323860370ee364e897c861f1b0
 F src/test_config.c a05378089b6773ba36b85727dedf9ec0a16424ce
 F src/test_devsym.c 9f4bc2551e267ce7aeda195f3897d0f30c5228f4
@@ -711,7 +711,7 @@ F tool/speedtest16.c c8a9c793df96db7e4933f0852abb7a03d48f2e81
 F tool/speedtest2.tcl ee2149167303ba8e95af97873c575c3e0fab58ff
 F tool/speedtest8.c 2902c46588c40b55661e471d7a86e4dd71a18224
 F tool/speedtest8inst1.c 293327bc76823f473684d589a8160bde1f52c14e
-P ab7c718dec56859c51bfb0b1c1d70a7c84feffd1
-R 2e61a49062eb7ec1ad9d521cf4e6d0e2
+P 7ef36935424013a1b211906620954a97ffe08de7
+R f703e8f75622421dc3ccfa13f62a6d08
 U drh
-Z d713a25fda34f520ce2e7bb6f817ef52
+Z c4a4bafdb37c9cdde7ef439605929a91
diff --git a/manifest.uuid b/manifest.uuid
index 223612c733..a2c0ecc823 100644
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-7ef36935424013a1b211906620954a97ffe08de7
\ No newline at end of file
+1ad176375746d680225d7ecddca54bc281b1556d
\ No newline at end of file
diff --git a/src/test_backup.c b/src/test_backup.c
index cee8049b62..7c561afb59 100644
--- a/src/test_backup.c
+++ b/src/test_backup.c
@@ -10,7 +10,7 @@
 **
 *************************************************************************
 **
-** $Id: test_backup.c,v 1.2 2009/03/25 16:51:43 drh Exp $
+** $Id: test_backup.c,v 1.3 2009/03/30 12:56:52 drh Exp $
 */
 
 #include "tcl.h"
@@ -61,12 +61,13 @@ static int backupTestCmd(
   switch( aSub[iCmd].eCmd ){
 
     case BACKUP_FINISH: {
+      const char *zCmdName;
       Tcl_CmdInfo cmdInfo;
-      Tcl_Command cmd = Tcl_GetCommandFromObj(interp, objv[0]);
-      Tcl_GetCommandInfoFromToken(cmd, &cmdInfo);
+      zCmdName = Tcl_GetString(objv[0]);
+      Tcl_GetCommandInfo(interp, zCmdName, &cmdInfo);
       cmdInfo.deleteProc = 0;
-      Tcl_SetCommandInfoFromToken(cmd, &cmdInfo);
-      Tcl_DeleteCommandFromToken(interp, cmd);
+      Tcl_SetCommandInfo(interp, zCmdName, &cmdInfo);
+      Tcl_DeleteCommand(interp, zCmdName);
 
       rc = sqlite3_backup_finish(p);
       Tcl_SetResult(interp, (char *)sqlite3TestErrorName(rc), TCL_STATIC);
-- 
2.47.2