Patch from Bernard Giroud.

* config/alpha.c (alpha_end_function): For OpenVMS gas,
correctly output .pdesc directive before .end.

From-SVN: r81214

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index f44efd79bd701865aa590826ca63a77a1e58e81a..d6e014847f45a1e25f8c57230efd23d3b8951af6 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2004-04-26  Bernard Giroud  <bgiroud@free.fr>
+
+       * config/alpha.c (alpha_end_function): For OpenVMS gas,
+       correctly output .pdesc directive before .end.
+
 2004-04-26  James E Wilson  <wilson@specifixinc.com>
 
        Bug 14927

diff --git a/gcc/config/alpha/alpha.c b/gcc/config/alpha/alpha.c
index b37b311d55f84cd2fecb8c82b069aca3ab39e078..dd306d520db12a53eb159d98201cf578f82691ad 100644 (file)
--- a/gcc/config/alpha/alpha.c
+++ b/gcc/config/alpha/alpha.c
@@ -7855,6 +7855,10 @@ alpha_expand_epilogue (void)
 void
 alpha_end_function (FILE *file, const char *fnname, tree decl ATTRIBUTE_UNUSED)
 {
+#if TARGET_ABI_OPEN_VMS
+  alpha_write_linkage (file, fnname, decl);
+#endif
+
   /* End the function.  */
   if (!TARGET_ABI_UNICOSMK && !flag_inhibit_size_directive)
     {
@@ -7864,10 +7868,6 @@ alpha_end_function (FILE *file, const char *fnname, tree decl ATTRIBUTE_UNUSED)
     }
   inside_function = FALSE;
 
-#if TARGET_ABI_OPEN_VMS
-  alpha_write_linkage (file, fnname, decl);
-#endif
-
   /* Output jump tables and the static subroutine information block.  */
   if (TARGET_ABI_UNICOSMK)
     {