diff options
| author | drh <drh@noemail.net> | 2000-08-04 14:56:24 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2000-08-04 14:56:24 +0000 |
| commit | 4cdc9e8488d3e59cadefc89b4b65436e4d9db96c (patch) | |
| tree | c3e69366aff10def0b5d68ed7aa2f594e85096af /src/tclsqlite.c | |
| parent | 2758db280d2c955c8f66bfa99d194db91e252c2b (diff) | |
| download | sqlite-4cdc9e8488d3e59cadefc89b4b65436e4d9db96c.tar.gz sqlite-4cdc9e8488d3e59cadefc89b4b65436e4d9db96c.zip | |
:-) (CVS 128)
FossilOrigin-Name: d53cccda4fa5d2f8287421e71488817eb4ca13eb
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index b15f10d13..dc9894c71 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -23,7 +23,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.6 2000/08/04 13:49:02 drh Exp $ +** $Id: tclsqlite.c,v 1.7 2000/08/04 14:56:25 drh Exp $ */ #include "sqlite.h" #include <tcl.h> @@ -301,7 +301,7 @@ static int DbMain(void *cd, Tcl_Interp *interp, int argc, char **argv){ return TCL_ERROR; } zErrMsg = 0; - p = Tcl_Alloc( sizeof(*p) ); + p = (SqliteDb*)Tcl_Alloc( sizeof(*p) ); if( p==0 ){ Tcl_SetResult(interp, "malloc failed", TCL_STATIC); return TCL_ERROR; |