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 d851f71..dca4ef2 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,11 @@
 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.
        * ada-lang.c (ada_add_global_exceptions): Update.
        * buildsym.c (augment_type_symtab): Update.

diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c
index 0040bbd..408c8cc 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 5ccc7ec..5a6f831 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.  */