s390.c (s390_option_override): Disable DWARF 3/4 extensions for TPF, unless specifica...

* config/s390/s390.c (s390_option_override): Disable DWARF 3/4
extensions for TPF, unless specifically selected.

From-SVN: r190023

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 1947fdff5cd25e5bb17aa33c4caa078faaf46fc4..322ab5b3c811afa6fa9a233a8e7d0eccd459928d 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2012-07-31  DJ Delorie  <dj@redhat.com>
+
+       * config/s390/s390.c (s390_option_override): Disable DWARF 3/4
+       extensions for TPF, unless specifically selected.
+
 2012-08-01  Alan Modra  <amodra@gmail.com>
 
        PR target/54131

diff --git a/gcc/config/s390/s390.c b/gcc/config/s390/s390.c
index f72f49fd023f689c1cf3aa247a21cd6b6a287c84..3a872911570b09c540cdc3284b07195e7c97abf6 100644 (file)
--- a/gcc/config/s390/s390.c
+++ b/gcc/config/s390/s390.c
@@ -1654,6 +1654,16 @@ s390_option_override (void)
   maybe_set_param_value (PARAM_SCHED_PRESSURE_ALGORITHM, 2,
                          global_options.x_param_values,
                          global_options_set.x_param_values);
+
+  if (TARGET_TPF)
+    {
+      /* Don't emit DWARF3/4 unless specifically selected.  The TPF
+        debuggers do not yet support DWARF 3/4.  */
+      if (!global_options_set.x_dwarf_strict) 
+       dwarf_strict = 1;
+      if (!global_options_set.x_dwarf_version)
+       dwarf_version = 2;
+    }
 }
 
 /* Map for smallest class containing reg regno.  */