/ Check-in [1d17e3dc]
Login

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: 1d17e3dc832d789c3665e240dac5019fc4f9c18b
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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