diff options
| author | mistachkin <mistachkin@noemail.net> | 2016-07-28 17:11:20 +0000 |
|---|---|---|
| committer | mistachkin <mistachkin@noemail.net> | 2016-07-28 17:11:20 +0000 |
| commit | 7617e4a8a4564689a839cf116dae0012b4753a65 (patch) | |
| tree | 6d3e3d005be92b9cfdf2d2c96d31cb29335dd361 /src/test_blob.c | |
| parent | f27a80cf185c97e66a5808e2634d41fe30942fed (diff) | |
| download | sqlite-7617e4a8a4564689a839cf116dae0012b4753a65.tar.gz sqlite-7617e4a8a4564689a839cf116dae0012b4753a65.zip | |
Make sure the SQLITE_TCLAPI macro is always defined.
FossilOrigin-Name: f2f1323cc4d2ad2d6794dbfae8d50b747213e85d
Diffstat (limited to 'src/test_blob.c')
| -rw-r--r-- | src/test_blob.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/test_blob.c b/src/test_blob.c index 703664190..3ac6c1142 100644 --- a/src/test_blob.c +++ b/src/test_blob.c @@ -99,7 +99,7 @@ static char *blobStringFromObj(Tcl_Obj *pObj){ ** ** Tcl test harness for the sqlite3_blob_open() function. */ -static int test_blob_open( +static int SQLITE_TCLAPI test_blob_open( ClientData clientData, /* Not used */ Tcl_Interp *interp, /* Calling TCL interpreter */ int objc, /* Number of arguments */ @@ -150,7 +150,7 @@ static int test_blob_open( /* ** sqlite3_blob_close HANDLE */ -static int test_blob_close( +static int SQLITE_TCLAPI test_blob_close( ClientData clientData, /* Not used */ Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ int objc, /* Number of arguments */ @@ -178,7 +178,7 @@ static int test_blob_close( /* ** sqlite3_blob_bytes HANDLE */ -static int test_blob_bytes( +static int SQLITE_TCLAPI test_blob_bytes( ClientData clientData, /* Not used */ Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ int objc, /* Number of arguments */ @@ -214,7 +214,7 @@ static int test_blob_bytes( ** text representation of the returned error code (i.e. "SQLITE_NOMEM") ** and a Tcl exception is thrown. */ -static int test_blob_read( +static int SQLITE_TCLAPI test_blob_read( ClientData clientData, /* Not used */ Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ int objc, /* Number of arguments */ @@ -266,7 +266,7 @@ static int test_blob_read( ** result is set to the text representation of the returned error code ** (i.e. "SQLITE_NOMEM") and a Tcl exception is thrown. */ -static int test_blob_write( +static int SQLITE_TCLAPI test_blob_write( ClientData clientData, /* Not used */ Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ int objc, /* Number of arguments */ |