database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-05 15:55:57 +03:00
Code Activity

Use Tcl_GetString() instead of Tcl_GetCharLength() to test for a zero-length

Browse Source 
string in the TCL interface, since that is much more efficient.

FossilOrigin-Name: a8d9dcfd23fbfcd887e451382836c1e88215984cc01e00be11387dbf4ab26fd8
This commit is contained in:
drh
2025-01-21 11:10:16 +00:00
parent c69d537b93
commit d0db5edf61
3 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/tclsqlite.c
View File

@@ -1964,7 +1964,7 @@ static void DbHookCmd(
}
if( pArg ){
assert( !(*ppHook) );
if( Tcl_GetCharLength(pArg)>0 ){
if( Tcl_GetString(pArg)[0] ){
*ppHook = pArg;
Tcl_IncrRefCount(*ppHook);
}