+2014-11-06  Doug Evans  <xdje42@gmail.com>
+
+       * block.h (ALL_BLOCK_SYMBOLS_WITH_NAME): New macro.
+       * block.c (block_lookup_symbol): Use it.
+       * cp-support.c (make_symbol_overload_list_block): Use it.
+       * symtab.c (iterate_over_symbols): Use it.
+
 2014-11-06  Doug Evans  <xdje42@gmail.com>
 
        * symtab.c (lookup_block_symbol): Moved to ...
 
 
   if (!BLOCK_FUNCTION (block))
     {
-      for (sym = block_iter_name_first (block, name, &iter);
-          sym != NULL;
-          sym = block_iter_name_next (name, &iter))
+      ALL_BLOCK_SYMBOLS_WITH_NAME (block, name, iter, sym)
        {
          if (symbol_matches_domain (SYMBOL_LANGUAGE (sym),
                                     SYMBOL_DOMAIN (sym), domain))
 
       struct symbol *sym_found = NULL;
 
-      for (sym = block_iter_name_first (block, name, &iter);
-          sym != NULL;
-          sym = block_iter_name_next (name, &iter))
+      ALL_BLOCK_SYMBOLS_WITH_NAME (block, name, iter, sym)
        {
          if (symbol_matches_domain (SYMBOL_LANGUAGE (sym),
                                     SYMBOL_DOMAIN (sym), domain))
 
        (sym);                                          \
        (sym) = block_iterator_next (&(iter)))
 
+/* Macro to loop through all symbols with name NAME in BLOCK,
+   in no particular order.  ITER helps keep track of the iteration, and
+   must be a struct block_iterator.  SYM points to the current symbol.  */
+
+#define ALL_BLOCK_SYMBOLS_WITH_NAME(block, name, iter, sym)            \
+  for ((sym) = block_iter_name_first ((block), (name), &(iter));       \
+       (sym) != NULL;                                                  \
+       (sym) = block_iter_name_next ((name), &(iter)))
+
 #endif /* BLOCK_H */
 
   struct block_iterator iter;
   struct symbol *sym;
 
-  for (sym = block_iter_name_first (block, name, &iter);
-       sym != NULL;
-       sym = block_iter_name_next (name, &iter))
+  ALL_BLOCK_SYMBOLS_WITH_NAME (block, name, iter, sym)
     overload_list_add_symbol (sym, name);
 }
 
 
   struct block_iterator iter;
   struct symbol *sym;
 
-  for (sym = block_iter_name_first (block, name, &iter);
-       sym != NULL;
-       sym = block_iter_name_next (name, &iter))
+  ALL_BLOCK_SYMBOLS_WITH_NAME (block, name, iter, sym)
     {
       if (symbol_matches_domain (SYMBOL_LANGUAGE (sym),
                                 SYMBOL_DOMAIN (sym), domain))