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));