diff options
| author | drh <drh@noemail.net> | 2002-03-11 02:06:13 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2002-03-11 02:06:13 +0000 |
| commit | 28b4e4890b2b3d022d71a36fd93cf6df24ea867b (patch) | |
| tree | 934674cfb5b3d9c85609a2e34c1064bc7a3b0ef7 /src/tclsqlite.c | |
| parent | 7218ac70983b81b32b83e00acc0d478ea9d8bbb0 (diff) | |
| download | sqlite-28b4e4890b2b3d022d71a36fd93cf6df24ea867b.tar.gz sqlite-28b4e4890b2b3d022d71a36fd93cf6df24ea867b.zip | |
Preparing for the 2.4.0 release. (CVS 426)
FossilOrigin-Name: 9f5b241cb2fc89f66d3762b4b4978b8e114caf53
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 541914161..edf947655 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.29 2002/01/16 21:00:27 drh Exp $ +** $Id: tclsqlite.c,v 1.30 2002/03/11 02:06:13 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -531,6 +531,12 @@ static int DbMain(void *cd, Tcl_Interp *interp, int argc, char **argv){ return TCL_ERROR; } Tcl_CreateObjCommand(interp, argv[1], DbObjCmd, (char*)p, DbDeleteCmd); +#ifdef SQLITE_TEST + { + extern void Md5_Register(sqlite*); + Md5_Register(p->db); + } +#endif return TCL_OK; } |