1 /* Convert language-specific tree expression to rtl instructions,
3 Copyright (C) 1988-2013 Free Software Foundation, Inc.
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
12 GCC is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3. If not see
19 <http://www.gnu.org/licenses/>. */
24 #include "coretypes.h"
31 /* Expand C++-specific constants. Currently, this means PTRMEM_CST. */
34 cplus_expand_constant (tree cst)
36 switch (TREE_CODE (cst))
40 tree type = TREE_TYPE (cst);
43 /* Find the member. */
44 member = PTRMEM_CST_MEMBER (cst);
46 if (TREE_CODE (member) == FIELD_DECL)
48 /* Find the offset for the field. */
49 cst = byte_position (member);
50 while (!same_type_p (DECL_CONTEXT (member),
51 TYPE_PTRMEM_CLASS_TYPE (type)))
53 /* The MEMBER must have been nestled within an
54 anonymous aggregate contained in TYPE. Find the
55 anonymous aggregate. */
56 member = lookup_anon_field (TYPE_PTRMEM_CLASS_TYPE (type),
57 DECL_CONTEXT (member));
58 cst = size_binop (PLUS_EXPR, cst, byte_position (member));
60 cst = fold (build_nop (type, cst));
67 expand_ptrmemfunc_cst (cst, &delta, &pfn);
68 cst = build_ptrmemfunc1 (type, delta, pfn);
74 /* There's nothing to do. */
81 /* Called whenever an expression is used
82 in a rvalue context. */
85 mark_rvalue_use (tree expr)
91 /* Called whenever an expression is used
92 in a lvalue context. */
95 mark_lvalue_use (tree expr)
101 /* Called whenever an expression is used in a type use context. */
104 mark_type_use (tree expr)
106 mark_exp_read (expr);
110 /* Mark EXP as read, not just set, for set but not used -Wunused
114 mark_exp_read (tree exp)
119 switch (TREE_CODE (exp))
123 DECL_READ_P (exp) = 1;
134 mark_exp_read (TREE_OPERAND (exp, 0));
137 mark_exp_read (TREE_OPERAND (exp, 1));
140 if (TREE_OPERAND (exp, 1))
141 mark_exp_read (TREE_OPERAND (exp, 1));
142 if (TREE_OPERAND (exp, 2))
143 mark_exp_read (TREE_OPERAND (exp, 2));