diff options
| author | drh <drh@noemail.net> | 2016-07-28 18:55:57 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2016-07-28 18:55:57 +0000 |
| commit | 3a22fdab9a40e54065b36b48daadf00fcffd4565 (patch) | |
| tree | 162ae7a09a5698549f3d14e0ad7d87390ca5a4ef /src/test_vfs.c | |
| parent | a8914faaaa981c87f193eb62477e7ba7d0affeed (diff) | |
| parent | c0bebc1dcfe7711b80d3a3333d35c991849785ed (diff) | |
| download | sqlite-3a22fdab9a40e54065b36b48daadf00fcffd4565.tar.gz sqlite-3a22fdab9a40e54065b36b48daadf00fcffd4565.zip | |
Decorate all interfaces with calling convention macros.
FossilOrigin-Name: fd784887e125bf95f4799ad09cbcba6795173487
Diffstat (limited to 'src/test_vfs.c')
| -rw-r--r-- | src/test_vfs.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/test_vfs.c b/src/test_vfs.c index b476a42cb..fb987a616 100644 --- a/src/test_vfs.c +++ b/src/test_vfs.c @@ -28,7 +28,11 @@ #include "sqlite3.h" #include "sqliteInt.h" -#include <tcl.h> +#if defined(INCLUDE_SQLITE_TCL_H) +# include "sqlite_tcl.h" +#else +# include "tcl.h" +#endif typedef struct Testvfs Testvfs; typedef struct TestvfsShm TestvfsShm; @@ -1036,7 +1040,7 @@ static int tvfsUnfetch(sqlite3_file *pFile, sqlite3_int64 iOfst, void *p){ return sqlite3OsUnfetch(pFd->pReal, iOfst, p); } -static int testvfs_obj_cmd( +static int SQLITE_TCLAPI testvfs_obj_cmd( ClientData cd, Tcl_Interp *interp, int objc, @@ -1348,7 +1352,7 @@ static int testvfs_obj_cmd( return TCL_OK; } -static void testvfs_obj_del(ClientData cd){ +static void SQLITE_TCLAPI testvfs_obj_del(ClientData cd){ Testvfs *p = (Testvfs *)cd; if( p->pScript ) Tcl_DecrRefCount(p->pScript); sqlite3_vfs_unregister(p->pVfs); @@ -1391,7 +1395,7 @@ static void testvfs_obj_del(ClientData cd){ ** ** where LOCK is of the form "OFFSET NBYTE lock/unlock shared/exclusive" */ -static int testvfs_cmd( +static int SQLITE_TCLAPI testvfs_cmd( ClientData cd, Tcl_Interp *interp, int objc, |