diff options
| author | danielk1977 <danielk1977@noemail.net> | 2008-10-15 11:43:55 +0000 |
|---|---|---|
| committer | danielk1977 <danielk1977@noemail.net> | 2008-10-15 11:43:55 +0000 |
| commit | ab7bee892b49c4cd9e6d44adc8ed6783b39b2f9f (patch) | |
| tree | cafbfff3e76f1246da81df3eaaed7de744efca77 /src/test_malloc.c | |
| parent | 4bd3ce69accfbf64d62a60a6306f888780b0a1ff (diff) | |
| download | sqlite-ab7bee892b49c4cd9e6d44adc8ed6783b39b2f9f.tar.gz sqlite-ab7bee892b49c4cd9e6d44adc8ed6783b39b2f9f.zip | |
After running speed1.test and speed1p.test, reset the size of the lookaside buffer. Otherwise, subsequent runs of malloc5.test may report an error. Changes to test code only. (CVS 5824)
FossilOrigin-Name: 9283478e69d84aa99b2d4636587c8c0b34e7c4da
Diffstat (limited to 'src/test_malloc.c')
| -rw-r--r-- | src/test_malloc.c | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/src/test_malloc.c b/src/test_malloc.c index 7cf46e6b7..8c24961b7 100644 --- a/src/test_malloc.c +++ b/src/test_malloc.c @@ -13,7 +13,7 @@ ** This file contains code used to implement test interfaces to the ** memory allocation subsystem. ** -** $Id: test_malloc.c,v 1.48 2008/10/10 17:41:29 drh Exp $ +** $Id: test_malloc.c,v 1.49 2008/10/15 11:43:55 danielk1977 Exp $ */ #include "sqliteInt.h" #include "tcl.h" @@ -1001,14 +1001,22 @@ static int test_config_lookaside( ){ int rc; int sz, cnt; + Tcl_Obj *pRet; if( objc!=3 ){ Tcl_WrongNumArgs(interp, 1, objv, "SIZE COUNT"); return TCL_ERROR; } if( Tcl_GetIntFromObj(interp, objv[1], &sz) ) return TCL_ERROR; if( Tcl_GetIntFromObj(interp, objv[2], &cnt) ) return TCL_ERROR; + pRet = Tcl_NewObj(); + Tcl_ListObjAppendElement( + interp, pRet, Tcl_NewIntObj(sqlite3GlobalConfig.szLookaside) + ); + Tcl_ListObjAppendElement( + interp, pRet, Tcl_NewIntObj(sqlite3GlobalConfig.nLookaside) + ); rc = sqlite3_config(SQLITE_CONFIG_LOOKASIDE, sz, cnt); - Tcl_SetObjResult(interp, Tcl_NewIntObj(rc)); + Tcl_SetObjResult(interp, pRet); return TCL_OK; } |