[SCM] archer-jankratochvil-misc: Revert "Flat DW_TAG_module support (PR fortran/9806)"

[SCM] archer-jankratochvil-misc: Revert "Flat DW_TAG_module support (PR fortran/9806)"

[jkratoch]

The branch, archer-jankratochvil-misc has been updated
       via  d6dfd6c0d8a5dafc78e27a56dee8beea734ff29e (commit)
      from  843074fccbc526d331642cca2a4cf0c5e6a84696 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email.

- Log -----------------------------------------------------------------
commit d6dfd6c0d8a5dafc78e27a56dee8beea734ff29e
Author: Jan Kratochvil <jan.kratochvil@redhat.com>
Date:   Sat Feb 21 01:27:49 2009 +0100

    Revert "Flat DW_TAG_module support (PR fortran/9806)"
    
    This reverts commit cfa15b79a7f527e31d0c3244581180a4cdb6bf6c.
    
    Conflicts:
    
    	gdb/dwarf2read.c
    
    Checked-in for FSF GDB:
    http://sourceware.org/ml/gdb-patches/2009-02/msg00247.html
    http://sourceware.org/ml/gdb-cvs/2009-02/msg00073.html

-----------------------------------------------------------------------

Summary of changes:
 gdb/dwarf2read.c                     |   19 ------------------
 gdb/testsuite/gdb.fortran/module.exp |   35 ----------------------------------
 gdb/testsuite/gdb.fortran/module.f90 |   22 ---------------------
 3 files changed, 0 insertions(+), 76 deletions(-)
 delete mode 100644 gdb/testsuite/gdb.fortran/module.exp
 delete mode 100644 gdb/testsuite/gdb.fortran/module.f90

First 500 lines of diff:
diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c
index f730b5f..a9432a2 100644
--- a/gdb/dwarf2read.c
+++ b/gdb/dwarf2read.c
@@ -1858,12 +1858,6 @@ scan_partial_symbols (struct partial_die_info *first_die, CORE_ADDR *lowpc,
 	    case DW_TAG_namespace:
 	      add_partial_namespace (pdi, lowpc, highpc, need_pc, cu);
 	      break;
-	    case DW_TAG_module:
-	      /* FIXME: Support the separate Fortran module namespaces.  */
-	      if (pdi->has_children)
-		scan_partial_symbols (pdi->die_child, lowpc, highpc, need_pc,
-				      cu);
-	      break;
 	    default:
 	      break;
 	    }
@@ -2846,19 +2840,6 @@ process_die (struct die_info *die, struct dwarf2_cu *cu)
       processing_has_namespace_info = 1;
       read_namespace (die, cu);
       break;
-    case DW_TAG_module:
-      /* FIXME: Support the separate Fortran module namespaces.  */
-      if (die->child != NULL)
-	{
-	  struct die_info *child_die = die->child;
-	  
-	  while (child_die && child_die->tag)
-	    {
-	      process_die (child_die, cu);
-	      child_die = sibling_die (child_die);
-	    }
-	}
-      break;
     case DW_TAG_imported_declaration:
     case DW_TAG_imported_module:
       /* FIXME: carlton/2002-10-16: Eventually, we should use the
diff --git a/gdb/testsuite/gdb.fortran/module.exp b/gdb/testsuite/gdb.fortran/module.exp
deleted file mode 100644
index 5f79bf1..0000000
--- a/gdb/testsuite/gdb.fortran/module.exp
+++ /dev/null
@@ -1,35 +0,0 @@
-# Copyright 2009 Free Software Foundation, Inc.
-
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-set testfile "module"
-set srcfile ${testfile}.f90
-set binfile ${objdir}/${subdir}/${testfile}
-
-if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f77 quiet}] != "" } {
-    untested "Couldn't compile ${srcfile}"
-    return -1
-}
-
-gdb_exit
-gdb_start
-gdb_reinitialize_dir $srcdir/$subdir
-gdb_load ${binfile}
-
-if ![runto MAIN__] then {
-    perror "couldn't run to breakpoint MAIN__"
-    continue
-}
-
-gdb_test "print i" "\\$\[0-9\]+ = 42"
diff --git a/gdb/testsuite/gdb.fortran/module.f90 b/gdb/testsuite/gdb.fortran/module.f90
deleted file mode 100644
index 501ccc8..0000000
--- a/gdb/testsuite/gdb.fortran/module.f90
+++ /dev/null
@@ -1,22 +0,0 @@
-! Copyright 2009 Free Software Foundation, Inc.
-! 
-! This program is free software; you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation; either version 3 of the License, or
-! (at your option) any later version.
-! 
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-! GNU General Public License for more details.
-! 
-! You should have received a copy of the GNU General Public License
-! along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-module mod
-        integer :: i = 42
-end module mod
-
-        use mod
-        print *, i
-end


hooks/post-receive
--
Repository for Project Archer.