diff options
| author | danielk1977 <danielk1977@noemail.net> | 2004-06-10 02:16:01 +0000 |
|---|---|---|
| committer | danielk1977 <danielk1977@noemail.net> | 2004-06-10 02:16:01 +0000 |
| commit | 466be56bcf05bbc619fb82142d8958186f0497b5 (patch) | |
| tree | 878a27ccbc3c69a840507c229e0b525826979465 /src/tclsqlite.c | |
| parent | 35d4c2f4b85fc436ebb57dbb5b9fd231298a2da5 (diff) | |
| download | sqlite-466be56bcf05bbc619fb82142d8958186f0497b5.tar.gz sqlite-466be56bcf05bbc619fb82142d8958186f0497b5.zip | |
Change the collation sequence interface to allow collation sequences that
use UTF-16 in non-native byte order to be registered. (CVS 1559)
FossilOrigin-Name: b8aaa3a29e0ddef357ab1b3b0b9f87ed390f2f36
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index f0aad5f63..ecfcc2c0b 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -11,7 +11,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.81 2004/06/09 09:55:19 danielk1977 Exp $ +** $Id: tclsqlite.c,v 1.82 2004/06/10 02:16:02 danielk1977 Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -917,7 +917,8 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ pCollate->pNext = pDb->pCollate; pCollate->zScript = (char*)&pCollate[1]; strcpy(pCollate->zScript, zScript); - if( sqlite3_create_collation(pDb->db, zName, 0, pCollate, tclSqlCollate) ){ + if( sqlite3_create_collation(pDb->db, zName, SQLITE_UTF8, + pCollate, tclSqlCollate) ){ return TCL_ERROR; } break; |