From: Tristan Gingold <gingold@adacore.com>
Date: Mon, 27 Jun 2011 12:30:16 +0000 (+0000)
Subject: alpha.c (alpha_end_function): Always generate .end directive on VMS.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b213221d256fa5e5732756d4814e48c9ef09df93;p=gcc.git

alpha.c (alpha_end_function): Always generate .end directive on VMS.

2011-06-27  Tristan Gingold  <gingold@adacore.com>

	* config/alpha/alpha.c (alpha_end_function): Always generate .end
	directive on VMS.

From-SVN: r175522
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index ba26774f152..c687dbc5a3e 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2011-06-27  Tristan Gingold  <gingold@adacore.com>
+
+	* config/alpha/alpha.c (alpha_end_function): Always generate .end
+	directive on VMS.
+
 2011-06-27  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* config/sparc/sparc.c (sparc_frame_pointer_required): Return true if
diff --git a/gcc/config/alpha/alpha.c b/gcc/config/alpha/alpha.c
index ffe9fc0bce4..510c1a81568 100644
--- a/gcc/config/alpha/alpha.c
+++ b/gcc/config/alpha/alpha.c
@@ -8159,7 +8159,8 @@ alpha_end_function (FILE *file, const char *fnname, tree decl ATTRIBUTE_UNUSED)
 #endif
 
   /* End the function.  */
-  if (!flag_inhibit_size_directive)
+  if (TARGET_ABI_OPEN_VMS
+      || !flag_inhibit_size_directive)
     {
       fputs ("\t.end ", file);
       assemble_name (file, fnname);