Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix a memory leak in the update_hook method of the TCL interface. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
1d17e3dc832d789c3665e240dac5019f |
User & Date: | drh 2010-10-27 15:36:22 |
Context
2010-10-27
| ||
18:10 | Merge experimental fts3/fts4 changes with trunk. check-in: 988164cf user: dan tags: trunk | |
15:36 | Fix a memory leak in the update_hook method of the TCL interface. check-in: 1d17e3dc user: drh tags: trunk | |
2010-10-22
| ||
13:55 | Prevent an assert from failing when opening a zero-length database file with an apparently hot journal with locking_mode=exclusive set. check-in: f000ac1e user: dan tags: trunk | |
Changes
Changes to src/tclsqlite.c.
666 666 Tcl_IncrRefCount(pCmd); 667 667 Tcl_ListObjAppendElement(0, pCmd, Tcl_NewStringObj( 668 668 ( (op==SQLITE_INSERT)?"INSERT":(op==SQLITE_UPDATE)?"UPDATE":"DELETE"), -1)); 669 669 Tcl_ListObjAppendElement(0, pCmd, Tcl_NewStringObj(zDb, -1)); 670 670 Tcl_ListObjAppendElement(0, pCmd, Tcl_NewStringObj(zTbl, -1)); 671 671 Tcl_ListObjAppendElement(0, pCmd, Tcl_NewWideIntObj(rowid)); 672 672 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT); 673 + Tcl_DecrRefCount(pCmd); 673 674 } 674 675 675 676 static void tclCollateNeeded( 676 677 void *pCtx, 677 678 sqlite3 *db, 678 679 int enc, 679 680 const char *zName