database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-08 14:02:16 +03:00
Code Activity

Fix compilation problem in test5.c (CVS 1318)

Browse Source 
FossilOrigin-Name: 49c3c86c17bcd8132216791d7a1a17e2c6256206
This commit is contained in:
danielk1977
2004-05-07 01:50:37 +00:00
parent 998b56c351
commit 697e6e27b8
3 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/test5.c
View File

@@ -52,7 +52,7 @@ static int sqlite_utf8to16le(
in = Tcl_GetByteArrayFromObj(objv[1], 0);
out = (unsigned char *)sqlite3utf8to16le(in, -1);
res = Tcl_NewByteArrayObj(out, utf16_length(ret));
res = Tcl_NewByteArrayObj(out, utf16_length(out));
sqliteFree(out);
Tcl_SetObjResult(interp, res);
@@ -78,7 +78,7 @@ static int sqlite_utf8to16be(
in = Tcl_GetByteArrayFromObj(objv[1], 0);
out = (unsigned char *)sqlite3utf8to16be(in, -1);
res = Tcl_NewByteArrayObj(out, utf16_length(ret));
res = Tcl_NewByteArrayObj(out, utf16_length(out));
sqliteFree(out);
Tcl_SetObjResult(interp, res);
@@ -108,7 +108,7 @@ static int sqlite_utf16to16le(
memcpy(out, in, in_len);
sqlite3utf16to16le(out, -1);
res = Tcl_NewByteArrayObj(out, utf16_length(ret));
res = Tcl_NewByteArrayObj(out, utf16_length(out));
sqliteFree(out);
Tcl_SetObjResult(interp, res);
@@ -138,7 +138,7 @@ static int sqlite_utf16to16be(
memcpy(out, in, in_len);
sqlite3utf16to16be(out, -1);
res = Tcl_NewByteArrayObj(out, utf16_length(ret));
res = Tcl_NewByteArrayObj(out, utf16_length(out));
sqliteFree(out);
Tcl_SetObjResult(interp, res);
@@ -164,7 +164,7 @@ static int sqlite_utf16to8(
in = Tcl_GetByteArrayFromObj(objv[1], 0);
out = sqlite3utf16to8(in, -1);
res = Tcl_NewByteArrayObj(out, strlen(ret));
res = Tcl_NewByteArrayObj(out, strlen(out));
sqliteFree(out);
Tcl_SetObjResult(interp, res);