database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-07 02:42:48 +03:00
Code Activity

:-) (CVS 128)

Browse Source 
FossilOrigin-Name: d53cccda4fa5d2f8287421e71488817eb4ca13eb
This commit is contained in:
drh
2000-08-04 14:56:24 +00:00
parent 2758db280d
commit 4cdc9e8488
4 changed files with 597 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/tclsqlite.c
View File

@@ -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;