Commit e15fd46a by Per Bothner

Improve some comments.

From-SVN: r78486
parent fb643f64
...@@ -1615,12 +1615,12 @@ extern tree *type_map; ...@@ -1615,12 +1615,12 @@ extern tree *type_map;
inner class access function. */ inner class access function. */
#define OUTER_FIELD_ACCESS_IDENTIFIER_P(NODE) TREE_LANG_FLAG_6(NODE) #define OUTER_FIELD_ACCESS_IDENTIFIER_P(NODE) TREE_LANG_FLAG_6(NODE)
/* Non null if NODE belongs to an inner class TYPE_DECL node. /* True if NODE belongs to an inner class TYPE_DECL node.
Verifies that NODE as the attributes of a decl. */ Verifies that NODE as the attributes of a decl. */
#define INNER_CLASS_DECL_P(NODE) (TYPE_NAME (TREE_TYPE (NODE)) == NODE \ #define INNER_CLASS_DECL_P(NODE) (TYPE_NAME (TREE_TYPE (NODE)) == NODE \
&& DECL_CONTEXT (NODE)) && DECL_CONTEXT (NODE))
/* Non null if NODE is an top level class TYPE_DECL node: NODE isn't /* True if NODE is an top level class TYPE_DECL node: NODE isn't
an inner class or NODE is a static class. */ an inner class or NODE is a static class. */
#define TOPLEVEL_CLASS_DECL_P(NODE) (!INNER_CLASS_DECL_P (NODE) \ #define TOPLEVEL_CLASS_DECL_P(NODE) (!INNER_CLASS_DECL_P (NODE) \
|| CLASS_STATIC (NODE)) || CLASS_STATIC (NODE))
...@@ -1630,7 +1630,7 @@ extern tree *type_map; ...@@ -1630,7 +1630,7 @@ extern tree *type_map;
#define PURE_INNER_CLASS_DECL_P(NODE) \ #define PURE_INNER_CLASS_DECL_P(NODE) \
(INNER_CLASS_DECL_P (NODE) && !CLASS_STATIC (NODE)) (INNER_CLASS_DECL_P (NODE) && !CLASS_STATIC (NODE))
/* Non null if NODE belongs to an inner class RECORD_TYPE node. Checks /* True if NODE belongs to an inner class RECORD_TYPE node. Checks
that TYPE_NAME bears a decl. An array type wouldn't. */ that TYPE_NAME bears a decl. An array type wouldn't. */
#define INNER_CLASS_TYPE_P(NODE) (TREE_CODE (TYPE_NAME (NODE)) == TYPE_DECL \ #define INNER_CLASS_TYPE_P(NODE) (TREE_CODE (TYPE_NAME (NODE)) == TYPE_DECL \
&& DECL_CONTEXT (TYPE_NAME (NODE))) && DECL_CONTEXT (TYPE_NAME (NODE)))
...@@ -1643,7 +1643,7 @@ extern tree *type_map; ...@@ -1643,7 +1643,7 @@ extern tree *type_map;
#define PURE_INNER_CLASS_TYPE_P(NODE) \ #define PURE_INNER_CLASS_TYPE_P(NODE) \
(INNER_CLASS_TYPE_P (NODE) && !CLASS_STATIC (TYPE_NAME (NODE))) (INNER_CLASS_TYPE_P (NODE) && !CLASS_STATIC (TYPE_NAME (NODE)))
/* Non null if NODE (a TYPE_DECL or a RECORD_TYPE) is an inner class. */ /* True if NODE (a TYPE_DECL or a RECORD_TYPE) is an inner class. */
#define INNER_CLASS_P(NODE) (TREE_CODE (NODE) == TYPE_DECL ? \ #define INNER_CLASS_P(NODE) (TREE_CODE (NODE) == TYPE_DECL ? \
INNER_CLASS_DECL_P (NODE) : \ INNER_CLASS_DECL_P (NODE) : \
(TREE_CODE (NODE) == RECORD_TYPE ? \ (TREE_CODE (NODE) == RECORD_TYPE ? \
......
...@@ -807,7 +807,7 @@ struct parser_ctxt GTY(()) { ...@@ -807,7 +807,7 @@ struct parser_ctxt GTY(()) {
an inner class is pushed. After, use FIXME. */ an inner class is pushed. After, use FIXME. */
#define CPC_INNER_P() GET_CPC_LIST () #define CPC_INNER_P() GET_CPC_LIST ()
/* Get the currently parsed class DECL_TYPE node. */ /* The TYPE_DECL node of the class currently being parsed. */
#define GET_CPC() TREE_VALUE (GET_CPC_LIST ()) #define GET_CPC() TREE_VALUE (GET_CPC_LIST ())
/* Get the currently parsed class unqualified IDENTIFIER_NODE. */ /* Get the currently parsed class unqualified IDENTIFIER_NODE. */
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment