diff --git a/gas/ChangeLog b/gas/ChangeLog
index 647b2680c2..5be241d045 100644
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,7 @@
+2001-03-23  Richard Sandiford  <rsandifo@redhat.com>
+
+	* write.c (fix_new_exp): Print an error if passed a register.
+
 2001-03-23  Hans-Peter Nilsson  <hp@axis.com>
 
 	* config/tc-cris.c: Tweak attribution.  Fix typos.  PIC support.
diff --git a/gas/write.c b/gas/write.c
index b647a11d90..b94c05eed7 100644
--- a/gas/write.c
+++ b/gas/write.c
@@ -283,6 +283,10 @@ fix_new_exp (frag, where, size, exp, pcrel, r_type)
     case O_absent:
       break;
 
+    case O_register:
+      as_bad (_("register value used as expression"));
+      break;
+
     case O_add:
       /* This comes up when _GLOBAL_OFFSET_TABLE_+(.-L0) is read, if
 	 the difference expression cannot immediately be reduced.  */