OSDN Git Service

Patch from Bernard Giroud.
authorwilson <wilson@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 27 Apr 2004 06:35:17 +0000 (06:35 +0000)
committerwilson <wilson@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 27 Apr 2004 06:35:17 +0000 (06:35 +0000)
* config/alpha.c (alpha_end_function): For OpenVMS gas,
correctly output .pdesc directive before .end.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@81214 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ChangeLog
gcc/config/alpha/alpha.c

index f44efd7..d6e0148 100644 (file)
@@ -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
index b37b311..dd306d5 100644 (file)
@@ -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)
     {