[SCM] archer-jankratochvil-vla: Fix crash for gdb.fortran/dynamic.exp with gcc-gfortran-4.1.2-51.el5.x86_64.

[SCM] archer-jankratochvil-vla: Fix crash for gdb.fortran/dynamic.exp with gcc-gfortran-4.1.2-51.el5.x86_64.

[jkratoch]

The branch, archer-jankratochvil-vla has been updated
       via  a999ae2c722b366b94987941f0ce899f95e8d679 (commit)
      from  abf6242040b837a3b7f0bf3eafe4b9deec041dd1 (commit)

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

- Log -----------------------------------------------------------------
commit a999ae2c722b366b94987941f0ce899f95e8d679
Author: Jan Kratochvil <jan.kratochvil@redhat.com>
Date:   Fri Mar 2 22:08:49 2012 +0100

    Fix crash for gdb.fortran/dynamic.exp with gcc-gfortran-4.1.2-51.el5.x86_64.

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

Summary of changes:
 gdb/valops.c |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)

First 500 lines of diff:
diff --git a/gdb/valops.c b/gdb/valops.c
index 5a4a8fa..55c890e 100644
--- a/gdb/valops.c
+++ b/gdb/valops.c
@@ -1037,7 +1037,8 @@ int
 value_fetch_lazy (struct value *val)
 {
   gdb_assert (value_lazy (val));
-  allocate_value_contents (val);
+  if (VALUE_LVAL (val) != lval_memory)
+    allocate_value_contents (val);
   if (value_bitsize (val))
     {
       /* To read a lazy bitfield, read the entire enclosing value.  This
@@ -1080,11 +1081,15 @@ value_fetch_lazy (struct value *val)
 
 	  if (length)
 	    {
+	      /* Delay it after object_address_get_data above.  */
+	      allocate_value_contents (val);
 	      addr += value_offset (val);
 	      read_value_memory (val, 0, value_stack (val),
 				 addr, value_contents_all_raw (val), length);
 	    }
 	}
+      /* Just to be sure it has been called.  */
+      allocate_value_contents (val);
     }
   else if (VALUE_LVAL (val) == lval_register)
     {


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