vms-c.c (vms_pragma_nomember_alignment): Handle 'byte' alignment.

2012-04-03  Tristan Gingold  <gingold@adacore.com>

	* config/vms/vms-c.c (vms_pragma_nomember_alignment): Handle
	'byte' alignment.
	(vms_c_common_override_options): Allow parameterless variadic
	functions.

From-SVN: r186102

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 72e14f4d8598014559c474a9fcfec47303bdd13e..7c1d1b3bb206f5a92e26f10d3f954b0e9d6f2f79 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,10 @@
+2012-04-03  Tristan Gingold  <gingold@adacore.com>
+
+       * config/vms/vms-c.c (vms_pragma_nomember_alignment): Handle
+       'byte' alignment.
+       (vms_c_common_override_options): Allow parameterless variadic
+       functions.
+
 2012-04-03  Jakub Jelinek  <jakub@redhat.com>
 
        PR tree-optimization/52835

diff --git a/gcc/config/vms/vms-c.c b/gcc/config/vms/vms-c.c
index 6f8a1cf613853fa1ff31ccd5996a47625a9e9ad5..09172b261abc21f6211836352f5faf02e43b265e 100644 (file)
--- a/gcc/config/vms/vms-c.c
+++ b/gcc/config/vms/vms-c.c
@@ -120,7 +120,9 @@ vms_pragma_nomember_alignment (cpp_reader *pfile ATTRIBUTE_UNUSED)
       if (arg[0] == '_' && arg[1] == '_')
         arg += 2;
 
-      if (strcmp (arg, "word") == 0)
+      if (strcmp (arg, "byte") == 0)
+        maximum_field_alignment = 1 * BITS_PER_UNIT;
+      else if (strcmp (arg, "word") == 0)
         maximum_field_alignment = 2 * BITS_PER_UNIT;
       else if (strcmp (arg, "longword") == 0)
         maximum_field_alignment = 4 * BITS_PER_UNIT;
@@ -453,6 +455,9 @@ vms_c_register_includes (const char *sysroot,
 void
 vms_c_common_override_options (void)
 {
+  /* Allow variadic functions without parameters (as declared in starlet).  */
+  flag_allow_parameterless_variadic_functions = TRUE;
+
   /* Initialize c_default_pointer_mode.  */
   switch (flag_vms_pointer_size)
     {