Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix a memory leak in the test harness. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
108d62cab90096262c0c53bd1edbb08d |
| User & Date: | drh 2013-02-11 15:51:17 |
Context
|
2013-02-11
| ||
| 16:04 | Fix a memory leak in DETACH. check-in: 9b03a19a30 user: drh tags: trunk | |
| 15:51 | Fix a memory leak in the test harness. check-in: 108d62cab9 user: drh tags: trunk | |
| 15:17 | Remove two MySQL-isms: Strings in double-quotes and identifiers quoted by grave accents. check-in: eec75c074c user: drh tags: trunk | |
Changes
Changes to test/test_kv2.c.
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
...
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
|
static int kvwrap_install_cmd(Tcl_Interp *interp, int objc, Tcl_Obj **objv){
if( objc!=2 ){
Tcl_WrongNumArgs(interp, 2, objv, "");
return TCL_ERROR;
}
if( kvwg.xFactory==0 ){
sqlite4_env_config(0, SQLITE4_ENVCONFIG_KVSTORE_GET, "main", &kvwg.xFactory);
sqlite4_env_config(0, SQLITE4_ENVCONFIG_KVSTORE_PUSH, "main",newFileStorage);
}
return TCL_OK;
}
static int kvwrap_seek_cmd(Tcl_Interp *interp, int objc, Tcl_Obj **objv){
if( objc!=2 ){
Tcl_WrongNumArgs(interp, 2, objv, "");
................................................................................
int objc,
Tcl_Obj *CONST objv[]
){
struct Subcmd {
const char *zCmd;
int (*xCmd)(Tcl_Interp *, int, Tcl_Obj **);
} aSub[] = {
{ "install", kvwrap_install_cmd },
{ "step", kvwrap_step_cmd },
{ "seek", kvwrap_seek_cmd },
{ "reset", kvwrap_reset_cmd },
};
int iSub;
int rc;
rc = Tcl_GetIndexFromObjStruct(
interp, objv[1], aSub, sizeof(aSub[0]), "sub-command", 0, &iSub
);
|
|
|
>
>
>
>
>
>
>
>
>
>
>
>
>
|
|
|
|
>
|
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
...
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
|
static int kvwrap_install_cmd(Tcl_Interp *interp, int objc, Tcl_Obj **objv){
if( objc!=2 ){
Tcl_WrongNumArgs(interp, 2, objv, "");
return TCL_ERROR;
}
if( kvwg.xFactory==0 ){
sqlite4_env_config(0, SQLITE4_ENVCONFIG_KVSTORE_GET,"main", &kvwg.xFactory);
sqlite4_env_config(0, SQLITE4_ENVCONFIG_KVSTORE_PUSH,"main",newFileStorage);
}
return TCL_OK;
}
static int kvwrap_uninstall_cmd(Tcl_Interp *interp, int objc, Tcl_Obj **objv){
if( objc!=2 ){
Tcl_WrongNumArgs(interp, 2, objv, "");
return TCL_ERROR;
}
if( kvwg.xFactory ){
sqlite4_env_config(0, SQLITE4_ENVCONFIG_KVSTORE_POP,"main", &kvwg.xFactory);
kvwg.xFactory = 0;
}
return TCL_OK;
}
static int kvwrap_seek_cmd(Tcl_Interp *interp, int objc, Tcl_Obj **objv){
if( objc!=2 ){
Tcl_WrongNumArgs(interp, 2, objv, "");
................................................................................
int objc,
Tcl_Obj *CONST objv[]
){
struct Subcmd {
const char *zCmd;
int (*xCmd)(Tcl_Interp *, int, Tcl_Obj **);
} aSub[] = {
{ "install", kvwrap_install_cmd },
{ "step", kvwrap_step_cmd },
{ "seek", kvwrap_seek_cmd },
{ "reset", kvwrap_reset_cmd },
{ "uninstall", kvwrap_uninstall_cmd },
};
int iSub;
int rc;
rc = Tcl_GetIndexFromObjStruct(
interp, objv[1], aSub, sizeof(aSub[0]), "sub-command", 0, &iSub
);
|
Changes to test/tester.tcl.
758 759 760 761 762 763 764 765 766 767 768 769 770 771 |
puts "all of the test failures above might be a result from this defect"
puts "in your TCL build."
puts "******************************************************************"
}
if {$::cmdlinearg(binarylog)} {
vfslog finalize binarylog
}
if {[lindex [sqlite4_env_status SQLITE4_ENVSTATUS_MALLOC_COUNT 0] 1]>0 ||
[sqlite4_memory_used]>0} {
puts "Unfreed memory: [sqlite4_memory_used] bytes in\
[lindex [sqlite4_env_status SQLITE4_ENVSTATUS_MALLOC_COUNT 0] 1] allocations"
incr nErr
ifcapable memdebug||mem5||(mem3&&debug) {
puts "Writing unfreed memory log to \"./memleak.txt\""
|
> |
758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 |
puts "all of the test failures above might be a result from this defect"
puts "in your TCL build."
puts "******************************************************************"
}
if {$::cmdlinearg(binarylog)} {
vfslog finalize binarylog
}
kvwrap uninstall
if {[lindex [sqlite4_env_status SQLITE4_ENVSTATUS_MALLOC_COUNT 0] 1]>0 ||
[sqlite4_memory_used]>0} {
puts "Unfreed memory: [sqlite4_memory_used] bytes in\
[lindex [sqlite4_env_status SQLITE4_ENVSTATUS_MALLOC_COUNT 0] 1] allocations"
incr nErr
ifcapable memdebug||mem5||(mem3&&debug) {
puts "Writing unfreed memory log to \"./memleak.txt\""
|