* gcc-interface/ada-tree.h: Fix formatting nits.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160491 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index accf5bb..553702c 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2010-06-09  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gcc-interface/ada-tree.h: Fix formatting nits.
+
 2010-06-08  Laurynas Biveinis  <laurynas.biveinis@gmail.com>
 
        * gcc-interface/utils.c (init_gnat_to_gnu): Use typed GC

diff --git a/gcc/ada/gcc-interface/ada-tree.h b/gcc/ada/gcc-interface/ada-tree.h
index 220ed57..5092ff3 100644 (file)
--- a/gcc/ada/gcc-interface/ada-tree.h
+++ b/gcc/ada/gcc-interface/ada-tree.h
@@ -33,9 +33,10 @@ union GTY((desc ("0"),
 };
 
 /* Ada uses the lang_decl and lang_type fields to hold a tree.
+
    FIXME: the variable_size annotation here is needed because these types are
-   variable-sized in some other frontends.  Due to gengtype deficiency the GTY
-   options of such types have to agree across all frontends. */
+   variable-sized in some other front-ends.  Due to gengtype deficiency, the
+   GTY options of such types have to agree across all front-ends.  */
 struct GTY((variable_size)) lang_type { tree t; };
 struct GTY((variable_size)) lang_decl { tree t; };
 
@@ -43,26 +44,26 @@ struct GTY((variable_size)) lang_decl { tree t; };
 #define GET_TYPE_LANG_SPECIFIC(NODE) \
   (TYPE_LANG_SPECIFIC (NODE) ? TYPE_LANG_SPECIFIC (NODE)->t : NULL_TREE)
 
-#define SET_TYPE_LANG_SPECIFIC(NODE, X)                       \
-do {                                                  \
-  tree tmp = (X);                                     \
-  if (!TYPE_LANG_SPECIFIC (NODE))                     \
-    TYPE_LANG_SPECIFIC (NODE) = ggc_alloc_lang_type    \
-      (sizeof (struct lang_type));                    \
-  TYPE_LANG_SPECIFIC (NODE)->t = tmp;                 \
+#define SET_TYPE_LANG_SPECIFIC(NODE, X)                         \
+do {                                                    \
+  tree tmp = (X);                                       \
+  if (!TYPE_LANG_SPECIFIC (NODE))                       \
+    TYPE_LANG_SPECIFIC (NODE)                           \
+      = ggc_alloc_lang_type (sizeof (struct lang_type)); \
+  TYPE_LANG_SPECIFIC (NODE)->t = tmp;                   \
 } while (0)
 
 /* Macros to get and set the tree in DECL_LANG_SPECIFIC.  */
 #define GET_DECL_LANG_SPECIFIC(NODE) \
   (DECL_LANG_SPECIFIC (NODE) ? DECL_LANG_SPECIFIC (NODE)->t : NULL_TREE)
 
-#define SET_DECL_LANG_SPECIFIC(NODE, X)                       \
-do {                                                  \
-  tree tmp = (X);                                     \
-  if (!DECL_LANG_SPECIFIC (NODE))                     \
-    DECL_LANG_SPECIFIC (NODE) = ggc_alloc_lang_decl    \
-      (sizeof (struct lang_decl));                    \
-  DECL_LANG_SPECIFIC (NODE)->t = tmp;                 \
+#define SET_DECL_LANG_SPECIFIC(NODE, X)                         \
+do {                                                    \
+  tree tmp = (X);                                       \
+  if (!DECL_LANG_SPECIFIC (NODE))                       \
+    DECL_LANG_SPECIFIC (NODE)                           \
+      = ggc_alloc_lang_decl (sizeof (struct lang_decl)); \
+  DECL_LANG_SPECIFIC (NODE)->t = tmp;                   \
 } while (0)