diff options
| author | drh <drh@noemail.net> | 2013-12-20 18:57:44 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2013-12-20 18:57:44 +0000 |
| commit | a47941fe428060643a3e23a6d898f857a57a7fe7 (patch) | |
| tree | f4d4b8d3f5b692ad3a3c2dc85c7e78ff1b8a2ce7 /src/tclsqlite.c | |
| parent | d42ef839bc175303258114a7db99f9f9e065b690 (diff) | |
| download | sqlite-a47941fe428060643a3e23a6d898f857a57a7fe7.tar.gz sqlite-a47941fe428060643a3e23a6d898f857a57a7fe7.zip | |
Fix compiler harmless warnings in tclsqlite.c that appeared with GCC 4.8.x.
FossilOrigin-Name: d93ae6833a7fca0672caf902a7b48846e54242cd
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 0f57dda6c..e3e5628b1 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -1530,9 +1530,9 @@ static int DbUseNre(void){ */ # define SQLITE_TCL_NRE 0 # define DbUseNre() 0 -# define Tcl_NRAddCallback(a,b,c,d,e,f) 0 +# define Tcl_NRAddCallback(a,b,c,d,e,f) (void)0 # define Tcl_NREvalObj(a,b,c) 0 -# define Tcl_NRCreateCommand(a,b,c,d,e,f) 0 +# define Tcl_NRCreateCommand(a,b,c,d,e,f) (void)0 #endif /* @@ -2770,7 +2770,7 @@ static int DbObjCmd(void *cd, Tcl_Interp *interp, int objc,Tcl_Obj *const*objv){ ** or savepoint. */ if( DbUseNre() ){ Tcl_NRAddCallback(interp, DbTransPostCmd, cd, 0, 0, 0); - Tcl_NREvalObj(interp, pScript, 0); + (void)Tcl_NREvalObj(interp, pScript, 0); }else{ rc = DbTransPostCmd(&cd, interp, Tcl_EvalObjEx(interp, pScript, 0)); } @@ -3371,8 +3371,7 @@ static void MD5Final(unsigned char digest[16], MD5Context *ctx){ byteReverse(ctx->in, 14); /* Append length in bits and transform */ - ((uint32 *)ctx->in)[ 14 ] = ctx->bits[0]; - ((uint32 *)ctx->in)[ 15 ] = ctx->bits[1]; + memcpy(ctx->in + 14*4, ctx->bits, 8); MD5Transform(ctx->buf, (uint32 *)ctx->in); byteReverse((unsigned char *)ctx->buf, 4); |