go-test.exp (go-set-goarch): New proc.

	* go.test/go-test.exp (go-set-goarch): New proc.
	(go-gc-tests): Use it.

From-SVN: r168695

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4671aaed5b531fe65711bb210f8aad82967e03b8..511ee6eab4667f7cc9d8043e063a1a4000d90a9f 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2011-01-11  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
+
+       * go.test/go-test.exp (go-set-goarch): New proc.
+       (go-gc-tests): Use it.
+
 2011-01-11  Dodji Seketeli  <dodji@redhat.com>
 
        PR debug/46955

diff --git a/gcc/testsuite/go.test/go-test.exp b/gcc/testsuite/go.test/go-test.exp
index d60096dd867494048cc973d01a92ae3b3e5b7a40..8945b0526ca2fdd1afc15b765731966dcd5b666a 100644 (file)
--- a/gcc/testsuite/go.test/go-test.exp
+++ b/gcc/testsuite/go.test/go-test.exp
@@ -1,4 +1,4 @@
-#   Copyright (C) 2009, 2010 Free Software Foundation, Inc.
+#   Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc.
 #   Written by Ian Lance Taylor <iant@google.com>.
 
 # This program is free software; you can redistribute it and/or modify
@@ -106,6 +106,41 @@ proc go-execute-xfail { test } {
     file delete $filename
 }
 
+# N.B. Keep in sync with libgo/configure.ac.
+proc go-set-goarch { } {
+    global target_triplet
+
+    switch -glob $target_triplet {
+       "arm*-*-*" -
+       "ep9312*-*-*" -
+       "strongarm*-*-*" -
+       "xscale-*-*" {
+           set goarch "arm"
+       }
+       "i?86-*-*" -
+       "x86_64-*-*" {
+           if [check_effective_target_ilp32] {
+               set goarch "386"
+           } else {
+               set goarch "amd64"
+           }
+       }
+       "sparc*-*-*" {
+           if [check_effective_target_ilp32] {
+               set goarch "sparc"
+           } else {
+               set goarch "sparcv9"
+           }
+       }
+       default {
+           perror "$target_triplet: unhandled architecture"
+           return ""
+       }       
+    }
+    verbose -log "Setting GOARCH=$goarch" 1
+    setenv GOARCH $goarch
+}
+
 proc go-gc-tests { } {
     global srcdir subdir
     global runtests
@@ -122,6 +157,9 @@ proc go-gc-tests { } {
        set DEFAULT_GOCFLAGS " -pedantic-errors"
     }
 
+    # Set GOARCH for tests that need it.
+    go-set-goarch
+
     # Running all the torture options takes too long and, since the
     # frontend ignores the standard options, it doesn't significantly
     # improve testing.