Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Avoid calls to newer TCL interfaces in the test logic. This helps the TCL test harness compile without warnings and link when using older versions of the TCL library. (CVS 6409) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
1ad176375746d680225d7ecddca54bc2 |
| User & Date: | drh 2009-03-30 12:56:52 |
Context
|
2009-03-30
| ||
| 13:04 | Make sure recursive calls to winOpen() preserve the pVfs pointer. Fault found while testing a mingw build in VMWare. (CVS 6410) check-in: 18b44f0d user: drh tags: trunk | |
| 12:56 | Avoid calls to newer TCL interfaces in the test logic. This helps the TCL test harness compile without warnings and link when using older versions of the TCL library. (CVS 6409) check-in: 1ad17637 user: drh tags: trunk | |
| 12:42 | Avoid all use of the "LL" suffix for long-long integer literals. Ticket #3759. (CVS 6408) check-in: 7ef36935 user: drh tags: trunk | |
Changes
Changes to src/test_backup.c.
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
..
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
** ** May you do good and not evil. ** May you find forgiveness for yourself and forgive others. ** May you share freely, never taking more than you give. ** ************************************************************************* ** ** $Id: test_backup.c,v 1.2 2009/03/25 16:51:43 drh Exp $ */ #include "tcl.h" #include <sqlite3.h> #include <assert.h> /* These functions are implemented in test1.c. */ ................................................................................ Tcl_WrongNumArgs(interp, 2, objv, aSub[iCmd].zArg); return TCL_ERROR; } switch( aSub[iCmd].eCmd ){ case BACKUP_FINISH: { Tcl_CmdInfo cmdInfo; Tcl_Command cmd = Tcl_GetCommandFromObj(interp, objv[0]); Tcl_GetCommandInfoFromToken(cmd, &cmdInfo); cmdInfo.deleteProc = 0; Tcl_SetCommandInfoFromToken(cmd, &cmdInfo); Tcl_DeleteCommandFromToken(interp, cmd); rc = sqlite3_backup_finish(p); Tcl_SetResult(interp, (char *)sqlite3TestErrorName(rc), TCL_STATIC); break; } case BACKUP_STEP: { |
|
>
<
>
|
|
|
|
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
..
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
** ** May you do good and not evil. ** May you find forgiveness for yourself and forgive others. ** May you share freely, never taking more than you give. ** ************************************************************************* ** ** $Id: test_backup.c,v 1.3 2009/03/30 12:56:52 drh Exp $ */ #include "tcl.h" #include <sqlite3.h> #include <assert.h> /* These functions are implemented in test1.c. */ ................................................................................ Tcl_WrongNumArgs(interp, 2, objv, aSub[iCmd].zArg); return TCL_ERROR; } switch( aSub[iCmd].eCmd ){ case BACKUP_FINISH: { const char *zCmdName; Tcl_CmdInfo cmdInfo; zCmdName = Tcl_GetString(objv[0]); Tcl_GetCommandInfo(interp, zCmdName, &cmdInfo); cmdInfo.deleteProc = 0; Tcl_SetCommandInfo(interp, zCmdName, &cmdInfo); Tcl_DeleteCommand(interp, zCmdName); rc = sqlite3_backup_finish(p); Tcl_SetResult(interp, (char *)sqlite3TestErrorName(rc), TCL_STATIC); break; } case BACKUP_STEP: { |