Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix compiler harmless warnings in tclsqlite.c that appeared with GCC 4.8.x. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
d93ae6833a7fca0672caf902a7b48846 |
| User & Date: | drh 2013-12-20 18:57:44 |
Context
|
2013-12-21
| ||
| 00:04 | Add a case to speedtest1.c that demonstrates the need to factor OP_Column operators out of inner loops. check-in: 69a17336 user: drh tags: trunk | |
|
2013-12-20
| ||
| 18:57 | Fix compiler harmless warnings in tclsqlite.c that appeared with GCC 4.8.x. check-in: d93ae683 user: drh tags: trunk | |
| 18:44 | Code simplification in sqlite3GenerateIndexKey() by making use of a subroutine found over in expr.c. check-in: 0026d335 user: drh tags: trunk | |
Changes
Changes to src/tclsqlite.c.
1526 1526 ** even though the only invocations of them are within conditional blocks 1527 1527 ** of the form: 1528 1528 ** 1529 1529 ** if( DbUseNre() ) { ... } 1530 1530 */ 1531 1531 # define SQLITE_TCL_NRE 0 1532 1532 # define DbUseNre() 0 1533 -# define Tcl_NRAddCallback(a,b,c,d,e,f) 0 1533 +# define Tcl_NRAddCallback(a,b,c,d,e,f) (void)0 1534 1534 # define Tcl_NREvalObj(a,b,c) 0 1535 -# define Tcl_NRCreateCommand(a,b,c,d,e,f) 0 1535 +# define Tcl_NRCreateCommand(a,b,c,d,e,f) (void)0 1536 1536 #endif 1537 1537 1538 1538 /* 1539 1539 ** This function is part of the implementation of the command: 1540 1540 ** 1541 1541 ** $db eval SQL ?ARRAYNAME? SCRIPT 1542 1542 */ ................................................................................ 2766 2766 /* If using NRE, schedule a callback to invoke the script pScript, then 2767 2767 ** a second callback to commit (or rollback) the transaction or savepoint 2768 2768 ** opened above. If not using NRE, evaluate the script directly, then 2769 2769 ** call function DbTransPostCmd() to commit (or rollback) the transaction 2770 2770 ** or savepoint. */ 2771 2771 if( DbUseNre() ){ 2772 2772 Tcl_NRAddCallback(interp, DbTransPostCmd, cd, 0, 0, 0); 2773 - Tcl_NREvalObj(interp, pScript, 0); 2773 + (void)Tcl_NREvalObj(interp, pScript, 0); 2774 2774 }else{ 2775 2775 rc = DbTransPostCmd(&cd, interp, Tcl_EvalObjEx(interp, pScript, 0)); 2776 2776 } 2777 2777 break; 2778 2778 } 2779 2779 2780 2780 /* ................................................................................ 3367 3367 } else { 3368 3368 /* Pad block to 56 bytes */ 3369 3369 memset(p, 0, count-8); 3370 3370 } 3371 3371 byteReverse(ctx->in, 14); 3372 3372 3373 3373 /* Append length in bits and transform */ 3374 - ((uint32 *)ctx->in)[ 14 ] = ctx->bits[0]; 3375 - ((uint32 *)ctx->in)[ 15 ] = ctx->bits[1]; 3374 + memcpy(ctx->in + 14*4, ctx->bits, 8); 3376 3375 3377 3376 MD5Transform(ctx->buf, (uint32 *)ctx->in); 3378 3377 byteReverse((unsigned char *)ctx->buf, 4); 3379 3378 memcpy(digest, ctx->buf, 16); 3380 3379 } 3381 3380 3382 3381 /*