From: Tristan Gingold <gingold@adacore.com>
Date: Wed, 23 Nov 2011 11:27:51 +0000 (+0000)
Subject: 2011-11-23  Tristan Gingold  <gingold@adacore.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=467b607ec025c1478d0ede103c62498d6a469606;p=binutils-gdb.git

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 9348a20671b..c199dddbace 100644
--- 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 47d519ab10e..6f39d1c4f01 100644
--- 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