Unnamed Fossil Project

Check-in [169e9bdece]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

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: 169e9bdece2e7d75b5f9d952859210c06c1945ba
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
Hide Diffs Unified Diffs Show Whitespace Changes Patch

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