* gcc-interface/gigi.h (standard_datatypes): Add ADT_parent_name_id.

[pf3gnuchains/gcc-fork.git] / gcc / ada / gcc-interface / gigi.h

diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h
index 6b7790b..d9459e5 100644 (file)
--- a/gcc/ada/gcc-interface/gigi.h
+++ b/gcc/ada/gcc-interface/gigi.h
@@ -168,18 +168,12 @@ extern tree create_concat_name (Entity_Id gnat_entity, const char *suffix);
    the name followed by "___" and the specified suffix.  */
 extern tree concat_name (tree gnu_name, const char *suffix);
 
-/* Highest number in the front-end node table.  */
-extern int max_gnat_nodes;
-
-/* Current node being treated, in case abort called.  */
-extern Node_Id error_gnat_node;
-
-/* True when gigi is being called on an analyzed but unexpanded
-   tree, and the only purpose of the call is to properly annotate
-   types with representation information.  */
+/* If true, then gigi is being called on an analyzed but unexpanded tree, and
+   the only purpose of the call is to properly annotate types with
+   representation information.  */
 extern bool type_annotate_only;
 
-/* Current file name without path.  */
+/* Current file name without path */
 extern const char *ref_filename;
 
 /* This structure must be kept synchronized with Call_Back_End.  */
@@ -190,9 +184,11 @@ struct File_Info_Type
 };
 
 /* This is the main program of the back-end.  It sets up all the table
-   structures and then generates code.  */
-extern void gigi (Node_Id gnat_root, int max_gnat_node,
-                  int number_name ATTRIBUTE_UNUSED,
+   structures and then generates code.
+
+   ??? Needs parameter descriptions  */
+
+extern void gigi (Node_Id gnat_root, int max_gnat_node, int number_name,
                   struct Node *nodes_ptr, Node_Id *next_node_ptr,
                   Node_Id *prev_node_ptr, struct Elist_Header *elists_ptr,
                   struct Elmt_Item *elmts_ptr,
@@ -261,6 +257,13 @@ extern void post_error_ne_tree_2 (const char *msg, Node_Id node, Entity_Id ent,
    if none.  */
 extern tree get_exception_label (char kind);
 
+/* Current node being treated, in case gigi_abort or Check_Elaboration_Code
+   called.  */
+extern Node_Id error_gnat_node;
+
+/* Highest number in the front-end node table.  */
+extern int max_gnat_nodes;
+
 /* If nonzero, pretend we are allocating at global level.  */
 extern int force_global;