diff options
| author | drh <drh@noemail.net> | 2006-06-21 19:30:34 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2006-06-21 19:30:34 +0000 |
| commit | f7e678d6e9179c6ccac4a369991b0b6e3ac4fe2a (patch) | |
| tree | 8e2048b664f65a5bd9f8887870d4620b3b4d7f6d /src/tclsqlite.c | |
| parent | 70ba1640984ca926b52f97b82aa7c4708e69da64 (diff) | |
| download | sqlite-f7e678d6e9179c6ccac4a369991b0b6e3ac4fe2a.tar.gz sqlite-f7e678d6e9179c6ccac4a369991b0b6e3ac4fe2a.zip | |
Make the last_insert_rowid method in the TCL interface work with
64-bit rowids. (CVS 3283)
FossilOrigin-Name: d50c37975de7639627422cbed40eb03a431874d5
Diffstat (limited to 'src/tclsqlite.c')
| -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 896738db0..30a3c88a3 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.160 2006/06/16 08:01:04 danielk1977 Exp $ +** $Id: tclsqlite.c,v 1.161 2006/06/21 19:30:34 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -1618,14 +1618,14 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ */ case DB_LAST_INSERT_ROWID: { Tcl_Obj *pResult; - int rowid; + Tcl_WideInt rowid; if( objc!=2 ){ Tcl_WrongNumArgs(interp, 2, objv, ""); return TCL_ERROR; } rowid = sqlite3_last_insert_rowid(pDb->db); pResult = Tcl_GetObjResult(interp); - Tcl_SetIntObj(pResult, rowid); + Tcl_SetWideIntObj(pResult, rowid); break; } |