file-format.exp (gcc_target_object_format): Add check for som format and…

file-format.exp (gcc_target_object_format): Add check for som format and hardcode object formats on hppa*-*-hpux*.

	* lib/file-format.exp (gcc_target_object_format): Add check for som
        format and hardcode object formats on hppa*-*-hpux*.
	* lib/target-supports.exp (check_weak_available): Add check for som
	object format.  Always return 0 on hppa*-*-hpux10*.
	* gcc.dg/titype-1.c, gcc.dg/uninit-C.c: Don't use TImode if __hppa__
	is defined.
	* objc.dg/stabs-1.m: hppa*64*-*-* doesn't have stabs.

From-SVN: r95982

gcc/testsuite/ChangeLog

+2005-03-06  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
+
+	* lib/file-format.exp (gcc_target_object_format): Add check for som
+        format and hardcode object formats on hppa*-*-hpux*.
+	* lib/target-supports.exp (check_weak_available): Add check for som
+	object format.  Always return 0 on hppa*-*-hpux10*.
+
+	* gcc.dg/titype-1.c, gcc.dg/uninit-C.c: Don't use TImode if __hppa__
+	is defined.
+
+	* objc.dg/stabs-1.m: hppa*64*-*-* doesn't have stabs.
+
 2005-03-05  Steven G. Kargl  <kargls@comcast.net> 
 
 	* gfortran.dg/pr19936_1.f90: New test.

gcc/testsuite/gcc.dg/titype-1.c

 /* { dg-do run } */
 
 /* Not all platforms support TImode integers.  */
-#if defined(__LP64__)
+#if defined(__LP64__) && !defined(__hppa__)
 typedef int TItype __attribute__ ((mode (TI)));
 #else
 typedef long TItype;

gcc/testsuite/gcc.dg/uninit-C.c

@@ -3,7 +3,7 @@
 /* { dg-options "-O -Wuninitialized" } */
 
 /* Not all platforms support TImode integers.  */
-#if defined(__LP64__)
+#if defined(__LP64__) && !defined(__hppa__)
 typedef int TItype __attribute__ ((mode (TI)));
 #else
 typedef long TItype;

gcc/testsuite/lib/file-format.exp

@@ -32,6 +32,13 @@ proc gcc_target_object_format { } {
     } elseif { [string match "*-*-darwin*" $target_triplet] } {
 	# Darwin doesn't necessarily have objdump, so hand-code it.
 	set gcc_target_object_format_saved mach-o
+    } elseif { [string match "hppa*-*-hpux*" $target_triplet] } {
+	# HP-UX doesn't necessarily have objdump, so hand-code it.
+	if { [string match "hppa*64*-*-hpux*" $target_triplet] } {
+	  set gcc_target_object_format_saved elf
+	} else {
+	  set gcc_target_object_format_saved som
+	}
     } else {
         set objdump_name [find_binutils_prog objdump]
         set open_file [open objfmtst.c w]
@@ -66,6 +73,9 @@ proc gcc_target_object_format { } {
                 pe       {
                     set gcc_target_object_format_saved pe
                 }
+                som          {
+                    set gcc_target_object_format_saved som
+                } 
                 default      {
                     verbose "Unknown file format: $objformat" 3
                     set gcc_target_object_format_saved unknown

gcc/testsuite/lib/target-supports.exp

@@ -87,6 +87,12 @@ proc check_weak_available { } {
 	return 1
     }
 
+    # HP-UX 10.X doesn't support it
+
+    if { [regexp "hppa.*hpux10" $target_triplet] } {
+	return 0
+    }
+
     # ELF and ECOFF support it. a.out does with gas/gld but may also with
     # other linkers, so we should try it
 
@@ -97,6 +103,7 @@ proc check_weak_available { } {
         ecoff    { return 1 }
         a.out    { return 1 }
 	mach-o	 { return 1 }
+	som	 { return 1 }
         unknown  { return -1 }
         default  { return 0 }
     }

gcc/testsuite/objc.dg/stabs-1.m

@@ -2,7 +2,7 @@
 /* Contributed by Ziemowit Laski <zlaski@apple.com> */
 
 /* { dg-do compile } */
-/* { dg-skip-if "No stabs" { mmix-*-* *-*-aix* alpha*-*-* ia64-*-* } { "*" } { "" } } */
+/* { dg-skip-if "No stabs" { mmix-*-* *-*-aix* alpha*-*-* hppa*64*-*-* ia64-*-* } { "*" } { "" } } */
 /* { dg-options "-gstabs" } */
 
 @interface MyClass