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"
32 /* Expand C++-specific constants. Currently, this means PTRMEM_CST. */
35 cplus_expand_constant (tree cst)
37 switch (TREE_CODE (cst))
41 tree type = TREE_TYPE (cst);
44 /* Find the member. */
45 member = PTRMEM_CST_MEMBER (cst);
47 if (TREE_CODE (member) == FIELD_DECL)
49 /* Find the offset for the field. */
50 cst = byte_position (member);
51 while (!same_type_p (DECL_CONTEXT (member),
52 TYPE_PTRMEM_CLASS_TYPE (type)))
54 /* The MEMBER must have been nestled within an
55 anonymous aggregate contained in TYPE. Find the
56 anonymous aggregate. */
57 member = lookup_anon_field (TYPE_PTRMEM_CLASS_TYPE (type),
58 DECL_CONTEXT (member));
59 cst = size_binop (PLUS_EXPR, cst, byte_position (member));
61 cst = fold (build_nop (type, cst));
68 expand_ptrmemfunc_cst (cst, &delta, &pfn);
69 cst = build_ptrmemfunc1 (type, delta, pfn);
75 /* There's nothing to do. */
82 /* Called whenever an expression is used
83 in a rvalue context. */
86 mark_rvalue_use (tree expr)
92 /* Called whenever an expression is used
93 in a lvalue context. */
96 mark_lvalue_use (tree expr)
102 /* Called whenever an expression is used in a type use context. */
105 mark_type_use (tree expr)
107 mark_exp_read (expr);
111 /* Mark EXP as read, not just set, for set but not used -Wunused
115 mark_exp_read (tree exp)
120 switch (TREE_CODE (exp))
124 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));