Lines Matching refs:interp
300 Tcl_Interp *interp, in test_malloc() argument
308 Tcl_WrongNumArgs(interp, 1, objv, "NBYTES"); in test_malloc()
311 if( Tcl_GetIntFromObj(interp, objv[1], &nByte) ) return TCL_ERROR; in test_malloc()
314 Tcl_AppendResult(interp, zOut, NULL); in test_malloc()
325 Tcl_Interp *interp, in test_realloc() argument
333 Tcl_WrongNumArgs(interp, 1, objv, "PRIOR NBYTES"); in test_realloc()
336 if( Tcl_GetIntFromObj(interp, objv[2], &nByte) ) return TCL_ERROR; in test_realloc()
338 Tcl_AppendResult(interp, "bad pointer: ", Tcl_GetString(objv[1]), (char*)0); in test_realloc()
343 Tcl_AppendResult(interp, zOut, NULL); in test_realloc()
354 Tcl_Interp *interp, in test_free() argument
360 Tcl_WrongNumArgs(interp, 1, objv, "PRIOR"); in test_free()
364 Tcl_AppendResult(interp, "bad pointer: ", Tcl_GetString(objv[1]), (char*)0); in test_free()
385 Tcl_Interp *interp, in test_memset() argument
396 Tcl_WrongNumArgs(interp, 1, objv, "ADDRESS SIZE HEX"); in test_memset()
400 Tcl_AppendResult(interp, "bad pointer: ", Tcl_GetString(objv[1]), (char*)0); in test_memset()
403 if( Tcl_GetIntFromObj(interp, objv[2], &size) ){ in test_memset()
407 Tcl_AppendResult(interp, "size must be positive", (char*)0); in test_memset()
414 Tcl_AppendResult(interp, "no data", (char*)0); in test_memset()
431 Tcl_Interp *interp, in test_memget() argument
441 Tcl_WrongNumArgs(interp, 1, objv, "ADDRESS SIZE"); in test_memget()
445 Tcl_AppendResult(interp, "bad pointer: ", Tcl_GetString(objv[1]), (char*)0); in test_memget()
448 if( Tcl_GetIntFromObj(interp, objv[2], &size) ){ in test_memget()
452 Tcl_AppendResult(interp, "size must be positive", (char*)0); in test_memget()
466 Tcl_AppendResult(interp, zHex, (char*)0); in test_memget()
478 Tcl_Interp *interp, in test_memory_used() argument
482 Tcl_SetObjResult(interp, Tcl_NewWideIntObj(sqlite3_memory_used())); in test_memory_used()
493 Tcl_Interp *interp, in test_memory_highwater() argument
499 Tcl_WrongNumArgs(interp, 1, objv, "?RESET?"); in test_memory_highwater()
503 if( Tcl_GetBooleanFromObj(interp, objv[1], &resetFlag) ) return TCL_ERROR; in test_memory_highwater()
505 Tcl_SetObjResult(interp, in test_memory_highwater()
518 Tcl_Interp *interp, in test_memdebug_backtrace() argument
524 Tcl_WrongNumArgs(interp, 1, objv, "DEPT"); in test_memdebug_backtrace()
527 if( Tcl_GetIntFromObj(interp, objv[1], &depth) ) return TCL_ERROR; in test_memdebug_backtrace()
544 Tcl_Interp *interp, in test_memdebug_dump() argument
549 Tcl_WrongNumArgs(interp, 1, objv, "FILENAME"); in test_memdebug_dump()
569 Tcl_Interp *interp, in test_memdebug_malloc_count() argument
575 Tcl_WrongNumArgs(interp, 1, objv, ""); in test_memdebug_malloc_count()
584 Tcl_SetObjResult(interp, Tcl_NewIntObj(nMalloc)); in test_memdebug_malloc_count()
609 Tcl_Interp *interp, in test_memdebug_fail() argument
621 Tcl_WrongNumArgs(interp, 1, objv, "COUNTER ?OPTIONS?"); in test_memdebug_fail()
624 if( Tcl_GetIntFromObj(interp, objv[1], &iFail) ) return TCL_ERROR; in test_memdebug_fail()
635 if( Tcl_GetIntFromObj(interp, objv[ii+1], &nRepeat) ){ in test_memdebug_fail()
650 Tcl_AppendResult(interp, zErr, zOption, 0); in test_memdebug_fail()
660 Tcl_ObjSetVar2(interp, pBenignCnt, 0, Tcl_NewIntObj(nBenign), 0); in test_memdebug_fail()
662 Tcl_SetObjResult(interp, Tcl_NewIntObj(nFail)); in test_memdebug_fail()
675 Tcl_Interp *interp, in test_memdebug_pending() argument
681 Tcl_WrongNumArgs(interp, 1, objv, ""); in test_memdebug_pending()
685 Tcl_SetObjResult(interp, Tcl_NewIntObj(nPending)); in test_memdebug_pending()
708 Tcl_Interp *interp, in test_memdebug_settitle() argument
714 Tcl_WrongNumArgs(interp, 1, objv, "TITLE"); in test_memdebug_settitle()
789 Tcl_Interp *interp, in test_memdebug_log() argument
812 Tcl_WrongNumArgs(interp, 1, objv, "SUB-COMMAND ..."); in test_memdebug_log()
814 if( Tcl_GetIndexFromObj(interp, objv[1], MB_strs, "sub-command", 0, &iSub) ){ in test_memdebug_log()
848 Tcl_ListObjAppendElement(interp, pRet, in test_memdebug_log()
853 Tcl_SetObjResult(interp, pRet); in test_memdebug_log()
887 Tcl_Interp *interp, in test_config_pagecache() argument
895 Tcl_WrongNumArgs(interp, 1, objv, "SIZE N"); in test_config_pagecache()
898 if( Tcl_GetIntFromObj(interp, objv[1], &sz) ) return TCL_ERROR; in test_config_pagecache()
899 if( Tcl_GetIntFromObj(interp, objv[2], &N) ) return TCL_ERROR; in test_config_pagecache()
907 Tcl_SetObjResult(interp, pRes); in test_config_pagecache()
930 Tcl_Interp *interp, in test_alt_pcache() argument
940 Tcl_WrongNumArgs(interp, 1, objv, in test_alt_pcache()
944 if( Tcl_GetIntFromObj(interp, objv[1], &installFlag) ) return TCL_ERROR; in test_alt_pcache()
945 if( objc>=3 && Tcl_GetIntFromObj(interp, objv[2], &discardChance) ){ in test_alt_pcache()
948 if( objc>=4 && Tcl_GetIntFromObj(interp, objv[3], &prngSeed) ){ in test_alt_pcache()
951 if( objc>=5 && Tcl_GetIntFromObj(interp, objv[4], &highStress) ){ in test_alt_pcache()
955 Tcl_AppendResult(interp, "discard-chance should be between 0 and 100", in test_alt_pcache()
971 Tcl_Interp *interp, in test_config_memstatus() argument
977 Tcl_WrongNumArgs(interp, 1, objv, "BOOLEAN"); in test_config_memstatus()
980 if( Tcl_GetBooleanFromObj(interp, objv[1], &enable) ) return TCL_ERROR; in test_config_memstatus()
982 Tcl_SetObjResult(interp, Tcl_NewIntObj(rc)); in test_config_memstatus()
992 Tcl_Interp *interp, in test_config_lookaside() argument
999 Tcl_WrongNumArgs(interp, 1, objv, "SIZE COUNT"); in test_config_lookaside()
1002 if( Tcl_GetIntFromObj(interp, objv[1], &sz) ) return TCL_ERROR; in test_config_lookaside()
1003 if( Tcl_GetIntFromObj(interp, objv[2], &cnt) ) return TCL_ERROR; in test_config_lookaside()
1006 interp, pRet, Tcl_NewIntObj(sqlite3GlobalConfig.szLookaside) in test_config_lookaside()
1009 interp, pRet, Tcl_NewIntObj(sqlite3GlobalConfig.nLookaside) in test_config_lookaside()
1012 Tcl_SetObjResult(interp, pRet); in test_config_lookaside()
1026 Tcl_Interp *interp, in test_db_config_lookaside() argument
1037 Tcl_WrongNumArgs(interp, 1, objv, "BUFID SIZE COUNT"); in test_db_config_lookaside()
1040 if( getDbPointer(interp, Tcl_GetString(objv[1]), &db) ) return TCL_ERROR; in test_db_config_lookaside()
1041 if( Tcl_GetIntFromObj(interp, objv[2], &bufid) ) return TCL_ERROR; in test_db_config_lookaside()
1042 if( Tcl_GetIntFromObj(interp, objv[3], &sz) ) return TCL_ERROR; in test_db_config_lookaside()
1043 if( Tcl_GetIntFromObj(interp, objv[4], &cnt) ) return TCL_ERROR; in test_db_config_lookaside()
1049 Tcl_AppendResult(interp, "illegal arguments - see documentation", (char*)0); in test_db_config_lookaside()
1052 Tcl_SetObjResult(interp, Tcl_NewIntObj(rc)); in test_db_config_lookaside()
1061 Tcl_Interp *interp, in test_config_heap() argument
1074 Tcl_WrongNumArgs(interp, 1, objv, "NBYTE NMINALLOC"); in test_config_heap()
1077 if( Tcl_GetIntFromObj(interp, aArg[0], &nByte) ) return TCL_ERROR; in test_config_heap()
1078 if( Tcl_GetIntFromObj(interp, aArg[1], &nMinAlloc) ) return TCL_ERROR; in test_config_heap()
1089 Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), TCL_VOLATILE); in test_config_heap()
1098 Tcl_Interp *interp, in test_config_heap_size() argument
1109 Tcl_WrongNumArgs(interp, 1, objv, "NBYTE"); in test_config_heap_size()
1112 if( Tcl_GetIntFromObj(interp, aArg[0], &nByte) ) return TCL_ERROR; in test_config_heap_size()
1116 Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), TCL_VOLATILE); in test_config_heap_size()
1128 Tcl_Interp *interp, in test_config_error() argument
1136 Tcl_WrongNumArgs(interp, 1, objv, "[DB]"); in test_config_error()
1140 if( getDbPointer(interp, Tcl_GetString(objv[1]), &db) ) return TCL_ERROR; in test_config_error()
1142 Tcl_AppendResult(interp, in test_config_error()
1149 Tcl_AppendResult(interp, in test_config_error()
1166 Tcl_Interp *interp, in test_config_uri() argument
1174 Tcl_WrongNumArgs(interp, 1, objv, "BOOL"); in test_config_uri()
1177 if( Tcl_GetBooleanFromObj(interp, objv[1], &bOpenUri) ){ in test_config_uri()
1182 Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), TCL_VOLATILE); in test_config_uri()
1195 Tcl_Interp *interp, in test_config_cis() argument
1203 Tcl_WrongNumArgs(interp, 1, objv, "BOOL"); in test_config_cis()
1206 if( Tcl_GetBooleanFromObj(interp, objv[1], &bUseCis) ){ in test_config_cis()
1211 Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), TCL_VOLATILE); in test_config_cis()
1223 Tcl_Interp *interp, in test_config_pmasz() argument
1231 Tcl_WrongNumArgs(interp, 1, objv, "BOOL"); in test_config_pmasz()
1234 if( Tcl_GetIntFromObj(interp, objv[1], &iPmaSz) ){ in test_config_pmasz()
1239 Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), TCL_VOLATILE); in test_config_pmasz()
1253 Tcl_Interp *interp, in test_dump_memsys3() argument
1258 Tcl_WrongNumArgs(interp, 1, objv, "FILENAME"); in test_dump_memsys3()
1289 Tcl_Interp *interp, in test_status() argument
1313 Tcl_WrongNumArgs(interp, 1, objv, "PARAMETER RESETFLAG"); in test_status()
1324 if( Tcl_GetIntFromObj(interp, objv[1], &op) ) return TCL_ERROR; in test_status()
1326 if( Tcl_GetBooleanFromObj(interp, objv[2], &resetFlag) ) return TCL_ERROR; in test_status()
1334 Tcl_SetObjResult(interp, pResult); in test_status()
1346 Tcl_Interp *interp, in test_db_status() argument
1375 Tcl_WrongNumArgs(interp, 1, objv, "DB PARAMETER RESETFLAG"); in test_db_status()
1378 if( getDbPointer(interp, Tcl_GetString(objv[1]), &db) ) return TCL_ERROR; in test_db_status()
1389 if( Tcl_GetIntFromObj(interp, objv[2], &op) ) return TCL_ERROR; in test_db_status()
1391 if( Tcl_GetBooleanFromObj(interp, objv[3], &resetFlag) ) return TCL_ERROR; in test_db_status()
1399 Tcl_SetObjResult(interp, pResult); in test_db_status()
1408 Tcl_Interp *interp, in test_install_malloc_faultsim() argument
1416 Tcl_WrongNumArgs(interp, 1, objv, "BOOLEAN"); in test_install_malloc_faultsim()
1419 if( TCL_OK!=Tcl_GetBooleanFromObj(interp, objv[1], &isInstall) ){ in test_install_malloc_faultsim()
1423 Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), TCL_VOLATILE); in test_install_malloc_faultsim()
1432 Tcl_Interp *interp, in test_install_memsys3() argument
1441 Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), TCL_VOLATILE); in test_install_memsys3()
1447 Tcl_Interp *interp, in test_vfs_oom_test() argument
1453 Tcl_WrongNumArgs(interp, 1, objv, "?INTEGER?"); in test_vfs_oom_test()
1457 if( Tcl_GetIntFromObj(interp, objv[1], &iNew) ) return TCL_ERROR; in test_vfs_oom_test()
1460 Tcl_SetObjResult(interp, Tcl_NewIntObj(sqlite3_memdebug_vfs_oom_test)); in test_vfs_oom_test()
1467 int Sqlitetest_malloc_Init(Tcl_Interp *interp){ in Sqlitetest_malloc_Init() argument
1509 Tcl_CreateObjCommand(interp, aObjCmd[i].zName, aObjCmd[i].xProc, c, 0); in Sqlitetest_malloc_Init()