2011-11-23 Tristan Gingold <gingold@adacore.com>

	* config/tc-alpha.c (s_alpha_frame): Emit a warning if bad value
	of RA.
	(s_alpha_pdesc): Adjust comment.

diff --git a/gas/ChangeLog b/gas/ChangeLog
index 9348a20671b2624b1493bed74e18e3af68d605e4..c199dddbace4426e6c13a7a5b09edcc49fb71cde 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,9 @@
+2011-11-23  Tristan Gingold  <gingold@adacore.com>
+
+       * config/tc-alpha.c (s_alpha_frame): Emit a warning if bad value
+       of RA.
+       (s_alpha_pdesc): Adjust comment.
+
 2011-11-23  Thomas Klein  <th.r.klein@web.de>
 
        * config/tc-arm.c (do_t_mov_cmp): Prevent emitting code for MOV

diff --git a/gas/config/tc-alpha.c b/gas/config/tc-alpha.c
index 47d519ab10ea0ae87d090cef300244086662b08e..6f39d1c4f01a95ff19f5b0d348295cfca4d069d4 100644 (file)
--- a/gas/config/tc-alpha.c
+++ b/gas/config/tc-alpha.c
@@ -4435,6 +4435,7 @@ static void
 s_alpha_frame (int ignore ATTRIBUTE_UNUSED)
 {
   long val;
+  int ra;
 
   alpha_evax_proc->framereg = tc_get_register (1);
 
@@ -4450,7 +4451,10 @@ s_alpha_frame (int ignore ATTRIBUTE_UNUSED)
 
   alpha_evax_proc->framesize = val;
 
-  (void) tc_get_register (1);
+  ra = tc_get_register (1);
+  if (ra != AXP_REG_RA)
+    as_warn (_("Bad RA (%d) register for .frame"), ra);
+
   SKIP_WHITESPACE ();
   if (*input_line_pointer++ != ',')
     {
@@ -4473,7 +4477,7 @@ s_alpha_prologue (int ignore ATTRIBUTE_UNUSED)
     (FAKE_LABEL_NAME, now_seg, (valueT) frag_now_fix (), frag_now);
 }
 
-/* Parse .pdesc <entry_name>.
+/* Parse .pdesc <entry_name>,{null|stack|reg}
    Insert a procedure descriptor.  */
 
 static void