Bug#625319: chiark-tcl: ftbfs with gcc-4.6 -Werror

[peter green]

tags 625319 +patch
thanks

Patch is attatched that eliminates the unused but set variables.
Note: i'm just doing flyby rc bugsquashing, I have tested that the 
resulting packages build and install but I have not tested beyong that.
diff -ur chiark-tcl-1.1.0+nmu2/base/hook.c chiark-tcl-1.1.0+nmu2.new/base/hook.c
--- chiark-tcl-1.1.0+nmu2/base/hook.c	2009-07-19 16:26:13.000000000 +0000
+++ chiark-tcl-1.1.0+nmu2.new/base/hook.c	2011-08-11 20:28:01.000000000 +0000
@@ -86,7 +86,7 @@
 int cht_get_urandom(Tcl_Interp *ip, Byte *buffer, int l) {
   static FILE *urandom;
 
-  int r, esave;
+  int r;
 
   if (!urandom) {
     urandom= fopen(URANDOM,"rb");
@@ -95,7 +95,6 @@
   r= fread(buffer,1,l,urandom);
   if (r==l) return 0;
 
-  esave= errno;
   fclose(urandom); urandom=0;
 
   if (ferror(urandom)) {
diff -ur chiark-tcl-1.1.0+nmu2/base/idtable.c chiark-tcl-1.1.0+nmu2.new/base/idtable.c
--- chiark-tcl-1.1.0+nmu2/base/idtable.c	2006-10-20 11:35:04.000000000 +0000
+++ chiark-tcl-1.1.0+nmu2.new/base/idtable.c	2011-08-11 20:28:45.000000000 +0000
@@ -79,14 +79,12 @@
   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 -ur chiark-tcl-1.1.0+nmu2/hbytes/hook.c chiark-tcl-1.1.0+nmu2.new/hbytes/hook.c
--- chiark-tcl-1.1.0+nmu2/hbytes/hook.c	2006-10-20 11:35:04.000000000 +0000
+++ chiark-tcl-1.1.0+nmu2.new/hbytes/hook.c	2011-08-11 20:29:52.000000000 +0000
@@ -98,8 +98,8 @@
 }
 
 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];
 
@@ -111,13 +111,13 @@
 
   } 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) {