Commit 0a6969ad by John F. Carr Committed by Jeff Law

tree.c, tree.h: Change tree_code_type, tree_code_length, and tree_code_name from…

tree.c, tree.h: Change tree_code_type, tree_code_length, and tree_code_name from pointers to arrays.

        * tree.c, tree.h: Change tree_code_type, tree_code_length, and
        tree_code_name from pointers to arrays.
        * tree.c: Remove standard_tree_code_* variables, no longer used.
        * print-tree.c: Remove declaration of tree_code_name.

        * cp/lex.c (init_lex): Update for tree_code_* changes.
        * objc/objc-act.c (init_objc): Likewise.

        * tree.def, cp/cp-tree.def, objc/objc-tree.def: Update for tree_code
        changes.

From-SVN: r17061
parent c55dcc7d
Thu Dec 11 23:50:17 1997 John F. Carr <jfc@mit.edu>
* tree.c, tree.h: Change tree_code_type, tree_code_length, and
tree_code_name from pointers to arrays.
* tree.c: Remove standard_tree_code_* variables, no longer used.
* print-tree.c: Remove declaration of tree_code_name.
* cp/lex.c (init_lex): Update for tree_code_* changes.
* objc/objc-act.c (init_objc): Likewise.
* tree.def, cp/cp-tree.def, objc/objc-tree.def: Update for tree_code
changes.
Thu Dec 11 23:34:54 1997 Fred Fish <fnf@ninemoons.com> Thu Dec 11 23:34:54 1997 Fred Fish <fnf@ninemoons.com>
* config.sub: Add support for BeOS target. * config.sub: Add support for BeOS target.
......
...@@ -27,43 +27,43 @@ Boston, MA 02111-1307, USA. */ ...@@ -27,43 +27,43 @@ Boston, MA 02111-1307, USA. */
Operand 0 is the object within which the offset is taken. Operand 0 is the object within which the offset is taken.
Operand 1 is the offset. The language independent OFFSET_REF Operand 1 is the offset. The language independent OFFSET_REF
just won't work for us. */ just won't work for us. */
DEFTREECODE (OFFSET_REF, "offset_ref", "r", 2) DEFTREECODE (OFFSET_REF, "offset_ref", 'r', 2)
/* For DELETE_EXPR, operand 0 is the store to be destroyed. /* For DELETE_EXPR, operand 0 is the store to be destroyed.
Operand 1 is the value to pass to the destroying function Operand 1 is the value to pass to the destroying function
saying whether the store should be deallocated as well. */ saying whether the store should be deallocated as well. */
DEFTREECODE (DELETE_EXPR, "dl_expr", "e", 2) DEFTREECODE (DELETE_EXPR, "dl_expr", 'e', 2)
DEFTREECODE (VEC_DELETE_EXPR, "vec_dl_expr", "e", 2) DEFTREECODE (VEC_DELETE_EXPR, "vec_dl_expr", 'e', 2)
/* Value is reference to particular overloaded class method. /* Value is reference to particular overloaded class method.
Operand 0 is the class name (an IDENTIFIER_NODE); Operand 0 is the class name (an IDENTIFIER_NODE);
operand 1 is the field (also an IDENTIFIER_NODE). operand 1 is the field (also an IDENTIFIER_NODE).
The COMPLEXITY field holds the class level (usually 0). */ The COMPLEXITY field holds the class level (usually 0). */
DEFTREECODE (SCOPE_REF, "scope_ref", "r", 2) DEFTREECODE (SCOPE_REF, "scope_ref", 'r', 2)
/* When composing an object with a member, this is the result. /* When composing an object with a member, this is the result.
Operand 0 is the object. Operand 1 is the member (usually Operand 0 is the object. Operand 1 is the member (usually
a dereferenced pointer to member). */ a dereferenced pointer to member). */
DEFTREECODE (MEMBER_REF, "member_ref", "r", 2) DEFTREECODE (MEMBER_REF, "member_ref", 'r', 2)
/* Type conversion operator in C++. TREE_TYPE is type that this /* Type conversion operator in C++. TREE_TYPE is type that this
operator converts to. Operand is expression to be converted. */ operator converts to. Operand is expression to be converted. */
DEFTREECODE (TYPE_EXPR, "type_expr", "e", 1) DEFTREECODE (TYPE_EXPR, "type_expr", 'e', 1)
/* For NEW_EXPR, operand 0 is function which performs initialization, /* For NEW_EXPR, operand 0 is function which performs initialization,
operand 1 is argument list to initialization function, operand 1 is argument list to initialization function,
and operand 2 is the slot which was allocated for this expression. */ and operand 2 is the slot which was allocated for this expression. */
DEFTREECODE (NEW_EXPR, "nw_expr", "e", 3) DEFTREECODE (NEW_EXPR, "nw_expr", 'e', 3)
DEFTREECODE (VEC_NEW_EXPR, "vec_nw_expr", "e", 3) DEFTREECODE (VEC_NEW_EXPR, "vec_nw_expr", 'e', 3)
/* A throw expression. operand 0 is the expression, if there was one, /* A throw expression. operand 0 is the expression, if there was one,
else it is NULL_TREE. */ else it is NULL_TREE. */
DEFTREECODE (THROW_EXPR, "throw_expr", "e", 1) DEFTREECODE (THROW_EXPR, "throw_expr", 'e', 1)
/* Initialization of a vector, used in build_new. Operand 0 is the target /* Initialization of a vector, used in build_new. Operand 0 is the target
of the initialization, operand 1 is the initializer, and operand 2 is of the initialization, operand 1 is the initializer, and operand 2 is
the number of elements. */ the number of elements. */
DEFTREECODE (VEC_INIT_EXPR, "vec_init_expr", "e", 3) DEFTREECODE (VEC_INIT_EXPR, "vec_init_expr", 'e', 3)
/* Template definition. The following fields have the specified uses, /* Template definition. The following fields have the specified uses,
although there are other macros in cp-tree.h that should be used for although there are other macros in cp-tree.h that should be used for
...@@ -80,18 +80,18 @@ DEFTREECODE (VEC_INIT_EXPR, "vec_init_expr", "e", 3) ...@@ -80,18 +80,18 @@ DEFTREECODE (VEC_INIT_EXPR, "vec_init_expr", "e", 3)
DECL_RESULT decl for object to be created DECL_RESULT decl for object to be created
(e.g., FUNCTION_DECL with tmpl parms used) (e.g., FUNCTION_DECL with tmpl parms used)
*/ */
DEFTREECODE (TEMPLATE_DECL, "template_decl", "d", 0) DEFTREECODE (TEMPLATE_DECL, "template_decl", 'd', 0)
/* Index into a template parameter list. This parameter must be a type. /* Index into a template parameter list. This parameter must be a type.
Use TYPE_FIELDS to find parmlist and index. */ Use TYPE_FIELDS to find parmlist and index. */
DEFTREECODE (TEMPLATE_TYPE_PARM, "template_type_parm", "t", 0) DEFTREECODE (TEMPLATE_TYPE_PARM, "template_type_parm", 't', 0)
/* A type designated by 'typename T::t'. */ /* A type designated by 'typename T::t'. */
DEFTREECODE (TYPENAME_TYPE, "typename_type", "t", 0) DEFTREECODE (TYPENAME_TYPE, "typename_type", 't', 0)
/* Index into a template parameter list. This parameter must not be a /* Index into a template parameter list. This parameter must not be a
type. */ type. */
DEFTREECODE (TEMPLATE_CONST_PARM, "template_const_parm", "c", 3) DEFTREECODE (TEMPLATE_CONST_PARM, "template_const_parm", 'c', 3)
/* A thunk is a stub function. /* A thunk is a stub function.
...@@ -101,17 +101,17 @@ DEFTREECODE (TEMPLATE_CONST_PARM, "template_const_parm", "c", 3) ...@@ -101,17 +101,17 @@ DEFTREECODE (TEMPLATE_CONST_PARM, "template_const_parm", "c", 3)
(which is an ADDR_EXPR whose operand is a FUNCTION_DECL). (which is an ADDR_EXPR whose operand is a FUNCTION_DECL).
Other kinds of thunks may be defined later. */ Other kinds of thunks may be defined later. */
DEFTREECODE (THUNK_DECL, "thunk_decl", "d", 0) DEFTREECODE (THUNK_DECL, "thunk_decl", 'd', 0)
/* A namespace declaration. */ /* A namespace declaration. */
DEFTREECODE (NAMESPACE_DECL, "namespace_decl", "d", 0) DEFTREECODE (NAMESPACE_DECL, "namespace_decl", 'd', 0)
/* A using declaration. DECL_INITIAL contains the specified scope. /* A using declaration. DECL_INITIAL contains the specified scope.
This is not an alias, but is later expanded into multiple aliases. */ This is not an alias, but is later expanded into multiple aliases. */
DEFTREECODE (USING_DECL, "using_decl", "d", 0) DEFTREECODE (USING_DECL, "using_decl", 'd', 0)
/* An un-parsed default argument. Looks like an IDENTIFIER_NODE. */ /* An un-parsed default argument. Looks like an IDENTIFIER_NODE. */
DEFTREECODE (DEFAULT_ARG, "default_arg", "c", 2) DEFTREECODE (DEFAULT_ARG, "default_arg", 'c', 2)
/* A template-id, like foo<int>. The first operand is the template. /* A template-id, like foo<int>. The first operand is the template.
The second is the list of explicitly specified arguments. The The second is the list of explicitly specified arguments. The
...@@ -119,51 +119,51 @@ DEFTREECODE (DEFAULT_ARG, "default_arg", "c", 2) ...@@ -119,51 +119,51 @@ DEFTREECODE (DEFAULT_ARG, "default_arg", "c", 2)
overloaded functions and templates if the template-id refers to overloaded functions and templates if the template-id refers to
a global template. If the template-id refers to a member template, a global template. If the template-id refers to a member template,
the template will will be an IDENTIFIER_NODE. */ the template will will be an IDENTIFIER_NODE. */
DEFTREECODE (TEMPLATE_ID_EXPR, "template_id_expr", "e", 2) DEFTREECODE (TEMPLATE_ID_EXPR, "template_id_expr", 'e', 2)
/* A whole bunch of tree codes for the initial, superficial parsing of /* A whole bunch of tree codes for the initial, superficial parsing of
templates. */ templates. */
DEFTREECODE (LOOKUP_EXPR, "lookup_expr", "e", 2) DEFTREECODE (LOOKUP_EXPR, "lookup_expr", 'e', 2)
DEFTREECODE (MODOP_EXPR, "modop_expr", "e", 3) DEFTREECODE (MODOP_EXPR, "modop_expr", 'e', 3)
DEFTREECODE (CAST_EXPR, "cast_expr", "1", 1) DEFTREECODE (CAST_EXPR, "cast_expr", '1', 1)
DEFTREECODE (REINTERPRET_CAST_EXPR, "reinterpret_cast_expr", "1", 1) DEFTREECODE (REINTERPRET_CAST_EXPR, "reinterpret_cast_expr", '1', 1)
DEFTREECODE (CONST_CAST_EXPR, "const_cast_expr", "1", 1) DEFTREECODE (CONST_CAST_EXPR, "const_cast_expr", '1', 1)
DEFTREECODE (STATIC_CAST_EXPR, "static_cast_expr", "1", 1) DEFTREECODE (STATIC_CAST_EXPR, "static_cast_expr", '1', 1)
DEFTREECODE (DYNAMIC_CAST_EXPR, "dynamic_cast_expr", "1", 1) DEFTREECODE (DYNAMIC_CAST_EXPR, "dynamic_cast_expr", '1', 1)
DEFTREECODE (SIZEOF_EXPR, "sizeof_expr", "1", 1) DEFTREECODE (SIZEOF_EXPR, "sizeof_expr", '1', 1)
DEFTREECODE (ARROW_EXPR, "arrow_expr", "e", 1) DEFTREECODE (ARROW_EXPR, "arrow_expr", 'e', 1)
DEFTREECODE (DOTSTAR_EXPR, "dotstar_expr", "e", 2) DEFTREECODE (DOTSTAR_EXPR, "dotstar_expr", 'e', 2)
DEFTREECODE (TYPEID_EXPR, "typeid_expr", "e", 1) DEFTREECODE (TYPEID_EXPR, "typeid_expr", 'e', 1)
DEFTREECODE (EXPR_STMT, "expr_stmt", "e", 1) DEFTREECODE (EXPR_STMT, "expr_stmt", 'e', 1)
DEFTREECODE (COMPOUND_STMT, "compound_stmt", "e", 1) DEFTREECODE (COMPOUND_STMT, "compound_stmt", 'e', 1)
DEFTREECODE (DECL_STMT, "decl_stmt", "e", 3) DEFTREECODE (DECL_STMT, "decl_stmt", 'e', 3)
DEFTREECODE (IF_STMT, "if_stmt", "e", 3) DEFTREECODE (IF_STMT, "if_stmt", 'e', 3)
DEFTREECODE (FOR_STMT, "for_stmt", "e", 4) DEFTREECODE (FOR_STMT, "for_stmt", 'e', 4)
DEFTREECODE (WHILE_STMT, "while_stmt", "e", 2) DEFTREECODE (WHILE_STMT, "while_stmt", 'e', 2)
DEFTREECODE (DO_STMT, "do_stmt", "e", 2) DEFTREECODE (DO_STMT, "do_stmt", 'e', 2)
DEFTREECODE (RETURN_STMT, "return_stmt", "e", 1) DEFTREECODE (RETURN_STMT, "return_stmt", 'e', 1)
DEFTREECODE (BREAK_STMT, "break_stmt", "e", 0) DEFTREECODE (BREAK_STMT, "break_stmt", 'e', 0)
DEFTREECODE (CONTINUE_STMT, "continue_stmt", "e", 0) DEFTREECODE (CONTINUE_STMT, "continue_stmt", 'e', 0)
DEFTREECODE (SWITCH_STMT, "switch_stmt", "e", 2) DEFTREECODE (SWITCH_STMT, "switch_stmt", 'e', 2)
DEFTREECODE (GOTO_STMT, "goto_stmt", "e", 1) DEFTREECODE (GOTO_STMT, "goto_stmt", 'e', 1)
DEFTREECODE (CTOR_INITIALIZER, "ctor_initializer", "e", 2) DEFTREECODE (CTOR_INITIALIZER, "ctor_initializer", 'e', 2)
DEFTREECODE (CASE_LABEL, "case_label", "e", 2) DEFTREECODE (CASE_LABEL, "case_label", 'e', 2)
DEFTREECODE (RETURN_INIT, "return_init", "e", 2) DEFTREECODE (RETURN_INIT, "return_init", 'e', 2)
DEFTREECODE (TRY_BLOCK, "try_stmt", "e", 2) DEFTREECODE (TRY_BLOCK, "try_stmt", 'e', 2)
DEFTREECODE (HANDLER, "catch_stmt", "e", 2) DEFTREECODE (HANDLER, "catch_stmt", 'e', 2)
DEFTREECODE (IDENTITY_CONV, "identity_conv", "e", 1) DEFTREECODE (IDENTITY_CONV, "identity_conv", 'e', 1)
DEFTREECODE (LVALUE_CONV, "lvalue_conv", "e", 1) DEFTREECODE (LVALUE_CONV, "lvalue_conv", 'e', 1)
DEFTREECODE (QUAL_CONV, "qual_conv", "e", 1) DEFTREECODE (QUAL_CONV, "qual_conv", 'e', 1)
DEFTREECODE (STD_CONV, "std_conv", "e", 1) DEFTREECODE (STD_CONV, "std_conv", 'e', 1)
DEFTREECODE (PTR_CONV, "ptr_conv", "e", 1) DEFTREECODE (PTR_CONV, "ptr_conv", 'e', 1)
DEFTREECODE (PMEM_CONV, "pmem_conv", "e", 1) DEFTREECODE (PMEM_CONV, "pmem_conv", 'e', 1)
DEFTREECODE (BASE_CONV, "base_conv", "e", 1) DEFTREECODE (BASE_CONV, "base_conv", 'e', 1)
DEFTREECODE (REF_BIND, "ref_bind", "e", 1) DEFTREECODE (REF_BIND, "ref_bind", 'e', 1)
DEFTREECODE (USER_CONV, "user_conv", "e", 4) DEFTREECODE (USER_CONV, "user_conv", 'e', 4)
DEFTREECODE (AMBIG_CONV, "ambig_conv", "e", 1) DEFTREECODE (AMBIG_CONV, "ambig_conv", 'e', 1)
DEFTREECODE (RVALUE_CONV, "rvalue_conv", "e", 1) DEFTREECODE (RVALUE_CONV, "rvalue_conv", 'e', 1)
DEFTREECODE (TAG_DEFN, "tag_defn", "e", 0) DEFTREECODE (TAG_DEFN, "tag_defn", 'e', 0)
...@@ -361,8 +361,8 @@ my_get_run_time () ...@@ -361,8 +361,8 @@ my_get_run_time ()
#define DEFTREECODE(SYM, NAME, TYPE, LENGTH) TYPE, #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) TYPE,
char *cplus_tree_code_type[] = { char cplus_tree_code_type[] = {
"x", 'x',
#include "cp-tree.def" #include "cp-tree.def"
}; };
#undef DEFTREECODE #undef DEFTREECODE
...@@ -461,18 +461,9 @@ init_lex () ...@@ -461,18 +461,9 @@ init_lex ()
init_cplus_expand (); init_cplus_expand ();
tree_code_type bcopy (cplus_tree_code_type,
= (char **) realloc (tree_code_type, tree_code_type + (int) LAST_AND_UNUSED_TREE_CODE,
sizeof (char *) * LAST_CPLUS_TREE_CODE); (int)LAST_CPLUS_TREE_CODE - (int)LAST_AND_UNUSED_TREE_CODE);
tree_code_length
= (int *) realloc (tree_code_length,
sizeof (int) * LAST_CPLUS_TREE_CODE);
tree_code_name
= (char **) realloc (tree_code_name,
sizeof (char *) * LAST_CPLUS_TREE_CODE);
bcopy ((char *)cplus_tree_code_type,
(char *)(tree_code_type + (int) LAST_AND_UNUSED_TREE_CODE),
(LAST_CPLUS_TREE_CODE - (int)LAST_AND_UNUSED_TREE_CODE) * sizeof (char *));
bcopy ((char *)cplus_tree_code_length, bcopy ((char *)cplus_tree_code_length,
(char *)(tree_code_length + (int) LAST_AND_UNUSED_TREE_CODE), (char *)(tree_code_length + (int) LAST_AND_UNUSED_TREE_CODE),
(LAST_CPLUS_TREE_CODE - (int)LAST_AND_UNUSED_TREE_CODE) * sizeof (int)); (LAST_CPLUS_TREE_CODE - (int)LAST_AND_UNUSED_TREE_CODE) * sizeof (int));
......
...@@ -86,8 +86,8 @@ Boston, MA 02111-1307, USA. */ ...@@ -86,8 +86,8 @@ Boston, MA 02111-1307, USA. */
#define DEFTREECODE(SYM, NAME, TYPE, LENGTH) TYPE, #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) TYPE,
char *objc_tree_code_type[] = { char objc_tree_code_type[] = {
"x", 'x',
#include "objc-tree.def" #include "objc-tree.def"
}; };
#undef DEFTREECODE #undef DEFTREECODE
...@@ -8022,19 +8022,9 @@ init_objc () ...@@ -8022,19 +8022,9 @@ init_objc ()
gcc_obstack_init (&util_obstack); gcc_obstack_init (&util_obstack);
util_firstobj = (char *) obstack_finish (&util_obstack); util_firstobj = (char *) obstack_finish (&util_obstack);
tree_code_type bcopy (objc_tree_code_type,
= (char **) xrealloc (tree_code_type, tree_code_type + (int) LAST_CODE,
sizeof (char *) * LAST_OBJC_TREE_CODE); (int) LAST_OBJC_TREE_CODE - (int) LAST_CODE);
tree_code_length
= (int *) xrealloc (tree_code_length,
sizeof (int) * LAST_OBJC_TREE_CODE);
tree_code_name
= (char **) xrealloc (tree_code_name,
sizeof (char *) * LAST_OBJC_TREE_CODE);
bcopy ((char *) objc_tree_code_type,
(char *) (tree_code_type + (int) LAST_CODE),
(((int) LAST_OBJC_TREE_CODE - (int) LAST_CODE)
* sizeof (char *)));
bcopy ((char *) objc_tree_code_length, bcopy ((char *) objc_tree_code_length,
(char *) (tree_code_length + (int) LAST_CODE), (char *) (tree_code_length + (int) LAST_CODE),
(((int) LAST_OBJC_TREE_CODE - (int) LAST_CODE) (((int) LAST_OBJC_TREE_CODE - (int) LAST_CODE)
......
...@@ -22,16 +22,16 @@ Boston, MA 02111-1307, USA. */ ...@@ -22,16 +22,16 @@ Boston, MA 02111-1307, USA. */
/* Objective-C types. */ /* Objective-C types. */
DEFTREECODE (CLASS_INTERFACE_TYPE, "class_interface_type", "t", 0) DEFTREECODE (CLASS_INTERFACE_TYPE, "class_interface_type", 't', 0)
DEFTREECODE (CLASS_IMPLEMENTATION_TYPE, "class_implementation_type", "t", 0) DEFTREECODE (CLASS_IMPLEMENTATION_TYPE, "class_implementation_type", 't', 0)
DEFTREECODE (CATEGORY_INTERFACE_TYPE, "category_interface_type", "t", 0) DEFTREECODE (CATEGORY_INTERFACE_TYPE, "category_interface_type", 't', 0)
DEFTREECODE (CATEGORY_IMPLEMENTATION_TYPE,"category_implementation_type","t",0) DEFTREECODE (CATEGORY_IMPLEMENTATION_TYPE,"category_implementation_type",'t',0)
DEFTREECODE (PROTOCOL_INTERFACE_TYPE, "protocol_interface_type", "t", 0) DEFTREECODE (PROTOCOL_INTERFACE_TYPE, "protocol_interface_type", 't', 0)
/* Objective-C decls. */ /* Objective-C decls. */
DEFTREECODE (KEYWORD_DECL, "keyword_decl", "d", 0) DEFTREECODE (KEYWORD_DECL, "keyword_decl", 'd', 0)
DEFTREECODE (INSTANCE_METHOD_DECL, "instance_method_decl", "d", 0) DEFTREECODE (INSTANCE_METHOD_DECL, "instance_method_decl", 'd', 0)
DEFTREECODE (CLASS_METHOD_DECL, "class_method_decl", "d", 0) DEFTREECODE (CLASS_METHOD_DECL, "class_method_decl", 'd', 0)
/* Objective-C constants. */ /* Objective-C constants. */
DEFTREECODE (OBJC_STRING_CST, "objc_string_cst", "c", 3) DEFTREECODE (OBJC_STRING_CST, "objc_string_cst", 'c', 3)
/* Prints out tree in human readable form - GNU C-compiler /* Prints out tree in human readable form - GNU C-compiler
Copyright (C) 1990, 91, 93, 94, 95, 1996 Free Software Foundation, Inc. Copyright (C) 1990, 91, 93, 94, 95, 96, 1997 Free Software Foundation, Inc.
This file is part of GNU CC. This file is part of GNU CC.
...@@ -23,8 +23,6 @@ Boston, MA 02111-1307, USA. */ ...@@ -23,8 +23,6 @@ Boston, MA 02111-1307, USA. */
#include "tree.h" #include "tree.h"
#include <stdio.h> #include <stdio.h>
extern char **tree_code_name;
extern char *mode_name[]; extern char *mode_name[];
void print_node (); void print_node ();
...@@ -541,9 +539,8 @@ print_node (file, prefix, node, indent) ...@@ -541,9 +539,8 @@ print_node (file, prefix, node, indent)
case '2': case '2':
case 'r': case 'r':
case 's': case 's':
switch (TREE_CODE (node)) if (TREE_CODE (node) == BIND_EXPR)
{ {
case BIND_EXPR:
print_node (file, "vars", TREE_OPERAND (node, 0), indent + 4); print_node (file, "vars", TREE_OPERAND (node, 0), indent + 4);
print_node (file, "body", TREE_OPERAND (node, 1), indent + 4); print_node (file, "body", TREE_OPERAND (node, 1), indent + 4);
print_node (file, "block", TREE_OPERAND (node, 2), indent + 4); print_node (file, "block", TREE_OPERAND (node, 2), indent + 4);
...@@ -570,6 +567,8 @@ print_node (file, prefix, node, indent) ...@@ -570,6 +567,8 @@ print_node (file, prefix, node, indent)
break; break;
case RTL_EXPR: case RTL_EXPR:
first_rtl = 0; first_rtl = 0;
default:
break;
} }
for (i = 0; i < len; i++) for (i = 0; i < len; i++)
{ {
...@@ -689,6 +688,10 @@ print_node (file, prefix, node, indent) ...@@ -689,6 +688,10 @@ print_node (file, prefix, node, indent)
case OP_IDENTIFIER: case OP_IDENTIFIER:
print_node (file, "op1", TREE_PURPOSE (node), indent + 4); print_node (file, "op1", TREE_PURPOSE (node), indent + 4);
print_node (file, "op2", TREE_VALUE (node), indent + 4); print_node (file, "op2", TREE_VALUE (node), indent + 4);
break;
default:
break;
} }
break; break;
......
...@@ -189,7 +189,7 @@ struct momentary_level *momentary_stack; ...@@ -189,7 +189,7 @@ struct momentary_level *momentary_stack;
#define DEFTREECODE(SYM, NAME, TYPE, LENGTH) TYPE, #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) TYPE,
char *standard_tree_code_type[] = { char tree_code_type[MAX_TREE_CODES] = {
#include "tree.def" #include "tree.def"
}; };
#undef DEFTREECODE #undef DEFTREECODE
...@@ -200,7 +200,7 @@ char *standard_tree_code_type[] = { ...@@ -200,7 +200,7 @@ char *standard_tree_code_type[] = {
#define DEFTREECODE(SYM, NAME, TYPE, LENGTH) LENGTH, #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) LENGTH,
int standard_tree_code_length[] = { int tree_code_length[MAX_TREE_CODES] = {
#include "tree.def" #include "tree.def"
}; };
#undef DEFTREECODE #undef DEFTREECODE
...@@ -209,27 +209,11 @@ int standard_tree_code_length[] = { ...@@ -209,27 +209,11 @@ int standard_tree_code_length[] = {
Used for printing out the tree and error messages. */ Used for printing out the tree and error messages. */
#define DEFTREECODE(SYM, NAME, TYPE, LEN) NAME, #define DEFTREECODE(SYM, NAME, TYPE, LEN) NAME,
char *standard_tree_code_name[] = { char *tree_code_name[MAX_TREE_CODES] = {
#include "tree.def" #include "tree.def"
}; };
#undef DEFTREECODE #undef DEFTREECODE
/* Table indexed by tree code giving a string containing a character
classifying the tree code. Possibilities are
t, d, s, c, r, e, <, 1 and 2. See tree.def for details. */
char **tree_code_type;
/* Table indexed by tree code giving number of expression
operands beyond the fixed part of the node structure.
Not used for types or decls. */
int *tree_code_length;
/* Table indexed by tree code giving name of tree code, as a string. */
char **tree_code_name;
/* Statistics-gathering stuff. */ /* Statistics-gathering stuff. */
typedef enum typedef enum
{ {
...@@ -942,15 +926,7 @@ resume_momentary (yes) ...@@ -942,15 +926,7 @@ resume_momentary (yes)
void void
init_tree_codes () init_tree_codes ()
{ {
tree_code_type = (char **) xmalloc (sizeof (standard_tree_code_type));
tree_code_length = (int *) xmalloc (sizeof (standard_tree_code_length));
tree_code_name = (char **) xmalloc (sizeof (standard_tree_code_name));
bcopy ((char *) standard_tree_code_type, (char *) tree_code_type,
sizeof (standard_tree_code_type));
bcopy ((char *) standard_tree_code_length, (char *) tree_code_length,
sizeof (standard_tree_code_length));
bcopy ((char *) standard_tree_code_name, (char *) tree_code_name,
sizeof (standard_tree_code_name));
} }
/* Return a newly allocated node of code CODE. /* Return a newly allocated node of code CODE.
...@@ -3906,8 +3882,7 @@ simple_cst_equal (t1, t2) ...@@ -3906,8 +3882,7 @@ simple_cst_equal (t1, t2)
handled above. If this is a language-specific tree code, we can't handled above. If this is a language-specific tree code, we can't
trust what might be in the operand, so say we don't know trust what might be in the operand, so say we don't know
the situation. */ the situation. */
if ((int) code1 if ((int) code1 >= (int) LAST_AND_UNUSED_TREE_CODE)
>= sizeof standard_tree_code_type / sizeof standard_tree_code_type[0])
return -1; return -1;
switch (TREE_CODE_CLASS (code1)) switch (TREE_CODE_CLASS (code1))
......
...@@ -122,7 +122,7 @@ DEFTREECODE (BLOCK, "block", "b", 0) ...@@ -122,7 +122,7 @@ DEFTREECODE (BLOCK, "block", "b", 0)
ENUMERAL_TYPE, RECORD_TYPE, UNION_TYPE, and QUAL_UNION_TYPE nodes; ENUMERAL_TYPE, RECORD_TYPE, UNION_TYPE, and QUAL_UNION_TYPE nodes;
see below. */ see below. */
DEFTREECODE (VOID_TYPE, "void_type", "t", 0) /* The void type in C */ DEFTREECODE (VOID_TYPE, "void_type", 't', 0) /* The void type in C */
/* Integer types in all languages, including char in C. /* Integer types in all languages, including char in C.
Also used for sub-ranges of other discrete types. Also used for sub-ranges of other discrete types.
...@@ -132,15 +132,15 @@ DEFTREECODE (VOID_TYPE, "void_type", "t", 0) /* The void type in C */ ...@@ -132,15 +132,15 @@ DEFTREECODE (VOID_TYPE, "void_type", "t", 0) /* The void type in C */
of this will point at the supertype (another INTEGER_TYPE, of this will point at the supertype (another INTEGER_TYPE,
or an ENUMERAL_TYPE, CHAR_TYPE, or BOOLEAN_TYPE). or an ENUMERAL_TYPE, CHAR_TYPE, or BOOLEAN_TYPE).
Otherwise, the TREE_TYPE is zero. */ Otherwise, the TREE_TYPE is zero. */
DEFTREECODE (INTEGER_TYPE, "integer_type", "t", 0) DEFTREECODE (INTEGER_TYPE, "integer_type", 't', 0)
/* C's float and double. Different floating types are distinguished /* C's float and double. Different floating types are distinguished
by machine mode and by the TYPE_SIZE and the TYPE_PRECISION. */ by machine mode and by the TYPE_SIZE and the TYPE_PRECISION. */
DEFTREECODE (REAL_TYPE, "real_type", "t", 0) DEFTREECODE (REAL_TYPE, "real_type", 't', 0)
/* Complex number types. The TREE_TYPE field is the data type /* Complex number types. The TREE_TYPE field is the data type
of the real and imaginary parts. */ of the real and imaginary parts. */
DEFTREECODE (COMPLEX_TYPE, "complex_type", "t", 0) DEFTREECODE (COMPLEX_TYPE, "complex_type", 't', 0)
/* C enums. The type node looks just like an INTEGER_TYPE node. /* C enums. The type node looks just like an INTEGER_TYPE node.
The symbols for the values of the enum type are defined by The symbols for the values of the enum type are defined by
...@@ -153,39 +153,39 @@ DEFTREECODE (COMPLEX_TYPE, "complex_type", "t", 0) ...@@ -153,39 +153,39 @@ DEFTREECODE (COMPLEX_TYPE, "complex_type", "t", 0)
fields are filled in. fields are filled in.
RECORD_TYPE, UNION_TYPE, and QUAL_UNION_TYPE forward refs are RECORD_TYPE, UNION_TYPE, and QUAL_UNION_TYPE forward refs are
treated similarly. */ treated similarly. */
DEFTREECODE (ENUMERAL_TYPE, "enumeral_type", "t", 0) DEFTREECODE (ENUMERAL_TYPE, "enumeral_type", 't', 0)
/* Pascal's boolean type (true or false are the only values); /* Pascal's boolean type (true or false are the only values);
no special fields needed. */ no special fields needed. */
DEFTREECODE (BOOLEAN_TYPE, "boolean_type", "t", 0) DEFTREECODE (BOOLEAN_TYPE, "boolean_type", 't', 0)
/* CHAR in Pascal; not used in C. /* CHAR in Pascal; not used in C.
No special fields needed. */ No special fields needed. */
DEFTREECODE (CHAR_TYPE, "char_type", "t", 0) DEFTREECODE (CHAR_TYPE, "char_type", 't', 0)
/* All pointer-to-x types have code POINTER_TYPE. /* All pointer-to-x types have code POINTER_TYPE.
The TREE_TYPE points to the node for the type pointed to. */ The TREE_TYPE points to the node for the type pointed to. */
DEFTREECODE (POINTER_TYPE, "pointer_type", "t", 0) DEFTREECODE (POINTER_TYPE, "pointer_type", 't', 0)
/* An offset is a pointer relative to an object. /* An offset is a pointer relative to an object.
The TREE_TYPE field is the type of the object at the offset. The TREE_TYPE field is the type of the object at the offset.
The TYPE_OFFSET_BASETYPE points to the node for the type of object The TYPE_OFFSET_BASETYPE points to the node for the type of object
that the offset is relative to. */ that the offset is relative to. */
DEFTREECODE (OFFSET_TYPE, "offset_type", "t", 0) DEFTREECODE (OFFSET_TYPE, "offset_type", 't', 0)
/* A reference is like a pointer except that it is coerced /* A reference is like a pointer except that it is coerced
automatically to the value it points to. Used in C++. */ automatically to the value it points to. Used in C++. */
DEFTREECODE (REFERENCE_TYPE, "reference_type", "t", 0) DEFTREECODE (REFERENCE_TYPE, "reference_type", 't', 0)
/* METHOD_TYPE is the type of a function which takes an extra first /* METHOD_TYPE is the type of a function which takes an extra first
argument for "self", which is not present in the declared argument list. argument for "self", which is not present in the declared argument list.
The TREE_TYPE is the return type of the method. The TYPE_METHOD_BASETYPE The TREE_TYPE is the return type of the method. The TYPE_METHOD_BASETYPE
is the type of "self". TYPE_ARG_TYPES is the real argument list, which is the type of "self". TYPE_ARG_TYPES is the real argument list, which
includes the hidden argument for "self". */ includes the hidden argument for "self". */
DEFTREECODE (METHOD_TYPE, "method_type", "t", 0) DEFTREECODE (METHOD_TYPE, "method_type", 't', 0)
/* Used for Pascal; details not determined right now. */ /* Used for Pascal; details not determined right now. */
DEFTREECODE (FILE_TYPE, "file_type", "t", 0) DEFTREECODE (FILE_TYPE, "file_type", 't', 0)
/* Types of arrays. Special fields: /* Types of arrays. Special fields:
TREE_TYPE Type of an array element. TREE_TYPE Type of an array element.
...@@ -198,13 +198,13 @@ DEFTREECODE (FILE_TYPE, "file_type", "t", 0) ...@@ -198,13 +198,13 @@ DEFTREECODE (FILE_TYPE, "file_type", "t", 0)
TYPE_STRING_FLAG indicates a string (in contrast to an array of chars) TYPE_STRING_FLAG indicates a string (in contrast to an array of chars)
in languages (such as Chill) that make a distinction. */ in languages (such as Chill) that make a distinction. */
/* Array types in C or Pascal */ /* Array types in C or Pascal */
DEFTREECODE (ARRAY_TYPE, "array_type", "t", 0) DEFTREECODE (ARRAY_TYPE, "array_type", 't', 0)
/* Types of sets for Pascal. Special fields are the same as /* Types of sets for Pascal. Special fields are the same as
in an array type. The target type is always a boolean type. in an array type. The target type is always a boolean type.
Used for both bitstrings and powersets in Chill; Used for both bitstrings and powersets in Chill;
TYPE_STRING_FLAG indicates a bitstring. */ TYPE_STRING_FLAG indicates a bitstring. */
DEFTREECODE (SET_TYPE, "set_type", "t", 0) DEFTREECODE (SET_TYPE, "set_type", 't', 0)
/* Struct in C, or record in Pascal. */ /* Struct in C, or record in Pascal. */
/* Special fields: /* Special fields:
...@@ -214,19 +214,19 @@ DEFTREECODE (SET_TYPE, "set_type", "t", 0) ...@@ -214,19 +214,19 @@ DEFTREECODE (SET_TYPE, "set_type", "t", 0)
A few may need to be added for Pascal. */ A few may need to be added for Pascal. */
/* See the comment above, before ENUMERAL_TYPE, for how /* See the comment above, before ENUMERAL_TYPE, for how
forward references to struct tags are handled in C. */ forward references to struct tags are handled in C. */
DEFTREECODE (RECORD_TYPE, "record_type", "t", 0) DEFTREECODE (RECORD_TYPE, "record_type", 't', 0)
/* Union in C. Like a struct, except that the offsets of the fields /* Union in C. Like a struct, except that the offsets of the fields
will all be zero. */ will all be zero. */
/* See the comment above, before ENUMERAL_TYPE, for how /* See the comment above, before ENUMERAL_TYPE, for how
forward references to union tags are handled in C. */ forward references to union tags are handled in C. */
DEFTREECODE (UNION_TYPE, "union_type", "t", 0) /* C union type */ DEFTREECODE (UNION_TYPE, "union_type", 't', 0) /* C union type */
/* Similar to UNION_TYPE, except that the expressions in DECL_QUALIFIER /* Similar to UNION_TYPE, except that the expressions in DECL_QUALIFIER
in each FIELD_DECL determine what the union contains. The first in each FIELD_DECL determine what the union contains. The first
field whose DECL_QUALIFIER expression is true is deemed to occupy field whose DECL_QUALIFIER expression is true is deemed to occupy
the union. */ the union. */
DEFTREECODE (QUAL_UNION_TYPE, "qual_union_type", "t", 0) DEFTREECODE (QUAL_UNION_TYPE, "qual_union_type", 't', 0)
/* Type of functions. Special fields: /* Type of functions. Special fields:
TREE_TYPE type of value returned. TREE_TYPE type of value returned.
...@@ -234,13 +234,13 @@ DEFTREECODE (QUAL_UNION_TYPE, "qual_union_type", "t", 0) ...@@ -234,13 +234,13 @@ DEFTREECODE (QUAL_UNION_TYPE, "qual_union_type", "t", 0)
this list is made of TREE_LIST nodes. this list is made of TREE_LIST nodes.
Types of "Procedures" in languages where they are different from functions Types of "Procedures" in languages where they are different from functions
have code FUNCTION_TYPE also, but then TREE_TYPE is zero or void type. */ have code FUNCTION_TYPE also, but then TREE_TYPE is zero or void type. */
DEFTREECODE (FUNCTION_TYPE, "function_type", "t", 0) DEFTREECODE (FUNCTION_TYPE, "function_type", 't', 0)
/* This is a language-specific kind of type. /* This is a language-specific kind of type.
Its meaning is defined by the language front end. Its meaning is defined by the language front end.
layout_type does not know how to lay this out, layout_type does not know how to lay this out,
so the front-end must do so manually. */ so the front-end must do so manually. */
DEFTREECODE (LANG_TYPE, "lang_type", "t", 0) DEFTREECODE (LANG_TYPE, "lang_type", 't', 0)
/* Expressions */ /* Expressions */
...@@ -251,19 +251,19 @@ DEFTREECODE (LANG_TYPE, "lang_type", "t", 0) ...@@ -251,19 +251,19 @@ DEFTREECODE (LANG_TYPE, "lang_type", "t", 0)
Note: constants of type char in Pascal are INTEGER_CST, Note: constants of type char in Pascal are INTEGER_CST,
and so are pointer constants such as nil in Pascal or NULL in C. and so are pointer constants such as nil in Pascal or NULL in C.
`(int *) 1' in C also results in an INTEGER_CST. */ `(int *) 1' in C also results in an INTEGER_CST. */
DEFTREECODE (INTEGER_CST, "integer_cst", "c", 2) DEFTREECODE (INTEGER_CST, "integer_cst", 'c', 2)
/* Contents are in TREE_REAL_CST field. Also there is TREE_CST_RTL. */ /* Contents are in TREE_REAL_CST field. Also there is TREE_CST_RTL. */
DEFTREECODE (REAL_CST, "real_cst", "c", 3) DEFTREECODE (REAL_CST, "real_cst", 'c', 3)
/* Contents are in TREE_REALPART and TREE_IMAGPART fields, /* Contents are in TREE_REALPART and TREE_IMAGPART fields,
whose contents are other constant nodes. whose contents are other constant nodes.
Also there is TREE_CST_RTL. */ Also there is TREE_CST_RTL. */
DEFTREECODE (COMPLEX_CST, "complex_cst", "c", 3) DEFTREECODE (COMPLEX_CST, "complex_cst", 'c', 3)
/* Contents are TREE_STRING_LENGTH and TREE_STRING_POINTER fields. /* Contents are TREE_STRING_LENGTH and TREE_STRING_POINTER fields.
Also there is TREE_CST_RTL. */ Also there is TREE_CST_RTL. */
DEFTREECODE (STRING_CST, "string_cst", "c", 3) DEFTREECODE (STRING_CST, "string_cst", 'c', 3)
/* Declarations. All references to names are represented as ..._DECL nodes. /* Declarations. All references to names are represented as ..._DECL nodes.
The decls in one binding context are chained through the TREE_CHAIN field. The decls in one binding context are chained through the TREE_CHAIN field.
...@@ -323,21 +323,21 @@ DEFTREECODE (STRING_CST, "string_cst", "c", 3) ...@@ -323,21 +323,21 @@ DEFTREECODE (STRING_CST, "string_cst", "c", 3)
of a decl (i.e. one which is nested within an abstract instance of a of a decl (i.e. one which is nested within an abstract instance of a
inline function. */ inline function. */
DEFTREECODE (FUNCTION_DECL, "function_decl", "d", 0) DEFTREECODE (FUNCTION_DECL, "function_decl", 'd', 0)
DEFTREECODE (LABEL_DECL, "label_decl", "d", 0) DEFTREECODE (LABEL_DECL, "label_decl", 'd', 0)
DEFTREECODE (CONST_DECL, "const_decl", "d", 0) DEFTREECODE (CONST_DECL, "const_decl", 'd', 0)
DEFTREECODE (TYPE_DECL, "type_decl", "d", 0) DEFTREECODE (TYPE_DECL, "type_decl", 'd', 0)
DEFTREECODE (VAR_DECL, "var_decl", "d", 0) DEFTREECODE (VAR_DECL, "var_decl", 'd', 0)
DEFTREECODE (PARM_DECL, "parm_decl", "d", 0) DEFTREECODE (PARM_DECL, "parm_decl", 'd', 0)
DEFTREECODE (RESULT_DECL, "result_decl", "d", 0) DEFTREECODE (RESULT_DECL, "result_decl", 'd', 0)
DEFTREECODE (FIELD_DECL, "field_decl", "d", 0) DEFTREECODE (FIELD_DECL, "field_decl", 'd', 0)
/* References to storage. */ /* References to storage. */
/* Value is structure or union component. /* Value is structure or union component.
Operand 0 is the structure or union (an expression); Operand 0 is the structure or union (an expression);
operand 1 is the field (a node of type FIELD_DECL). */ operand 1 is the field (a node of type FIELD_DECL). */
DEFTREECODE (COMPONENT_REF, "component_ref", "r", 2) DEFTREECODE (COMPONENT_REF, "component_ref", 'r', 2)
/* Reference to a group of bits within an object. Similar to COMPONENT_REF /* Reference to a group of bits within an object. Similar to COMPONENT_REF
except the position is given explicitly rather than via a FIELD_DECL. except the position is given explicitly rather than via a FIELD_DECL.
...@@ -346,18 +346,18 @@ DEFTREECODE (COMPONENT_REF, "component_ref", "r", 2) ...@@ -346,18 +346,18 @@ DEFTREECODE (COMPONENT_REF, "component_ref", "r", 2)
operand 2 is a tree giving the position of the first referenced bit. operand 2 is a tree giving the position of the first referenced bit.
The field can be either a signed or unsigned field; The field can be either a signed or unsigned field;
TREE_UNSIGNED says which. */ TREE_UNSIGNED says which. */
DEFTREECODE (BIT_FIELD_REF, "bit_field_ref", "r", 3) DEFTREECODE (BIT_FIELD_REF, "bit_field_ref", 'r', 3)
/* C unary `*' or Pascal `^'. One operand, an expression for a pointer. */ /* C unary `*' or Pascal `^'. One operand, an expression for a pointer. */
DEFTREECODE (INDIRECT_REF, "indirect_ref", "r", 1) DEFTREECODE (INDIRECT_REF, "indirect_ref", 'r', 1)
/* Pascal `^` on a file. One operand, an expression for the file. */ /* Pascal `^` on a file. One operand, an expression for the file. */
DEFTREECODE (BUFFER_REF, "buffer_ref", "r", 1) DEFTREECODE (BUFFER_REF, "buffer_ref", 'r', 1)
/* Array indexing in languages other than C. /* Array indexing in languages other than C.
Operand 0 is the array; operand 1 is a list of indices Operand 0 is the array; operand 1 is a list of indices
stored as a chain of TREE_LIST nodes. */ stored as a chain of TREE_LIST nodes. */
DEFTREECODE (ARRAY_REF, "array_ref", "r", 2) DEFTREECODE (ARRAY_REF, "array_ref", 'r', 2)
/* Constructor: return an aggregate value made from specified components. /* Constructor: return an aggregate value made from specified components.
In C, this is used only for structure and array initializers. In C, this is used only for structure and array initializers.
...@@ -381,7 +381,7 @@ DEFTREECODE (ARRAY_REF, "array_ref", "r", 2) ...@@ -381,7 +381,7 @@ DEFTREECODE (ARRAY_REF, "array_ref", "r", 2)
The TREE_VALUE specifies a value (index) in the set that is true. The TREE_VALUE specifies a value (index) in the set that is true.
If TREE_PURPOSE is non-NULL, it specifies the lower limit of a If TREE_PURPOSE is non-NULL, it specifies the lower limit of a
range of true values. Elements not listed are false (not in the set). */ range of true values. Elements not listed are false (not in the set). */
DEFTREECODE (CONSTRUCTOR, "constructor", "e", 2) DEFTREECODE (CONSTRUCTOR, "constructor", 'e', 2)
/* The expression types are mostly straightforward, with the fourth argument /* The expression types are mostly straightforward, with the fourth argument
of DEFTREECODE saying how many operands there are. of DEFTREECODE saying how many operands there are.
...@@ -391,21 +391,21 @@ DEFTREECODE (CONSTRUCTOR, "constructor", "e", 2) ...@@ -391,21 +391,21 @@ DEFTREECODE (CONSTRUCTOR, "constructor", "e", 2)
/* Contains two expressions to compute, one followed by the other. /* Contains two expressions to compute, one followed by the other.
the first value is ignored. The second one's value is used. The the first value is ignored. The second one's value is used. The
type of the first expression need not agree with the other types. */ type of the first expression need not agree with the other types. */
DEFTREECODE (COMPOUND_EXPR, "compound_expr", "e", 2) DEFTREECODE (COMPOUND_EXPR, "compound_expr", 'e', 2)
/* Assignment expression. Operand 0 is the what to set; 1, the new value. */ /* Assignment expression. Operand 0 is the what to set; 1, the new value. */
DEFTREECODE (MODIFY_EXPR, "modify_expr", "e", 2) DEFTREECODE (MODIFY_EXPR, "modify_expr", 'e', 2)
/* Initialization expression. Operand 0 is the variable to initialize; /* Initialization expression. Operand 0 is the variable to initialize;
Operand 1 is the initializer. */ Operand 1 is the initializer. */
DEFTREECODE (INIT_EXPR, "init_expr", "e", 2) DEFTREECODE (INIT_EXPR, "init_expr", 'e', 2)
/* For TARGET_EXPR, operand 0 is the target of an initialization, /* For TARGET_EXPR, operand 0 is the target of an initialization,
operand 1 is the initializer for the target, operand 1 is the initializer for the target,
and operand 2 is the cleanup for this node, if any. and operand 2 is the cleanup for this node, if any.
and operand 3 is the saved initializer after this node has been and operand 3 is the saved initializer after this node has been
expanded once, this is so we can re-expand the tree later. */ expanded once, this is so we can re-expand the tree later. */
DEFTREECODE (TARGET_EXPR, "target_expr", "e", 4) DEFTREECODE (TARGET_EXPR, "target_expr", 'e', 4)
/* Conditional expression ( ... ? ... : ... in C). /* Conditional expression ( ... ? ... : ... in C).
Operand 0 is the condition. Operand 0 is the condition.
...@@ -413,7 +413,7 @@ DEFTREECODE (TARGET_EXPR, "target_expr", "e", 4) ...@@ -413,7 +413,7 @@ DEFTREECODE (TARGET_EXPR, "target_expr", "e", 4)
Operand 2 is the else-value. Operand 2 is the else-value.
Operand 0 may be of any types, but the types of operands 1 and 2 Operand 0 may be of any types, but the types of operands 1 and 2
must be the same and the same as the the of this expression. */ must be the same and the same as the the of this expression. */
DEFTREECODE (COND_EXPR, "cond_expr", "e", 3) DEFTREECODE (COND_EXPR, "cond_expr", 'e', 3)
/* Declare local variables, including making RTL and allocating space. /* Declare local variables, including making RTL and allocating space.
Operand 0 is a chain of VAR_DECL nodes for the variables. Operand 0 is a chain of VAR_DECL nodes for the variables.
...@@ -436,19 +436,19 @@ DEFTREECODE (COND_EXPR, "cond_expr", "e", 3) ...@@ -436,19 +436,19 @@ DEFTREECODE (COND_EXPR, "cond_expr", "e", 3)
In order for the BIND_EXPR to be known at all, the code that creates it In order for the BIND_EXPR to be known at all, the code that creates it
must also install it as a subblock in the tree of BLOCK must also install it as a subblock in the tree of BLOCK
nodes for the function. */ nodes for the function. */
DEFTREECODE (BIND_EXPR, "bind_expr", "e", 3) DEFTREECODE (BIND_EXPR, "bind_expr", 'e', 3)
/* Function call. Operand 0 is the function. /* Function call. Operand 0 is the function.
Operand 1 is the argument list, a list of expressions Operand 1 is the argument list, a list of expressions
made out of a chain of TREE_LIST nodes. made out of a chain of TREE_LIST nodes.
There is no operand 2. That slot is used for the There is no operand 2. That slot is used for the
CALL_EXPR_RTL macro (see preexpand_calls). */ CALL_EXPR_RTL macro (see preexpand_calls). */
DEFTREECODE (CALL_EXPR, "call_expr", "e", 3) DEFTREECODE (CALL_EXPR, "call_expr", 'e', 3)
/* Call a method. Operand 0 is the method, whose type is a METHOD_TYPE. /* Call a method. Operand 0 is the method, whose type is a METHOD_TYPE.
Operand 1 is the expression for "self". Operand 1 is the expression for "self".
Operand 2 is the list of explicit arguments. */ Operand 2 is the list of explicit arguments. */
DEFTREECODE (METHOD_CALL_EXPR, "method_call_expr", "e", 4) DEFTREECODE (METHOD_CALL_EXPR, "method_call_expr", 'e', 4)
/* Specify a value to compute along with its corresponding cleanup. /* Specify a value to compute along with its corresponding cleanup.
Operand 0 argument is an expression whose value needs a cleanup. Operand 0 argument is an expression whose value needs a cleanup.
...@@ -462,7 +462,7 @@ DEFTREECODE (METHOD_CALL_EXPR, "method_call_expr", "e", 4) ...@@ -462,7 +462,7 @@ DEFTREECODE (METHOD_CALL_EXPR, "method_call_expr", "e", 4)
This differs from TRY_CATCH_EXPR in that operand 2 is always This differs from TRY_CATCH_EXPR in that operand 2 is always
evaluated when an exception isn't thrown when cleanups are run. */ evaluated when an exception isn't thrown when cleanups are run. */
DEFTREECODE (WITH_CLEANUP_EXPR, "with_cleanup_expr", "e", 3) DEFTREECODE (WITH_CLEANUP_EXPR, "with_cleanup_expr", 'e', 3)
/* Specify a cleanup point. /* Specify a cleanup point.
Operand 0 is an expression that may have cleanups. If it does, those Operand 0 is an expression that may have cleanups. If it does, those
...@@ -479,7 +479,7 @@ DEFTREECODE (WITH_CLEANUP_EXPR, "with_cleanup_expr", "e", 3) ...@@ -479,7 +479,7 @@ DEFTREECODE (WITH_CLEANUP_EXPR, "with_cleanup_expr", "e", 3)
As a consequence, the operand of a CLEANUP_POINT_EXPR must not have As a consequence, the operand of a CLEANUP_POINT_EXPR must not have
BLKmode, because it will not be forced out of memory. */ BLKmode, because it will not be forced out of memory. */
DEFTREECODE (CLEANUP_POINT_EXPR, "cleanup_point_expr", "e", 1) DEFTREECODE (CLEANUP_POINT_EXPR, "cleanup_point_expr", 'e', 1)
/* The following two codes are used in languages that have types where /* The following two codes are used in languages that have types where
the position and/or sizes of fields vary from object to object of the the position and/or sizes of fields vary from object to object of the
...@@ -519,97 +519,97 @@ DEFTREECODE (CLEANUP_POINT_EXPR, "cleanup_point_expr", "e", 1) ...@@ -519,97 +519,97 @@ DEFTREECODE (CLEANUP_POINT_EXPR, "cleanup_point_expr", "e", 1)
/* Denotes a record to later be supplied with a WITH_RECORD_EXPR when /* Denotes a record to later be supplied with a WITH_RECORD_EXPR when
evaluating this expression. The type of this expression is used to evaluating this expression. The type of this expression is used to
find the record to replace it. */ find the record to replace it. */
DEFTREECODE (PLACEHOLDER_EXPR, "placeholder_expr", "x", 0) DEFTREECODE (PLACEHOLDER_EXPR, "placeholder_expr", 'x', 0)
/* Provide an expression that references a record to be used in place /* Provide an expression that references a record to be used in place
of a PLACEHOLDER_EXPR. The record to be used is the record within of a PLACEHOLDER_EXPR. The record to be used is the record within
operand 1 that has the same type as the PLACEHOLDER_EXPR in operand 1 that has the same type as the PLACEHOLDER_EXPR in
operand 0. */ operand 0. */
DEFTREECODE (WITH_RECORD_EXPR, "with_record_expr", "e", 2) DEFTREECODE (WITH_RECORD_EXPR, "with_record_expr", 'e', 2)
/* Simple arithmetic. */ /* Simple arithmetic. */
DEFTREECODE (PLUS_EXPR, "plus_expr", "2", 2) DEFTREECODE (PLUS_EXPR, "plus_expr", '2', 2)
DEFTREECODE (MINUS_EXPR, "minus_expr", "2", 2) DEFTREECODE (MINUS_EXPR, "minus_expr", '2', 2)
DEFTREECODE (MULT_EXPR, "mult_expr", "2", 2) DEFTREECODE (MULT_EXPR, "mult_expr", '2', 2)
/* Division for integer result that rounds the quotient toward zero. */ /* Division for integer result that rounds the quotient toward zero. */
DEFTREECODE (TRUNC_DIV_EXPR, "trunc_div_expr", "2", 2) DEFTREECODE (TRUNC_DIV_EXPR, "trunc_div_expr", '2', 2)
/* Division for integer result that rounds the quotient toward infinity. */ /* Division for integer result that rounds the quotient toward infinity. */
DEFTREECODE (CEIL_DIV_EXPR, "ceil_div_expr", "2", 2) DEFTREECODE (CEIL_DIV_EXPR, "ceil_div_expr", '2', 2)
/* Division for integer result that rounds toward minus infinity. */ /* Division for integer result that rounds toward minus infinity. */
DEFTREECODE (FLOOR_DIV_EXPR, "floor_div_expr", "2", 2) DEFTREECODE (FLOOR_DIV_EXPR, "floor_div_expr", '2', 2)
/* Division for integer result that rounds toward nearest integer. */ /* Division for integer result that rounds toward nearest integer. */
DEFTREECODE (ROUND_DIV_EXPR, "round_div_expr", "2", 2) DEFTREECODE (ROUND_DIV_EXPR, "round_div_expr", '2', 2)
/* Four kinds of remainder that go with the four kinds of division. */ /* Four kinds of remainder that go with the four kinds of division. */
DEFTREECODE (TRUNC_MOD_EXPR, "trunc_mod_expr", "2", 2) DEFTREECODE (TRUNC_MOD_EXPR, "trunc_mod_expr", '2', 2)
DEFTREECODE (CEIL_MOD_EXPR, "ceil_mod_expr", "2", 2) DEFTREECODE (CEIL_MOD_EXPR, "ceil_mod_expr", '2', 2)
DEFTREECODE (FLOOR_MOD_EXPR, "floor_mod_expr", "2", 2) DEFTREECODE (FLOOR_MOD_EXPR, "floor_mod_expr", '2', 2)
DEFTREECODE (ROUND_MOD_EXPR, "round_mod_expr", "2", 2) DEFTREECODE (ROUND_MOD_EXPR, "round_mod_expr", '2', 2)
/* Division for real result. */ /* Division for real result. */
DEFTREECODE (RDIV_EXPR, "rdiv_expr", "2", 2) DEFTREECODE (RDIV_EXPR, "rdiv_expr", '2', 2)
/* Division which is not supposed to need rounding. /* Division which is not supposed to need rounding.
Used for pointer subtraction in C. */ Used for pointer subtraction in C. */
DEFTREECODE (EXACT_DIV_EXPR, "exact_div_expr", "2", 2) DEFTREECODE (EXACT_DIV_EXPR, "exact_div_expr", '2', 2)
/* Conversion of real to fixed point: four ways to round, /* Conversion of real to fixed point: four ways to round,
like the four ways to divide. like the four ways to divide.
CONVERT_EXPR can also be used to convert a real to an integer, CONVERT_EXPR can also be used to convert a real to an integer,
and that is what is used in languages that do not have ways of and that is what is used in languages that do not have ways of
specifying which of these is wanted. Maybe these are not needed. */ specifying which of these is wanted. Maybe these are not needed. */
DEFTREECODE (FIX_TRUNC_EXPR, "fix_trunc_expr", "1", 1) DEFTREECODE (FIX_TRUNC_EXPR, "fix_trunc_expr", '1', 1)
DEFTREECODE (FIX_CEIL_EXPR, "fix_ceil_expr", "1", 1) DEFTREECODE (FIX_CEIL_EXPR, "fix_ceil_expr", '1', 1)
DEFTREECODE (FIX_FLOOR_EXPR, "fix_floor_expr", "1", 1) DEFTREECODE (FIX_FLOOR_EXPR, "fix_floor_expr", '1', 1)
DEFTREECODE (FIX_ROUND_EXPR, "fix_round_expr", "1", 1) DEFTREECODE (FIX_ROUND_EXPR, "fix_round_expr", '1', 1)
/* Conversion of an integer to a real. */ /* Conversion of an integer to a real. */
DEFTREECODE (FLOAT_EXPR, "float_expr", "1", 1) DEFTREECODE (FLOAT_EXPR, "float_expr", '1', 1)
/* Exponentiation. Operands may have any types; /* Exponentiation. Operands may have any types;
constraints on value type are not known yet. */ constraints on value type are not known yet. */
DEFTREECODE (EXPON_EXPR, "expon_expr", "2", 2) DEFTREECODE (EXPON_EXPR, "expon_expr", '2', 2)
/* Unary negation. */ /* Unary negation. */
DEFTREECODE (NEGATE_EXPR, "negate_expr", "1", 1) DEFTREECODE (NEGATE_EXPR, "negate_expr", '1', 1)
DEFTREECODE (MIN_EXPR, "min_expr", "2", 2) DEFTREECODE (MIN_EXPR, "min_expr", '2', 2)
DEFTREECODE (MAX_EXPR, "max_expr", "2", 2) DEFTREECODE (MAX_EXPR, "max_expr", '2', 2)
DEFTREECODE (ABS_EXPR, "abs_expr", "1", 1) DEFTREECODE (ABS_EXPR, "abs_expr", '1', 1)
DEFTREECODE (FFS_EXPR, "ffs_expr", "1", 1) DEFTREECODE (FFS_EXPR, "ffs_expr", '1', 1)
/* Shift operations for shift and rotate. /* Shift operations for shift and rotate.
Shift is supposed to mean logical shift if done on an Shift is supposed to mean logical shift if done on an
unsigned type, arithmetic shift on a signed type. unsigned type, arithmetic shift on a signed type.
The second operand is the number of bits to The second operand is the number of bits to
shift by; it need not be the same type as the first operand and result. */ shift by; it need not be the same type as the first operand and result. */
DEFTREECODE (LSHIFT_EXPR, "lshift_expr", "2", 2) DEFTREECODE (LSHIFT_EXPR, "lshift_expr", '2', 2)
DEFTREECODE (RSHIFT_EXPR, "rshift_expr", "2", 2) DEFTREECODE (RSHIFT_EXPR, "rshift_expr", '2', 2)
DEFTREECODE (LROTATE_EXPR, "lrotate_expr", "2", 2) DEFTREECODE (LROTATE_EXPR, "lrotate_expr", '2', 2)
DEFTREECODE (RROTATE_EXPR, "rrotate_expr", "2", 2) DEFTREECODE (RROTATE_EXPR, "rrotate_expr", '2', 2)
/* Bitwise operations. Operands have same mode as result. */ /* Bitwise operations. Operands have same mode as result. */
DEFTREECODE (BIT_IOR_EXPR, "bit_ior_expr", "2", 2) DEFTREECODE (BIT_IOR_EXPR, "bit_ior_expr", '2', 2)
DEFTREECODE (BIT_XOR_EXPR, "bit_xor_expr", "2", 2) DEFTREECODE (BIT_XOR_EXPR, "bit_xor_expr", '2', 2)
DEFTREECODE (BIT_AND_EXPR, "bit_and_expr", "2", 2) DEFTREECODE (BIT_AND_EXPR, "bit_and_expr", '2', 2)
DEFTREECODE (BIT_ANDTC_EXPR, "bit_andtc_expr", "2", 2) DEFTREECODE (BIT_ANDTC_EXPR, "bit_andtc_expr", '2', 2)
DEFTREECODE (BIT_NOT_EXPR, "bit_not_expr", "1", 1) DEFTREECODE (BIT_NOT_EXPR, "bit_not_expr", '1', 1)
/* Combination of boolean values or of integers considered only /* Combination of boolean values or of integers considered only
as zero or nonzero. ANDIF and ORIF allow the second operand as zero or nonzero. ANDIF and ORIF allow the second operand
not to be computed if the value of the expression is determined not to be computed if the value of the expression is determined
from the first operand. AND, OR, and XOR always compute the second from the first operand. AND, OR, and XOR always compute the second
operand whether its value is needed or not (for side effects). */ operand whether its value is needed or not (for side effects). */
DEFTREECODE (TRUTH_ANDIF_EXPR, "truth_andif_expr", "e", 2) DEFTREECODE (TRUTH_ANDIF_EXPR, "truth_andif_expr", 'e', 2)
DEFTREECODE (TRUTH_ORIF_EXPR, "truth_orif_expr", "e", 2) DEFTREECODE (TRUTH_ORIF_EXPR, "truth_orif_expr", 'e', 2)
DEFTREECODE (TRUTH_AND_EXPR, "truth_and_expr", "e", 2) DEFTREECODE (TRUTH_AND_EXPR, "truth_and_expr", 'e', 2)
DEFTREECODE (TRUTH_OR_EXPR, "truth_or_expr", "e", 2) DEFTREECODE (TRUTH_OR_EXPR, "truth_or_expr", 'e', 2)
DEFTREECODE (TRUTH_XOR_EXPR, "truth_xor_expr", "e", 2) DEFTREECODE (TRUTH_XOR_EXPR, "truth_xor_expr", 'e', 2)
DEFTREECODE (TRUTH_NOT_EXPR, "truth_not_expr", "e", 1) DEFTREECODE (TRUTH_NOT_EXPR, "truth_not_expr", 'e', 1)
/* Relational operators. /* Relational operators.
`EQ_EXPR' and `NE_EXPR' are allowed for any types. `EQ_EXPR' and `NE_EXPR' are allowed for any types.
...@@ -617,35 +617,35 @@ DEFTREECODE (TRUTH_NOT_EXPR, "truth_not_expr", "e", 1) ...@@ -617,35 +617,35 @@ DEFTREECODE (TRUTH_NOT_EXPR, "truth_not_expr", "e", 1)
or real types. or real types.
In all cases the operands will have the same type, In all cases the operands will have the same type,
and the value is always the type used by the language for booleans. */ and the value is always the type used by the language for booleans. */
DEFTREECODE (LT_EXPR, "lt_expr", "<", 2) DEFTREECODE (LT_EXPR, "lt_expr", '<', 2)
DEFTREECODE (LE_EXPR, "le_expr", "<", 2) DEFTREECODE (LE_EXPR, "le_expr", '<', 2)
DEFTREECODE (GT_EXPR, "gt_expr", "<", 2) DEFTREECODE (GT_EXPR, "gt_expr", '<', 2)
DEFTREECODE (GE_EXPR, "ge_expr", "<", 2) DEFTREECODE (GE_EXPR, "ge_expr", '<', 2)
DEFTREECODE (EQ_EXPR, "eq_expr", "<", 2) DEFTREECODE (EQ_EXPR, "eq_expr", '<', 2)
DEFTREECODE (NE_EXPR, "ne_expr", "<", 2) DEFTREECODE (NE_EXPR, "ne_expr", '<', 2)
/* Operations for Pascal sets. Not used now. */ /* Operations for Pascal sets. Not used now. */
DEFTREECODE (IN_EXPR, "in_expr", "2", 2) DEFTREECODE (IN_EXPR, "in_expr", '2', 2)
DEFTREECODE (SET_LE_EXPR, "set_le_expr", "<", 2) DEFTREECODE (SET_LE_EXPR, "set_le_expr", '<', 2)
DEFTREECODE (CARD_EXPR, "card_expr", "1", 1) DEFTREECODE (CARD_EXPR, "card_expr", '1', 1)
DEFTREECODE (RANGE_EXPR, "range_expr", "2", 2) DEFTREECODE (RANGE_EXPR, "range_expr", '2', 2)
/* Represents a conversion of type of a value. /* Represents a conversion of type of a value.
All conversions, including implicit ones, must be All conversions, including implicit ones, must be
represented by CONVERT_EXPR or NOP_EXPR nodes. */ represented by CONVERT_EXPR or NOP_EXPR nodes. */
DEFTREECODE (CONVERT_EXPR, "convert_expr", "1", 1) DEFTREECODE (CONVERT_EXPR, "convert_expr", '1', 1)
/* Represents a conversion expected to require no code to be generated. */ /* Represents a conversion expected to require no code to be generated. */
DEFTREECODE (NOP_EXPR, "nop_expr", "1", 1) DEFTREECODE (NOP_EXPR, "nop_expr", '1', 1)
/* Value is same as argument, but guaranteed not an lvalue. */ /* Value is same as argument, but guaranteed not an lvalue. */
DEFTREECODE (NON_LVALUE_EXPR, "non_lvalue_expr", "1", 1) DEFTREECODE (NON_LVALUE_EXPR, "non_lvalue_expr", '1', 1)
/* Represents something we computed once and will use multiple times. /* Represents something we computed once and will use multiple times.
First operand is that expression. Second is the function decl First operand is that expression. Second is the function decl
in which the SAVE_EXPR was created. The third operand is the RTL, in which the SAVE_EXPR was created. The third operand is the RTL,
nonzero only after the expression has been computed. */ nonzero only after the expression has been computed. */
DEFTREECODE (SAVE_EXPR, "save_expr", "e", 3) DEFTREECODE (SAVE_EXPR, "save_expr", 'e', 3)
/* For a UNSAVE_EXPR, operand 0 is the value to unsave. By unsave, we /* For a UNSAVE_EXPR, operand 0 is the value to unsave. By unsave, we
mean that all _EXPRs such as TARGET_EXPRs, SAVE_EXPRs, mean that all _EXPRs such as TARGET_EXPRs, SAVE_EXPRs,
...@@ -654,62 +654,62 @@ DEFTREECODE (SAVE_EXPR, "save_expr", "e", 3) ...@@ -654,62 +654,62 @@ DEFTREECODE (SAVE_EXPR, "save_expr", "e", 3)
expand_expr call of this expr will cause those to be re-evaluated. expand_expr call of this expr will cause those to be re-evaluated.
This is useful when we want to reuse a tree in different places, This is useful when we want to reuse a tree in different places,
but where we must re-expand. */ but where we must re-expand. */
DEFTREECODE (UNSAVE_EXPR, "unsave_expr", "e", 1) DEFTREECODE (UNSAVE_EXPR, "unsave_expr", 'e', 1)
/* Represents something whose RTL has already been expanded /* Represents something whose RTL has already been expanded
as a sequence which should be emitted when this expression is expanded. as a sequence which should be emitted when this expression is expanded.
The first operand is the RTL to emit. It is the first of a chain of insns. The first operand is the RTL to emit. It is the first of a chain of insns.
The second is the RTL expression for the result. */ The second is the RTL expression for the result. */
DEFTREECODE (RTL_EXPR, "rtl_expr", "e", 2) DEFTREECODE (RTL_EXPR, "rtl_expr", 'e', 2)
/* & in C. Value is the address at which the operand's value resides. /* & in C. Value is the address at which the operand's value resides.
Operand may have any mode. Result mode is Pmode. */ Operand may have any mode. Result mode is Pmode. */
DEFTREECODE (ADDR_EXPR, "addr_expr", "e", 1) DEFTREECODE (ADDR_EXPR, "addr_expr", 'e', 1)
/* Non-lvalue reference or pointer to an object. */ /* Non-lvalue reference or pointer to an object. */
DEFTREECODE (REFERENCE_EXPR, "reference_expr", "e", 1) DEFTREECODE (REFERENCE_EXPR, "reference_expr", 'e', 1)
/* Operand is a function constant; result is a function variable value /* Operand is a function constant; result is a function variable value
of typeEPmode. Used only for languages that need static chains. */ of typeEPmode. Used only for languages that need static chains. */
DEFTREECODE (ENTRY_VALUE_EXPR, "entry_value_expr", "e", 1) DEFTREECODE (ENTRY_VALUE_EXPR, "entry_value_expr", 'e', 1)
/* Given two real or integer operands of the same type, /* Given two real or integer operands of the same type,
returns a complex value of the corresponding complex type. */ returns a complex value of the corresponding complex type. */
DEFTREECODE (COMPLEX_EXPR, "complex_expr", "2", 2) DEFTREECODE (COMPLEX_EXPR, "complex_expr", '2', 2)
/* Complex conjugate of operand. Used only on complex types. */ /* Complex conjugate of operand. Used only on complex types. */
DEFTREECODE (CONJ_EXPR, "conj_expr", "1", 1) DEFTREECODE (CONJ_EXPR, "conj_expr", '1', 1)
/* Used only on an operand of complex type, these return /* Used only on an operand of complex type, these return
a value of the corresponding component type. */ a value of the corresponding component type. */
DEFTREECODE (REALPART_EXPR, "realpart_expr", "1", 1) DEFTREECODE (REALPART_EXPR, "realpart_expr", '1', 1)
DEFTREECODE (IMAGPART_EXPR, "imagpart_expr", "1", 1) DEFTREECODE (IMAGPART_EXPR, "imagpart_expr", '1', 1)
/* Nodes for ++ and -- in C. /* Nodes for ++ and -- in C.
The second arg is how much to increment or decrement by. The second arg is how much to increment or decrement by.
For a pointer, it would be the size of the object pointed to. */ For a pointer, it would be the size of the object pointed to. */
DEFTREECODE (PREDECREMENT_EXPR, "predecrement_expr", "e", 2) DEFTREECODE (PREDECREMENT_EXPR, "predecrement_expr", 'e', 2)
DEFTREECODE (PREINCREMENT_EXPR, "preincrement_expr", "e", 2) DEFTREECODE (PREINCREMENT_EXPR, "preincrement_expr", 'e', 2)
DEFTREECODE (POSTDECREMENT_EXPR, "postdecrement_expr", "e", 2) DEFTREECODE (POSTDECREMENT_EXPR, "postdecrement_expr", 'e', 2)
DEFTREECODE (POSTINCREMENT_EXPR, "postincrement_expr", "e", 2) DEFTREECODE (POSTINCREMENT_EXPR, "postincrement_expr", 'e', 2)
/* Evaluate operand 1. If and only if an exception is thrown during /* Evaluate operand 1. If and only if an exception is thrown during
the evaluation of operand 1, evaluate operand 2. the evaluation of operand 1, evaluate operand 2.
This differs from WITH_CLEANUP_EXPR, in that operand 2 is never This differs from WITH_CLEANUP_EXPR, in that operand 2 is never
evaluated unless an exception is throw. */ evaluated unless an exception is throw. */
DEFTREECODE (TRY_CATCH_EXPR, "try_catch_expr", "e", 2) DEFTREECODE (TRY_CATCH_EXPR, "try_catch_expr", 'e', 2)
/* Pop the top element off the dynamic handler chain. Used in /* Pop the top element off the dynamic handler chain. Used in
conjunction with setjmp/longjmp based exception handling, see conjunction with setjmp/longjmp based exception handling, see
except.c for more details. This is meant to be used only by the except.c for more details. This is meant to be used only by the
exception handling backend, expand_dhc_cleanup specifically. */ exception handling backend, expand_dhc_cleanup specifically. */
DEFTREECODE (POPDHC_EXPR, "popdhc_expr", "s", 0) DEFTREECODE (POPDHC_EXPR, "popdhc_expr", 's', 0)
/* Pop the top element off the dynamic cleanup chain. Used in /* Pop the top element off the dynamic cleanup chain. Used in
conjunction with the exception handling. This is meant to be used conjunction with the exception handling. This is meant to be used
only by the exception handling backend. */ only by the exception handling backend. */
DEFTREECODE (POPDCC_EXPR, "popdcc_expr", "s", 0) DEFTREECODE (POPDCC_EXPR, "popdcc_expr", 's', 0)
/* These types of expressions have no useful value, /* These types of expressions have no useful value,
and always have side effects. */ and always have side effects. */
...@@ -717,27 +717,27 @@ DEFTREECODE (POPDCC_EXPR, "popdcc_expr", "s", 0) ...@@ -717,27 +717,27 @@ DEFTREECODE (POPDCC_EXPR, "popdcc_expr", "s", 0)
/* A label definition, encapsulated as a statement. /* A label definition, encapsulated as a statement.
Operand 0 is the LABEL_DECL node for the label that appears here. Operand 0 is the LABEL_DECL node for the label that appears here.
The type should be void and the value should be ignored. */ The type should be void and the value should be ignored. */
DEFTREECODE (LABEL_EXPR, "label_expr", "s", 1) DEFTREECODE (LABEL_EXPR, "label_expr", 's', 1)
/* GOTO. Operand 0 is a LABEL_DECL node. /* GOTO. Operand 0 is a LABEL_DECL node.
The type should be void and the value should be ignored. */ The type should be void and the value should be ignored. */
DEFTREECODE (GOTO_EXPR, "goto_expr", "s", 1) DEFTREECODE (GOTO_EXPR, "goto_expr", 's', 1)
/* RETURN. Evaluates operand 0, then returns from the current function. /* RETURN. Evaluates operand 0, then returns from the current function.
Presumably that operand is an assignment that stores into the Presumably that operand is an assignment that stores into the
RESULT_DECL that hold the value to be returned. RESULT_DECL that hold the value to be returned.
The operand may be null. The operand may be null.
The type should be void and the value should be ignored. */ The type should be void and the value should be ignored. */
DEFTREECODE (RETURN_EXPR, "return_expr", "s", 1) DEFTREECODE (RETURN_EXPR, "return_expr", 's', 1)
/* Exit the inner most loop conditionally. Operand 0 is the condition. /* Exit the inner most loop conditionally. Operand 0 is the condition.
The type should be void and the value should be ignored. */ The type should be void and the value should be ignored. */
DEFTREECODE (EXIT_EXPR, "exit_expr", "s", 1) DEFTREECODE (EXIT_EXPR, "exit_expr", 's', 1)
/* A loop. Operand 0 is the body of the loop. /* A loop. Operand 0 is the body of the loop.
It must contain an EXIT_EXPR or is an infinite loop. It must contain an EXIT_EXPR or is an infinite loop.
The type should be void and the value should be ignored. */ The type should be void and the value should be ignored. */
DEFTREECODE (LOOP_EXPR, "loop_expr", "s", 1) DEFTREECODE (LOOP_EXPR, "loop_expr", 's', 1)
/* /*
Local variables: Local variables:
......
...@@ -47,16 +47,17 @@ enum tree_code { ...@@ -47,16 +47,17 @@ enum tree_code {
constant, `d' for a decl, `t' for a type, `s' for a statement, constant, `d' for a decl, `t' for a type, `s' for a statement,
and `x' for anything else (TREE_LIST, IDENTIFIER, etc). */ and `x' for anything else (TREE_LIST, IDENTIFIER, etc). */
extern char **tree_code_type; #define MAX_TREE_CODES 256
#define TREE_CODE_CLASS(CODE) (*tree_code_type[(int) (CODE)]) extern char tree_code_type[MAX_TREE_CODES];
#define TREE_CODE_CLASS(CODE) tree_code_type[(int) (CODE)]
/* Number of argument-words in each kind of tree-node. */ /* Number of argument-words in each kind of tree-node. */
extern int *tree_code_length; extern int tree_code_length[MAX_TREE_CODES];
/* Names of tree components. */ /* Names of tree components. */
extern char **tree_code_name; extern char *tree_code_name[MAX_TREE_CODES];
/* Codes that identify the various built in functions /* Codes that identify the various built in functions
so that expand_call can identify them quickly. */ so that expand_call can identify them quickly. */
......
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