Make the TCL extension aware of the booleanString type within TCL.

FossilOrigin-Name: 14b38ae6ab86a314a63ca9513850b43fcc670864f94d03a2706eff469980da88

1 files changed, 4 insertions, 1 deletions

diff --git a/src/tclsqlite.c b/src/tclsqlite.c
index 21437909b..344b3e07c 100644
--- a/src/tclsqlite.c
+++ b/src/tclsqlite.c
@@ -1098,6 +1098,7 @@ static void tclSqlFunc(sqlite3_context *context, int argc, sqlite3_value**argv){
         ** has no string representation. */
         eType = SQLITE_BLOB;
       }else if( (c=='b' && strcmp(zType,"boolean")==0)
+             || (c=='b' && strcmp(zType,"booleanString")==0 && pVar->bytes==0)
              || (c=='w' && strcmp(zType,"wideInt")==0)
              || (c=='i' && strcmp(zType,"int")==0) 
       ){
@@ -1505,7 +1506,9 @@ static int dbPrepareAndBind(
           sqlite3_bind_blob(pStmt, i, data, n, SQLITE_STATIC);
           Tcl_IncrRefCount(pVar);
           pPreStmt->apParm[iParm++] = pVar;
-        }else if( c=='b' && strcmp(zType,"boolean")==0 ){
+        }else if( (c=='b' && strcmp(zType,"boolean")==0)
+               || (c=='b' && strcmp(zType,"booleanString")==0
+                          && pVar->bytes==0) ){
           int nn;
           Tcl_GetIntFromObj(interp, pVar, &nn);
           sqlite3_bind_int(pStmt, i, nn);