+
+ res = print_ada_declaration (buffer, t, node, spc);
+ }
+
+ spc -= INDENT_INCR;
+ newline_and_indent (buffer, spc);
+ pp_string (buffer, "end;");
+
+ /* In order to save the clients from adding a second use clause for the
+ nested package, we generate renamings for the static member functions
+ in the package created for the class. */
+ for (t = TYPE_METHODS (node); t; t = TREE_CHAIN (t))
+ {
+ bool is_function;
+
+ if (TREE_CODE (TREE_TYPE (t)) == METHOD_TYPE)
+ continue;
+
+ pp_newline (buffer);
+ newline_and_indent (buffer, spc);
+
+ if (VOID_TYPE_P (TREE_TYPE (TREE_TYPE (t))))
+ {
+ pp_string (buffer, "procedure ");
+ is_function = false;
+ }
+ else
+ {
+ pp_string (buffer, "function ");
+ is_function = true;
+ }
+
+ dump_ada_decl_name (buffer, t, false);
+ dump_ada_function_declaration (buffer, t, false, false, false, spc);
+
+ if (is_function)
+ {
+ pp_string (buffer, " return ");
+ dump_generic_ada_node (buffer, TREE_TYPE (TREE_TYPE (t)), node,
+ spc, false, true);
+ }
+
+ pp_string (buffer, " renames Static.");
+ dump_ada_decl_name (buffer, t, false);
+ pp_semicolon (buffer);