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

Fix harmless compiler warnings in the TCL interface.

Browse Source 
FossilOrigin-Name: f17e72291f197a92b3e15e054271b997d45211a5a31ca4ea6c7fbb33026d5f1f
This commit is contained in:
drh
2019-08-15 23:11:42 +00:00
parent 11d88e68ab
commit 4043cfef75
3 changed files with 9 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/tclsqlite.c
View File

@@ -2368,8 +2368,7 @@ static int SQLITE_TCLAPI DbObjCmd(
pResult = Tcl_NewListObj(0,0);
for(ii=0; ii<sizeof(aDbConfig)/sizeof(aDbConfig[0]); ii++){
int v = 0;
int rc = sqlite3_db_config(pDb->db, aDbConfig[ii].op, -1, &v);
if( rc!=SQLITE_OK ) continue;
sqlite3_db_config(pDb->db, aDbConfig[ii].op, -1, &v);
Tcl_ListObjAppendElement(interp, pResult,
Tcl_NewStringObj(aDbConfig[ii].zName,-1));
Tcl_ListObjAppendElement(interp, pResult,
@@ -2377,7 +2376,6 @@ static int SQLITE_TCLAPI DbObjCmd(
}
}else{
const char *zOpt = Tcl_GetString(objv[2]);
int rc;
int onoff = -1;
int v = 0;
if( zOpt[0]=='-' ) zOpt++;
@@ -2394,7 +2392,7 @@ static int SQLITE_TCLAPI DbObjCmd(
return TCL_ERROR;
}
}
rc = sqlite3_db_config(pDb->db, aDbConfig[ii].op, onoff, &v);
sqlite3_db_config(pDb->db, aDbConfig[ii].op, onoff, &v);
pResult = Tcl_NewIntObj(v);
}
Tcl_SetObjResult(interp, pResult);