1 /* Convert language-specific tree expression to rtl instructions,
3 Copyright (C) 1988, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
4 2000, 2001, 2002, 2003, 2004, 2007, 2010 Free Software Foundation, Inc.
6 This file is part of GCC.
8 GCC is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3, or (at your option)
13 GCC is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING3. If not see
20 <http://www.gnu.org/licenses/>. */
25 #include "coretypes.h"
33 /* Expand C++-specific constants. Currently, this means PTRMEM_CST. */
36 cplus_expand_constant (tree cst
)
38 switch (TREE_CODE (cst
))
42 tree type
= TREE_TYPE (cst
);
45 /* Find the member. */
46 member
= PTRMEM_CST_MEMBER (cst
);
48 if (TREE_CODE (member
) == FIELD_DECL
)
50 /* Find the offset for the field. */
51 cst
= byte_position (member
);
52 while (!same_type_p (DECL_CONTEXT (member
),
53 TYPE_PTRMEM_CLASS_TYPE (type
)))
55 /* The MEMBER must have been nestled within an
56 anonymous aggregate contained in TYPE. Find the
57 anonymous aggregate. */
58 member
= lookup_anon_field (TYPE_PTRMEM_CLASS_TYPE (type
),
59 DECL_CONTEXT (member
));
60 cst
= size_binop (PLUS_EXPR
, cst
, byte_position (member
));
62 cst
= fold (build_nop (type
, cst
));
69 expand_ptrmemfunc_cst (cst
, &delta
, &pfn
);
70 cst
= build_ptrmemfunc1 (type
, delta
, pfn
);
76 /* There's nothing to do. */
83 /* Called whenever an expression is used
84 in a rvalue context. */
87 mark_rvalue_use (tree expr
)
93 /* Called whenever an expression is used
94 in a lvalue context. */
97 mark_lvalue_use (tree expr
)
103 /* Called whenever an expression is used in a type use context. */
106 mark_type_use (tree expr
)
108 mark_exp_read (expr
);
112 /* Mark EXP as read, not just set, for set but not used -Wunused
116 mark_exp_read (tree exp
)
121 switch (TREE_CODE (exp
))
125 DECL_READ_P (exp
) = 1;
135 mark_exp_read (TREE_OPERAND (exp
, 0));
138 mark_exp_read (TREE_OPERAND (exp
, 1));
141 if (TREE_OPERAND (exp
, 1))
142 mark_exp_read (TREE_OPERAND (exp
, 1));
143 if (TREE_OPERAND (exp
, 2))
144 mark_exp_read (TREE_OPERAND (exp
, 2));