From: Tristan Gingold <gingold@adacore.com>
Date: Tue, 20 Dec 2011 08:35:12 +0000 (+0000)
Subject: alpha.c (alpha_start_function): Adjust condition to create VMS trampoline entry point.
X-Git-Tag: releases/gcc-4.7.0~1422
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=cf45cd09affe4caf3a045638e26df58ebfcebe42;p=thirdparty%2Fgcc.git

alpha.c (alpha_start_function): Adjust condition to create VMS trampoline entry point.

2011-12-20  Tristan Gingold  <gingold@adacore.com>

	* config/alpha/alpha.c (alpha_start_function): Adjust condition to
	create VMS trampoline entry point.

From-SVN: r182521
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index feefdbc317d6..32c1d2429ff2 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2011-12-20  Tristan Gingold  <gingold@adacore.com>
+
+	* config/alpha/alpha.c (alpha_start_function): Adjust condition to
+	create VMS trampoline entry point.
+
 2011-12-19  Richard Sandiford  <rdsandiford@googlemail.com>
 
 	PR rtl-optimization/42839
diff --git a/gcc/config/alpha/alpha.c b/gcc/config/alpha/alpha.c
index 9048aa45c1cf..2d3b62c753e6 100644
--- a/gcc/config/alpha/alpha.c
+++ b/gcc/config/alpha/alpha.c
@@ -7935,7 +7935,8 @@ alpha_start_function (FILE *file, const char *fnname,
    if (TARGET_ABI_OPEN_VMS
        && !TREE_PUBLIC (decl)
        && DECL_CONTEXT (decl)
-       && !TYPE_P (DECL_CONTEXT (decl)))
+       && !TYPE_P (DECL_CONTEXT (decl))
+       && TREE_CODE (DECL_CONTEXT (decl)) != TRANSLATION_UNIT_DECL)
      {
 	strcpy (tramp_label, fnname);
 	strcat (tramp_label, "..tr");