Tue Jun 2 13:32:22 1998 Klaus Kaempf <kkaempf@progis.de>

	* config/tc-alpha.c (s_alpha_comm): Allow alignment parameter in
	OBJ_EVAX case.

diff --git a/gas/ChangeLog b/gas/ChangeLog
index 0ca18f1..144033c 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,8 @@
+Tue Jun  2 13:32:22 1998  Klaus Kaempf  <kkaempf@progis.de>
+
+       * config/tc-alpha.c (s_alpha_comm): Allow alignment parameter in
+       OBJ_EVAX case.
+
 Tue Jun  2 13:11:13 1998  Pat Rankin  <rankin@eql.caltech.edu>
 
        * config/tc-vax.c (md_create_short_jump): Fix off by two bug in

diff --git a/gas/config/tc-alpha.c b/gas/config/tc-alpha.c
index 89b4f1a..70aaec8 100644 (file)
--- a/gas/config/tc-alpha.c
+++ b/gas/config/tc-alpha.c
@@ -3372,6 +3372,18 @@ s_alpha_comm (ignore)
   new_seg = subseg_new (xstrdup (name), 0);
 #endif
 
+#ifdef OBJ_EVAX
+  /* alignment might follow  */
+  if (*input_line_pointer == ',')
+    {
+      offsetT align;
+
+      input_line_pointer++;      
+      align = get_absolute_expression ();
+      bfd_set_section_alignment (stdoutput, new_seg, align);
+    }
+#endif
+
   if (S_IS_DEFINED (symbolP) && ! S_IS_COMMON (symbolP))
     {
       as_bad (_("Ignoring attempt to re-define symbol"));