Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Get rid of unused variables |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | nmake-update |
| Files: | files | file ages | folders |
| SHA1: |
169e9bdece2e7d75b5f9d952859210c0 |
| User & Date: | ashok 2017-08-31 07:09:42.663 |
Context
|
2017-09-01
| ||
| 07:59 | Added missing nmake files Closed-Leaf check-in: e011980aed user: ashok tags: nmake-update | |
|
2017-08-31
| ||
| 07:09 | Get rid of unused variables check-in: 169e9bdece user: ashok tags: nmake-update | |
| 07:00 | Updated to match 8.6 Tcl nmake build files check-in: 93282248e6 user: ashok tags: nmake-update | |
Changes
Changes to generic/mpexpr.c.
| ︙ | ︙ | |||
857 858 859 860 861 862 863 |
int badType; /* Type of offending argument; used
* for error messages. */
int gotOp; /* Non-zero means already lexed the
* operator (while picking up value
* for unary operator). Don't lex
* again. */
int result;
| < < | 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 |
int badType; /* Type of offending argument; used
* for error messages. */
int gotOp; /* Non-zero means already lexed the
* operator (while picking up value
* for unary operator). Don't lex
* again. */
int result;
ZVALUE z_tmp;
ZVALUE z_div;
ZVALUE z_quot;
ZVALUE z_rem;
long l_shift;
NUMBER *q_tmp;
value2.intValue = _zero_;
value2.doubleValue = qlink(&_qzero_);
value2.type = MP_UNDEF;
|
| ︙ | ︙ | |||
1665 1666 1667 1668 1669 1670 1671 |
long precRequest;
register Mp_Value *valuePtr; /* Value to be converted. */
{
int shortfall;
int total;
long precision;
char *math_io;
| < | 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 |
long precRequest;
register Mp_Value *valuePtr; /* Value to be converted. */
{
int shortfall;
int total;
long precision;
char *math_io;
if (valuePtr->type == MP_INT) {
shortfall = zdigits(valuePtr->intValue) -
(valuePtr->pv.end - valuePtr->pv.buffer);
total = zdigits(valuePtr->intValue) +
(valuePtr->pv.end - valuePtr->pv.buffer);
} else {
|
| ︙ | ︙ | |||
1825 1826 1827 1828 1829 1830 1831 |
CONST char *string; /* Expression to evaluate. */
Mp_Data *mdPtr;
{
Mp_Value value;
int result;
long precision;
char *math_io;
| < | 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 |
CONST char *string; /* Expression to evaluate. */
Mp_Data *mdPtr;
{
Mp_Value value;
int result;
long precision;
char *math_io;
JumpData jd;
JumpData **jdPtrPtr = Tcl_GetThreadData(&mp_jdKey, sizeof(JumpData *));
JumpData *savePtr = *jdPtrPtr;
jd.interp = interp;
*jdPtrPtr = &jd;
|
| ︙ | ︙ |
Changes to generic/mpiface.c.
| ︙ | ︙ | |||
260 261 262 263 264 265 266 |
PrecTrace(clientData, interp, name1, name2, flags)
ClientData clientData; /* Not used. */
Tcl_Interp *interp; /* Interpreter containing variable. */
CONST84 char *name1; /* Name of variable. */
CONST84 char *name2; /* Second part of variable name. */
int flags; /* Information about what happened. */
{
| < < < | 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 |
PrecTrace(clientData, interp, name1, name2, flags)
ClientData clientData; /* Not used. */
Tcl_Interp *interp; /* Interpreter containing variable. */
CONST84 char *name1; /* Name of variable. */
CONST84 char *name2; /* Second part of variable name. */
int flags; /* Information about what happened. */
{
char mp_buf[6];
char *result = NULL;
Mp_Data *mdPtr = (Mp_Data *)clientData;
if (flags & TCL_TRACE_UNSETS) {
/*
* If the variable is unset, then recreate the trace and restore
|
| ︙ | ︙ |