diff options
| author | drh <drh@noemail.net> | 2006-12-19 18:46:08 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2006-12-19 18:46:08 +0000 |
| commit | 9404d50e3b4a27a1991c2c3dd43984005aaf848f (patch) | |
| tree | dff8521357f4aae95e60f665d76995f07857d12e /src | |
| parent | d3627afc47501b122f8615da3a98a71c6d71eb42 (diff) | |
| download | sqlite-9404d50e3b4a27a1991c2c3dd43984005aaf848f.tar.gz sqlite-9404d50e3b4a27a1991c2c3dd43984005aaf848f.zip | |
Use sqlite3_mprintf() instead of strdup() to reduce libc dependencies.
Ticket #2114. (CVS 3532)
FossilOrigin-Name: bf4a78cb315c0b1fca31c6f596ff0a8ece96860f
Diffstat (limited to 'src')
| -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 7eec3af29..ee13a9481 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.173 2006/09/02 14:17:00 drh Exp $ +** $Id: tclsqlite.c,v 1.174 2006/12/19 18:46:09 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -2055,7 +2055,7 @@ static int DbMain(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ sqlite3_open(zFile, &p->db); Tcl_DStringFree(&translatedFilename); if( SQLITE_OK!=sqlite3_errcode(p->db) ){ - zErrMsg = strdup(sqlite3_errmsg(p->db)); + zErrMsg = sqlite3_mprintf("%s", sqlite3_errmsg(p->db)); sqlite3_close(p->db); p->db = 0; } @@ -2065,7 +2065,7 @@ static int DbMain(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ if( p->db==0 ){ Tcl_SetResult(interp, zErrMsg, TCL_VOLATILE); Tcl_Free((char*)p); - free(zErrMsg); + sqlite3_free(zErrMsg); return TCL_ERROR; } p->maxStmt = NUM_PREPARED_STMTS; |