database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-07 02:42:48 +03:00
Code Activity

Check in extra fixes for malloc4.test. (CVS 4341)

Browse Source 
FossilOrigin-Name: 49ce3a838194f0316c883dbe1596d13c0c0fad1b
This commit is contained in:
danielk1977
2007-08-30 15:46:06 +00:00
parent 744f574889
commit cd03724cb2
4 changed files with 42 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
src/test_malloc.c
View File

@@ -13,7 +13,7 @@
** This file contains code used to implement test interfaces to the
** memory allocation subsystem.
**
** $Id: test_malloc.c,v 1.6 2007/08/29 12:31:28 danielk1977 Exp $
** $Id: test_malloc.c,v 1.7 2007/08/30 15:46:07 danielk1977 Exp $
*/
#include "sqliteInt.h"
#include "tcl.h"
@@ -324,6 +324,33 @@ static int test_memdebug_fail(
return TCL_OK;
}
/*
** Usage: sqlite3_memdebug_pending
**
** Return the number of malloc() calls that will succeed before a
** simulated failure occurs. A negative return value indicates that
** no malloc() failure is scheduled.
*/
static int test_memdebug_pending(
void * clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]
){
if( objc!=1 ){
Tcl_WrongNumArgs(interp, 1, objv, "");
return TCL_ERROR;
}
#ifdef SQLITE_MEMDEBUG
{
extern int sqlite3_memdebug_pending();
Tcl_SetObjResult(interp, Tcl_NewIntObj(sqlite3_memdebug_pending()));
}
#endif
return TCL_OK;
}
/*
** Usage: sqlite3_memdebug_settitle TITLE
@@ -373,6 +400,7 @@ int Sqlitetest_malloc_Init(Tcl_Interp *interp){
{ "sqlite3_memdebug_backtrace", test_memdebug_backtrace },
{ "sqlite3_memdebug_dump", test_memdebug_dump },
{ "sqlite3_memdebug_fail", test_memdebug_fail },
{ "sqlite3_memdebug_pending", test_memdebug_pending },
{ "sqlite3_memdebug_settitle", test_memdebug_settitle },
};
int i;