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 Side-by-Side Diffs Ignore Whitespace Patch

Changes to generic/mpexpr.c.

   857    857       int badType;			/* Type of offending argument;  used
   858    858   					 * for error messages. */
   859    859       int gotOp;				/* Non-zero means already lexed the
   860    860   					 * operator (while picking up value
   861    861   					 * for unary operator).  Don't lex
   862    862   					 * again. */
   863    863       int result;
   864         -    int save;
   865    864   
   866    865       ZVALUE  z_tmp;
   867    866       ZVALUE  z_div;
   868    867       ZVALUE  z_quot;
   869    868       ZVALUE  z_rem;
   870    869       long    l_shift;
   871         -    char   *math_io;
   872    870   
   873    871       NUMBER  *q_tmp;
   874    872   
   875    873       value2.intValue    = _zero_;
   876    874       value2.doubleValue = qlink(&_qzero_);
   877    875       value2.type        = MP_UNDEF;
   878    876   
................................................................................
  1665   1663       long precRequest;
  1666   1664       register Mp_Value *valuePtr;	/* Value to be converted. */
  1667   1665   {
  1668   1666       int shortfall;
  1669   1667       int total;
  1670   1668       long precision;
  1671   1669       char *math_io;
  1672         -    NUMBER *q_rounded;
  1673   1670   
  1674   1671       if (valuePtr->type == MP_INT) {
  1675   1672           shortfall = zdigits(valuePtr->intValue) -
  1676   1673   		   (valuePtr->pv.end - valuePtr->pv.buffer);
  1677   1674   	total = zdigits(valuePtr->intValue) +
  1678   1675   		   (valuePtr->pv.end - valuePtr->pv.buffer);
  1679   1676       } else {
................................................................................
  1825   1822       CONST char *string;		/* Expression to evaluate. */
  1826   1823       Mp_Data *mdPtr;
  1827   1824   {
  1828   1825       Mp_Value value;
  1829   1826       int result;
  1830   1827       long precision;
  1831   1828       char *math_io;
  1832         -    NUMBER *q_rounded;
  1833   1829       JumpData jd;
  1834   1830       JumpData **jdPtrPtr = Tcl_GetThreadData(&mp_jdKey, sizeof(JumpData *));
  1835   1831       JumpData *savePtr = *jdPtrPtr;
  1836   1832   
  1837   1833       jd.interp = interp;
  1838   1834       *jdPtrPtr = &jd;
  1839   1835   

Changes to generic/mpiface.c.

   260    260   PrecTrace(clientData, interp, name1, name2, flags)
   261    261       ClientData clientData;      /* Not used. */
   262    262       Tcl_Interp *interp;         /* Interpreter containing variable. */
   263    263       CONST84 char *name1;        /* Name of variable. */
   264    264       CONST84 char *name2;        /* Second part of variable name. */
   265    265       int flags;                  /* Information about what happened. */
   266    266   {
   267         -    CONST char *value;
   268         -    char *end;
   269    267       char mp_buf[6];
   270         -    long prec;
   271    268       char *result = NULL;
   272    269   
   273    270       Mp_Data *mdPtr = (Mp_Data *)clientData;
   274    271   
   275    272       if (flags & TCL_TRACE_UNSETS) {
   276    273   	/*
   277    274   	 * If the variable is unset, then recreate the trace and restore