[Patch] Fix some testsuite regressions for alpha vms

[Tristan Gingold <gingold@adacore.com>]

Hi,

this patch fixes 13 regressions (due to unusual section names for .text/.data/.bss) and kills one test for alpha vms.

Ok for trunk ?

Tristan.

gas/testsuite

2011-04-18  Tristan Gingold  <gingold@adacore.com>

	* lib/gas-defs.exp (get_standard_section_names): Add names for
	alpha vms.
	* gas/all/gas.exp: Do not test diff1.s on alpha-vms.

diff --git a/gas/testsuite/gas/all/gas.exp b/gas/testsuite/gas/all/gas.exp
index 59500a1..c7cc452 100644
--- a/gas/testsuite/gas/all/gas.exp
+++ b/gas/testsuite/gas/all/gas.exp
@@ -34,12 +34,14 @@ if { ![istarget cris-*-*] && ![istarget crisv32-*-*]
 
 # This test is meaningless for the PA; the difference of two undefined
 # symbols is something that is (and must be) supported on the PA.
+# The same is true for alpha-vms
 #
 # The MN10300 port supports link time relaxation which in turn allows
 # for link time resolution of the differneces of two symbols which are
 # undefined at assembly time.  Hence this test will not pass for the
 # MN10300.  The same thing is true for the RX port as well.
 if { ![istarget hppa*-*-*]
+     && ![istarget alpha*-*-*vms*]
      && ![istarget rx-*-*]
      && ![istarget mn10300-*-*]
      && ![istarget am3*-*-*] } then {
diff --git a/gas/testsuite/lib/gas-defs.exp b/gas/testsuite/lib/gas-defs.exp
index f10d72a..9d89a2e 100644
--- a/gas/testsuite/lib/gas-defs.exp
+++ b/gas/testsuite/lib/gas-defs.exp
@@ -290,6 +290,10 @@ proc get_standard_section_names {} {
     if [istarget "rx-*-*"] {
         return { "P" "D_1" "B_1" }
     }
+    if [istarget "alpha*-*-*vms*"] {
+        # Double quote: for TCL and for sh.
+        return { "\\\$CODE\\\$" "\\\$DATA\\\$" "\\\$BSS\\\$" }
+    }
     return
 }