make common_block const

This changes general_symbol_info to make "common_block" const.

2014-06-18  Tom Tromey  <tromey@redhat.com>

	* f-valprint.c (info_common_command_for_block): Update.
	* symtab.h (struct general_symbol_info) <common_block>: Now
	const.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index d851f71fbfe7ec8f3b9292dae027a1bb37413e57..dca4ef2bb3e74310810c01d14ce06938cc030f80 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2014-06-18  Tom Tromey  <tromey@redhat.com>
+
+       * f-valprint.c (info_common_command_for_block): Update.
+       * symtab.h (struct general_symbol_info) <common_block>: Now
+       const.
+
 2014-06-18  Tom Tromey  <tromey@redhat.com>
 
        * symtab.h (struct symtab) <blockvector>: Now const.

diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c
index 0040bbd31f2946f57bd38b717048970b9a7af58f..408c8cc622017ba227bc2e0385e0bfd003402ebc 100644 (file)
--- a/gdb/f-valprint.c
+++ b/gdb/f-valprint.c
@@ -424,7 +424,7 @@ info_common_command_for_block (const struct block *block, const char *comname,
   ALL_BLOCK_SYMBOLS (block, iter, sym)
     if (SYMBOL_DOMAIN (sym) == COMMON_BLOCK_DOMAIN)
       {
-       struct common_block *common = SYMBOL_VALUE_COMMON_BLOCK (sym);
+       const struct common_block *common = SYMBOL_VALUE_COMMON_BLOCK (sym);
        size_t index;
 
        gdb_assert (SYMBOL_CLASS (sym) == LOC_COMMON_BLOCK);

diff --git a/gdb/symtab.h b/gdb/symtab.h
index 5ccc7ecb84774c279171e391dcb66b6fb470712a..5a6f83106da4ee2b343716c5511a22049dcfe255 100644 (file)
--- a/gdb/symtab.h
+++ b/gdb/symtab.h
@@ -122,7 +122,7 @@ struct general_symbol_info
 
     /* A common block.  Used with LOC_COMMON_BLOCK.  */
 
-    struct common_block *common_block;
+    const struct common_block *common_block;
 
     /* For opaque typedef struct chain.  */