hppa64 gas default .level

[Alan Modra]

On Tue, 27 Mar 2001 law@redhat.com wrote:

>   In message < Pine.LNX.4.21.0103281000580.21990-100000@front.linuxcare.com.au >y
> ou write:
>   > Hi Jeff,
>   >   Is there a good reason why hppa64 gas shouldn't default to ".level 2.0w"?
> None at all.

Let's do it then.

gas/ChangeLog
	* config/tc-hppa.c (DEFAULT_LEVEL): Define.
	(md_begin): Use it when setting default architecture.

Alan Modra
-- 
Linuxcare

Index: gas/config/tc-hppa.c
===================================================================
RCS file: /cvs/src/src/gas/config/tc-hppa.c,v
retrieving revision 1.82
diff -u -p -r1.82 tc-hppa.c
--- tc-hppa.c	2001/03/08 23:24:23	1.82
+++ tc-hppa.c	2001/03/28 14:05:28
@@ -105,6 +105,12 @@ typedef som_symbol_type obj_symbol_type;
 #endif
 #endif /* OBJ_SOM */
 
+#if TARGET_ARCH_SIZE == 64
+#define DEFAULT_LEVEL 25
+#else
+#define DEFAULT_LEVEL 10
+#endif
+
 /* Various structures and types used internally in tc-hppa.c.  */
 
 /* Unwind table and descriptor.  FIXME: Sync this with GDB version.  */
@@ -1393,7 +1399,7 @@ md_begin ()
   call_info_root = NULL;
 
   /* Set the default machine type.  */
-  if (!bfd_set_arch_mach (stdoutput, bfd_arch_hppa, 10))
+  if (!bfd_set_arch_mach (stdoutput, bfd_arch_hppa, DEFAULT_LEVEL))
     as_warn (_("could not set architecture and machine"));
 
   /* Folding of text and data segments fails miserably on the PA.