diff options
| author | drh <drh@noemail.net> | 2002-08-31 18:53:06 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2002-08-31 18:53:06 +0000 |
| commit | c2eef3b32b354810f465b04792408e315f2fc335 (patch) | |
| tree | b6087c6409a1dc30a0540d7a9aeaef6b5dd59cff /src/tclsqlite.c | |
| parent | b680a344e50d50b695d278cdb6243b25214a78c6 (diff) | |
| download | sqlite-c2eef3b32b354810f465b04792408e315f2fc335.tar.gz sqlite-c2eef3b32b354810f465b04792408e315f2fc335.zip | |
Parse foreign key constraints and populate internal data structures
appropriately. Constraints are still not enforced. (CVS 738)
FossilOrigin-Name: 170711ca65dc894d0486b9d575edb8f1708250fb
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 466a78941..ed27499ee 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.39 2002/07/15 20:58:48 drh Exp $ +** $Id: tclsqlite.c,v 1.40 2002/08/31 18:53:08 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -643,13 +643,13 @@ static int DbMain(void *cd, Tcl_Interp *interp, int argc, char **argv){ */ int Sqlite_Init(Tcl_Interp *interp){ Tcl_InitStubs(interp, "8.0", 0); - Tcl_CreateCommand(interp, "sqlite", DbMain, 0, 0); + Tcl_CreateCommand(interp, "sqlite", (Tcl_CmdProc*)DbMain, 0, 0); Tcl_PkgProvide(interp, "sqlite", "2.0"); return TCL_OK; } int Tclsqlite_Init(Tcl_Interp *interp){ Tcl_InitStubs(interp, "8.0", 0); - Tcl_CreateCommand(interp, "sqlite", DbMain, 0, 0); + Tcl_CreateCommand(interp, "sqlite", (Tcl_CmdProc*)DbMain, 0, 0); Tcl_PkgProvide(interp, "sqlite", "2.0"); return TCL_OK; } |