diff options
| author | Tristan Gingold <gingold@adacore.com> | 2011-11-23 11:27:51 +0000 |
|---|---|---|
| committer | Tristan Gingold <gingold@adacore.com> | 2011-11-23 11:27:51 +0000 |
| commit | 467b607ec025c1478d0ede103c62498d6a469606 (patch) | |
| tree | 5d9d8167685b5160505f61f86da6307717b9553f /gas/config/tc-alpha.c | |
| parent | 91ea3caed73075bebeaa2d0626b14fb7410cd15d (diff) | |
| download | fsf-binutils-gdb-467b607ec025c1478d0ede103c62498d6a469606.zip fsf-binutils-gdb-467b607ec025c1478d0ede103c62498d6a469606.tar.gz fsf-binutils-gdb-467b607ec025c1478d0ede103c62498d6a469606.tar.bz2 | |
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.
Diffstat (limited to 'gas/config/tc-alpha.c')
| -rw-r--r-- | gas/config/tc-alpha.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gas/config/tc-alpha.c b/gas/config/tc-alpha.c index 47d519a..6f39d1c 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 |