1 /*
2 * Copyright (c) 1999, 2010, Oracle and/or its affiliates. All rights reserved.
3 * Copyright 2008, 2009 Red Hat, Inc.
4 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5 *
6 * This code is free software; you can redistribute it and/or modify it
7 * under the terms of the GNU General Public License version 2 only, as
8 * published by the Free Software Foundation.
9 *
10 * This code is distributed in the hope that it will be useful, but WITHOUT
11 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
12 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
13 * version 2 for more details (a copy is included in the LICENSE file that
14 * accompanied this code).
15 *
16 * You should have received a copy of the GNU General Public License version
17 * 2 along with this work; if not, write to the Free Software Foundation,
18 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
19 *
20 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
21 * or visit www.oracle.com if you need additional information or have any
22 * questions.
23 *
24 */
25
26 #include "precompiled.hpp"
27 #include "ci/ciType.hpp"
28 #include "shark/llvmHeaders.hpp"
29 #include "shark/llvmValue.hpp"
30 #include "shark/sharkBuilder.hpp"
31 #include "shark/sharkValue.hpp"
32
33 using namespace llvm;
34
35 // Cloning
36
37 SharkValue* SharkNormalValue::clone() const {
38 return SharkValue::create_generic(type(), generic_value(), zero_checked());
39 }
40 SharkValue* SharkPHIValue::clone() const {
41 return SharkValue::create_phi(type(), (PHINode *) generic_value(), this);
42 }
43 SharkValue* SharkAddressValue::clone() const {
44 return SharkValue::address_constant(address_value());
45 }
46
47 // Casting
48
49 bool SharkValue::is_phi() const {
50 return false;
51 }
52 bool SharkPHIValue::is_phi() const {
53 return true;
54 }
55 SharkPHIValue* SharkValue::as_phi() {
56 ShouldNotCallThis();
57 }
58 SharkPHIValue* SharkPHIValue::as_phi() {
59 return this;
60 }
61
62 // Comparison
63
64 bool SharkNormalValue::equal_to(SharkValue *other) const {
65 return (this->type() == other->type() &&
66 this->generic_value() == other->generic_value() &&
67 this->zero_checked() == other->zero_checked());
68 }
69 bool SharkAddressValue::equal_to(SharkValue *other) const {
70 return (this->address_value() == other->address_value());
71 }
72
73 // Type access
74
75 ciType* SharkValue::type() const {
76 ShouldNotCallThis();
77 }
78 ciType* SharkNormalValue::type() const {
79 return _type;
80 }
81
82 BasicType SharkNormalValue::basic_type() const {
83 return type()->basic_type();
84 }
85 BasicType SharkAddressValue::basic_type() const {
86 return T_ADDRESS;
87 }
88
89 int SharkNormalValue::size() const {
90 return type()->size();
91 }
92 int SharkAddressValue::size() const {
93 return 1;
94 }
95
96 bool SharkValue::is_jint() const {
97 return false;
98 }
99 bool SharkValue::is_jlong() const {
100 return false;
101 }
102 bool SharkValue::is_jfloat() const {
103 return false;
104 }
105 bool SharkValue::is_jdouble() const {
106 return false;
107 }
108 bool SharkValue::is_jobject() const {
109 return false;
110 }
111 bool SharkValue::is_jarray() const {
112 return false;
113 }
114 bool SharkValue::is_address() const {
115 return false;
116 }
117
118 bool SharkNormalValue::is_jint() const {
119 return llvm_value()->getType() == SharkType::jint_type();
120 }
121 bool SharkNormalValue::is_jlong() const {
122 return llvm_value()->getType() == SharkType::jlong_type();
123 }
124 bool SharkNormalValue::is_jfloat() const {
125 return llvm_value()->getType() == SharkType::jfloat_type();
126 }
127 bool SharkNormalValue::is_jdouble() const {
128 return llvm_value()->getType() == SharkType::jdouble_type();
129 }
130 bool SharkNormalValue::is_jobject() const {
131 return llvm_value()->getType() == SharkType::oop_type();
132 }
133 bool SharkNormalValue::is_jarray() const {
134 return basic_type() == T_ARRAY;
135 }
136 bool SharkAddressValue::is_address() const {
137 return true;
138 }
139
140 // Typed conversions from SharkValues
141
142 Value* SharkValue::jint_value() const {
143 ShouldNotCallThis();
144 }
145 Value* SharkValue::jlong_value() const {
146 ShouldNotCallThis();
147 }
148 Value* SharkValue::jfloat_value() const {
149 ShouldNotCallThis();
150 }
151 Value* SharkValue::jdouble_value() const {
152 ShouldNotCallThis();
153 }
154 Value* SharkValue::jobject_value() const {
155 ShouldNotCallThis();
156 }
157 Value* SharkValue::jarray_value() const {
158 ShouldNotCallThis();
159 }
160 int SharkValue::address_value() const {
161 ShouldNotCallThis();
162 }
163
164 Value* SharkNormalValue::jint_value() const {
165 assert(is_jint(), "should be");
166 return llvm_value();
167 }
168 Value* SharkNormalValue::jlong_value() const {
169 assert(is_jlong(), "should be");
170 return llvm_value();
171 }
172 Value* SharkNormalValue::jfloat_value() const {
173 assert(is_jfloat(), "should be");
174 return llvm_value();
175 }
176 Value* SharkNormalValue::jdouble_value() const {
177 assert(is_jdouble(), "should be");
178 return llvm_value();
179 }
180 Value* SharkNormalValue::jobject_value() const {
181 assert(is_jobject(), "should be");
182 return llvm_value();
183 }
184 Value* SharkNormalValue::jarray_value() const {
185 // XXX assert(is_jarray(), "should be");
186 // XXX http://icedtea.classpath.org/bugzilla/show_bug.cgi?id=324
187 assert(is_jobject(), "should be");
188 return llvm_value();
189 }
190 int SharkAddressValue::address_value() const {
191 return _bci;
192 }
193
194 // Type-losing conversions -- use with care!
195
196 Value* SharkNormalValue::generic_value() const {
197 return llvm_value();
198 }
199 Value* SharkAddressValue::generic_value() const {
200 return LLVMValue::intptr_constant(address_value());
201 }
202
203 Value* SharkValue::intptr_value(SharkBuilder* builder) const {
204 ShouldNotCallThis();
205 }
206 Value* SharkNormalValue::intptr_value(SharkBuilder* builder) const {
207 return builder->CreatePtrToInt(jobject_value(), SharkType::intptr_type());
208 }
209
210 // Phi-style stuff for SharkPHIState::add_incoming
211
212 void SharkValue::addIncoming(SharkValue *value, BasicBlock* block) {
213 ShouldNotCallThis();
214 }
215 void SharkPHIValue::addIncoming(SharkValue *value, BasicBlock* block) {
216 assert(!is_clone(), "shouldn't be");
217 ((llvm::PHINode *) generic_value())->addIncoming(
218 value->generic_value(), block);
219 if (!value->zero_checked())
220 _all_incomers_zero_checked = false;
221 }
222 void SharkAddressValue::addIncoming(SharkValue *value, BasicBlock* block) {
223 assert(this->equal_to(value), "should be");
224 }
225
226 // Phi-style stuff for SharkState::merge
227
228 SharkValue* SharkNormalValue::merge(SharkBuilder* builder,
229 SharkValue* other,
230 BasicBlock* other_block,
231 BasicBlock* this_block,
232 const char* name) {
233 assert(type() == other->type(), "should be");
234 assert(zero_checked() == other->zero_checked(), "should be");
235
236 PHINode *phi = builder->CreatePHI(SharkType::to_stackType(type()), 0, name);
237 phi->addIncoming(this->generic_value(), this_block);
238 phi->addIncoming(other->generic_value(), other_block);
239 return SharkValue::create_generic(type(), phi, zero_checked());
240 }
241 SharkValue* SharkAddressValue::merge(SharkBuilder* builder,
242 SharkValue* other,
243 BasicBlock* other_block,
244 BasicBlock* this_block,
245 const char* name) {
246 assert(this->equal_to(other), "should be");
247 return this;
248 }
249
250 // Repeated null and divide-by-zero check removal
251
252 bool SharkValue::zero_checked() const {
253 ShouldNotCallThis();
254 }
255 void SharkValue::set_zero_checked(bool zero_checked) {
256 ShouldNotCallThis();
257 }
258
259 bool SharkNormalValue::zero_checked() const {
260 return _zero_checked;
261 }
262 void SharkNormalValue::set_zero_checked(bool zero_checked) {
263 _zero_checked = zero_checked;
264 }