@@ -4758,6 +4758,7 @@ extern void print_other_binding_stack (struct cp_binding_level *);
extern tree maybe_push_decl (tree);
extern tree current_decl_namespace (void);
extern cxx_binding *cxx_binding_make (tree, tree);
+extern void print_namespace (tree);
/* decl.c */
extern tree poplevel (int, int, int);
@@ -1751,6 +1751,21 @@ print_binding_level (struct cp_binding_level* lvl)
}
}
+
+/* Print the given namespace decl NS to stderr. */
+
+void
+print_namespace (tree ns)
+{
+ struct cp_binding_level *level = NAMESPACE_LEVEL (ns);
+
+ fprintf (stderr, "Namespace name: ");
+ print_generic_expr (stderr, ns, 0);
+ fprintf (stderr, "\nBinding contour\n");
+ print_binding_level (level);
+}
+
+
void
print_other_binding_stack (struct cp_binding_level *stack)
{
@@ -352,6 +352,7 @@ cp_debug_print_context (FILE *file, cp_parser_context *c)
/* Print the stack of parsing contexts to FILE starting with FIRST. */
+
static void
cp_debug_print_context_stack (FILE *file, cp_parser_context *first)
{
@@ -359,7 +360,7 @@ cp_debug_print_context_stack (FILE *file, cp_parser_context *first)
cp_parser_context *c;
fprintf (file, "Parsing context stack:\n");
- for (i = 0, c = first; c; c = c->next)
+ for (i = 0, c = first; c; c = c->next, i++)
{
fprintf (file, "\t#%u: ", i);
cp_debug_print_context (file, c);