diff --git a/gas/ChangeLog b/gas/ChangeLog
index b4183d2ede..f958f69f1a 100644
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,7 @@
+2003-04-07  Thiemo Seufer <seufer@csv.ica.uni-stuttgart.de>
+
+	* write.c (write_relocs): Remove unused variable.
+
 2003-04-06  Chris Demetriou  <cgd@broadcom.com>
 
 	* config/tc-mips.c (HAVE_64BIT_ADDRESS_CONSTANTS): New.
diff --git a/gas/write.c b/gas/write.c
index e4ce91cb92..ce40572749 100644
--- a/gas/write.c
+++ b/gas/write.c
@@ -1017,7 +1017,6 @@ write_relocs (abfd, sec, xxx)
   for (fixp = seginfo->fix_root; fixp != (fixS *) NULL; fixp = fixp->fx_next)
     {
       arelent **reloc;
-      char *data;
       bfd_reloc_status_type s;
       symbolS *sym;
       int j;
@@ -1053,7 +1052,6 @@ write_relocs (abfd, sec, xxx)
 	  relocs[i++] = reloc[j];
 	  assert (i <= n);
 	}
-      data = fixp->fx_frag->fr_literal + fixp->fx_where;
       if (fixp->fx_where + fixp->fx_size
 	  > fixp->fx_frag->fr_fix + fixp->fx_frag->fr_offset)
 	as_bad_where (fixp->fx_file, fixp->fx_line,