diff options
| author | drh <drh@noemail.net> | 2007-06-15 18:53:14 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2007-06-15 18:53:14 +0000 |
| commit | daf276d4669cefd8bf191149b48e935926a289b5 (patch) | |
| tree | 1c8796f7286b18b4b912869ed8dc7104ca2eb147 /src | |
| parent | 2df37c0390aff2c17d42aa798670cfcbb9cd79d5 (diff) | |
| download | sqlite-daf276d4669cefd8bf191149b48e935926a289b5.tar.gz sqlite-daf276d4669cefd8bf191149b48e935926a289b5.zip | |
Remove a C++ism from the test harness. Get the TCL interface working with
older versions of TCL. (CVS 4075)
FossilOrigin-Name: c8beb8674e5a1effc2785f205124628fbdaf57e0
Diffstat (limited to 'src')
| -rw-r--r-- | src/tclsqlite.c | 3 | ||||
| -rw-r--r-- | src/test1.c | 4 |
2 files changed, 3 insertions, 4 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 0c91302d3..c065be666 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -12,7 +12,7 @@ ** A TCL Interface to SQLite. Append this file to sqlite3.c and ** compile the whole thing to build a TCL-enabled version of SQLite. ** -** $Id: tclsqlite.c,v 1.188 2007/06/12 18:50:14 drh Exp $ +** $Id: tclsqlite.c,v 1.189 2007/06/15 18:53:14 drh Exp $ */ #include "tcl.h" #include <errno.h> @@ -294,7 +294,6 @@ static Tcl_ChannelType IncrblobChannelType = { 0, /* flushProc */ 0, /* handlerProc */ 0, /* wideSeekProc */ - 0, /* threadActionProc */ }; /* diff --git a/src/test1.c b/src/test1.c index 102821880..14c1120ce 100644 --- a/src/test1.c +++ b/src/test1.c @@ -13,7 +13,7 @@ ** is not included in the SQLite library. It is used for automated ** testing of the SQLite library. ** -** $Id: test1.c,v 1.254 2007/05/17 16:34:44 danielk1977 Exp $ +** $Id: test1.c,v 1.255 2007/06/15 18:53:15 drh Exp $ */ #include "sqliteInt.h" #include "tcl.h" @@ -457,9 +457,9 @@ static int test_snprintf_int( ){ char zStr[100]; int n = atoi(argv[1]); - if( n>sizeof(zStr) ) n = sizeof(zStr); const char *zFormat = argv[2]; int a1 = atoi(argv[3]); + if( n>sizeof(zStr) ) n = sizeof(zStr); strcpy(zStr, "abcdefghijklmnopqrstuvwxyz"); sqlite3_snprintf(n, zStr, zFormat, a1); Tcl_AppendResult(interp, zStr, 0); |