Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Get rid of unused variables |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | nmake-update |
| Files: | files | file ages | folders |
| SHA1: |
169e9bdece2e7d75b5f9d952859210c0 |
| User & Date: | ashok 2017-08-31 07:09:42 |
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 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 .... 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 .... 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 |
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;
int save;
ZVALUE z_tmp;
ZVALUE z_div;
ZVALUE z_quot;
ZVALUE z_rem;
long l_shift;
char *math_io;
NUMBER *q_tmp;
value2.intValue = _zero_;
value2.doubleValue = qlink(&_qzero_);
value2.type = MP_UNDEF;
................................................................................
long precRequest;
register Mp_Value *valuePtr; /* Value to be converted. */
{
int shortfall;
int total;
long precision;
char *math_io;
NUMBER *q_rounded;
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 {
................................................................................
CONST char *string; /* Expression to evaluate. */
Mp_Data *mdPtr;
{
Mp_Value value;
int result;
long precision;
char *math_io;
NUMBER *q_rounded;
JumpData jd;
JumpData **jdPtrPtr = Tcl_GetThreadData(&mp_jdKey, sizeof(JumpData *));
JumpData *savePtr = *jdPtrPtr;
jd.interp = interp;
*jdPtrPtr = &jd;
|
< < < < |
857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 .... 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 .... 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 |
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;
................................................................................
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 {
................................................................................
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 267 268 269 270 271 272 273 274 275 276 277 |
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. */
{
CONST char *value;
char *end;
char mp_buf[6];
long prec;
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
|
< < < |
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
|