1 /* Interprocedural reference lists.
2 Copyright (C) 2010-2014 Free Software Foundation, Inc.
3 Contributed by Jan Hubicka
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 3, or (at your option) any later
12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
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/>. */
23 #include "coretypes.h"
29 #include "plugin-api.h"
35 #include "hard-reg-set.h"
40 #include "ipa-utils.h"
42 /* Remove reference. */
45 ipa_ref::remove_reference ()
47 struct ipa_ref_list
*list
= referred_ref_list ();
48 struct ipa_ref_list
*list2
= referring_ref_list ();
49 vec
<ipa_ref_t
, va_gc
> *old_references
= list2
->references
;
52 gcc_assert (list
->referring
[referred_index
] == this);
54 last
= list
->referring
.last ();
57 if (use
== IPA_REF_ALIAS
)
59 /* If deleted item is IPA_REF_ALIAS, we have to move last
60 item of IPA_REF_LIST type to the deleted position. After that
61 we replace last node with deletion slot. */
62 struct ipa_ref
*last_alias
= list
->last_alias ();
64 if (last_alias
&& referred_index
< last_alias
->referred_index
65 && last_alias
!= last
)
67 unsigned last_alias_index
= last_alias
->referred_index
;
69 list
->referring
[referred_index
] = last_alias
;
70 list
->referring
[referred_index
]->referred_index
= referred_index
;
72 /* New position for replacement is previous index
74 referred_index
= last_alias_index
;
78 list
->referring
[referred_index
] = list
->referring
.last ();
79 list
->referring
[referred_index
]->referred_index
= referred_index
;
81 list
->referring
.pop ();
83 last
= &list2
->references
->last ();
85 struct ipa_ref
*ref
= this;
90 ref
->referred_ref_list ()->referring
[referred_index
] = ref
;
92 list2
->references
->pop ();
93 gcc_assert (list2
->references
== old_references
);
96 /* Return true when execution of reference can lead to return from
100 ipa_ref::cannot_lead_to_return ()
102 return dyn_cast
<cgraph_node
*> (referring
)->cannot_return_p ();
105 /* Return reference list this reference is in. */
107 struct ipa_ref_list
*
108 ipa_ref::referring_ref_list (void)
110 return &referring
->ref_list
;
113 /* Return reference list this reference is in. */
115 struct ipa_ref_list
*
116 ipa_ref::referred_ref_list (void)
118 return &referred
->ref_list
;