fix unused vars

diff --git a/base/idtable.c b/base/idtable.c
index ae175b665f2908fdd894e79a8eb77c760c01f02f..6e7aafaa1562c94b8f16398acc4a6acfb42622cc 100644 (file)
--- a/base/idtable.c
+++ b/base/idtable.c
@@ -77,14 +77,12 @@ int cht_tabledataid_parse(Tcl_Interp *ip, Tcl_Obj *o, const IdDataSpec *idds) {
   int l;
   unsigned long ul;
   IdDataValue *dv;
-  IdDataAssocData *assoc;
   char *ep, *str;
 
   if (o->typePtr != &cht_tabledataid_nearlytype) goto convert;
 
   dv= o->internalRep.otherValuePtr;
   if (dv->interp != ip) goto convert;
-  assoc= dv->assoc;
   if (dv->assoc->idds != idds) goto convert;
 
   return TCL_OK;

diff --git a/debian/changelog b/debian/changelog
index f24075ad551c25a46dc4ce1b07d7bc69c18b3c4a..00ec69680cdc28fd92a1c3d42598b3d6a6544c72 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,13 +1,14 @@
 chiark-tcl (1.1.1~~iwj) unstable; urgency=low
 
   Bugfix:
-  * Handling of errors reading /dev/urandom fixed.  (Also, fixes
-    FTBFS in sid due to warning from recent versions of gcc.)
+  * Handling of errors reading /dev/urandom fixed.
 
   User-visible change:
   * Mention dgram, tuntap and maskmap in Description.  Fix typo.
 
   Packaging improvements:
+  * Fix FTBFS in sid due to warning from recent versions of gcc
+    about set but not used variables.
   * Update default TCL_VERSION for upstream build to 8.4.
   * Remove the pointless copyright notice from the end of the changelog.
   * Add ${misc:Depends} to Depends field (has no effect on the .deb).

diff --git a/hbytes/hook.c b/hbytes/hook.c
index 254b4fe6a75c02cc5a4bc11cd998871df3c64453..f570709494ce0588c29de51ed97ca254287cb794 100644 (file)
--- a/hbytes/hook.c
+++ b/hbytes/hook.c
@@ -96,8 +96,8 @@ static void hbytes_t_ustr(Tcl_Obj *o) {
 }
 
 static int hbytes_t_sfa(Tcl_Interp *ip, Tcl_Obj *o) {
-  char *str, *ep, *os;
-  Byte *startbytes, *bytes;
+  char *str, *ep;
+  Byte *bytes;
   int l;
   char cbuf[3];
 
@@ -109,13 +109,13 @@ static int hbytes_t_sfa(Tcl_Interp *ip, Tcl_Obj *o) {
 
   } else {
   
-    os= str= Tcl_GetStringFromObj(o,&l);  assert(str);
+    str= Tcl_GetStringFromObj(o,&l);  assert(str);
     cht_objfreeir(o);
 
     if (l & 1) return cht_staticerr(ip, "hbytes: conversion from hex:"
                                " odd length in hex", "HBYTES SYNTAX");
 
-    startbytes= bytes= cht_hb_arrayspace(OBJ_HBYTES(o), l/2);
+    bytes= cht_hb_arrayspace(OBJ_HBYTES(o), l/2);
 
     cbuf[2]= 0;
     while (l>0) {