205 // C-land is allowed to return sub-word values. Convert to integer type.
206 assert( retval != Type::TOP, "" );
207 if (retval == TypeInt::BOOL) {
208 retnode = _gvn.transform( new AndINode(retnode, intcon(0xFF)) );
209 } else if (retval == TypeInt::CHAR) {
210 retnode = _gvn.transform( new AndINode(retnode, intcon(0xFFFF)) );
211 } else if (retval == TypeInt::BYTE) {
212 retnode = _gvn.transform( new LShiftINode(retnode, intcon(24)) );
213 retnode = _gvn.transform( new RShiftINode(retnode, intcon(24)) );
214 } else if (retval == TypeInt::SHORT) {
215 retnode = _gvn.transform( new LShiftINode(retnode, intcon(16)) );
216 retnode = _gvn.transform( new RShiftINode(retnode, intcon(16)) );
217 }
218 map()->set_req( TypeFunc::Parms, retnode );
219 }
220
221 //-----------------------------
222
223 // Clear last_Java_sp
224 store_to_memory(NULL, adr_sp, null(), T_ADDRESS, NoAlias, MemNode::unordered);
225 // Clear last_Java_pc and (optionally)_flags
226 store_to_memory(NULL, adr_last_Java_pc, null(), T_ADDRESS, NoAlias, MemNode::unordered);
227 #if (defined(IA64) && !defined(AIX))
228 Node* adr_last_Java_fp = basic_plus_adr(top(), thread, in_bytes(JavaThread::last_Java_fp_offset()));
229 store_to_memory(NULL, adr_last_Java_fp, null(), T_ADDRESS, NoAlias, MemNode::unordered);
230 #endif
231
232 // For is-fancy-jump, the C-return value is also the branch target
233 Node* target = map()->in(TypeFunc::Parms);
234 // Runtime call returning oop in TLS? Fetch it out
235 if( pass_tls ) {
236 Node* adr = basic_plus_adr(top(), thread, in_bytes(JavaThread::vm_result_offset()));
237 Node* vm_result = make_load(NULL, adr, TypeOopPtr::BOTTOM, T_OBJECT, NoAlias, MemNode::unordered);
238 map()->set_req(TypeFunc::Parms, vm_result); // vm_result passed as result
239 // clear thread-local-storage(tls)
240 store_to_memory(NULL, adr, null(), T_ADDRESS, NoAlias, MemNode::unordered);
241 }
242
243 //-----------------------------
244 // check exception
245 Node* adr = basic_plus_adr(top(), thread, in_bytes(Thread::pending_exception_offset()));
|
205 // C-land is allowed to return sub-word values. Convert to integer type.
206 assert( retval != Type::TOP, "" );
207 if (retval == TypeInt::BOOL) {
208 retnode = _gvn.transform( new AndINode(retnode, intcon(0xFF)) );
209 } else if (retval == TypeInt::CHAR) {
210 retnode = _gvn.transform( new AndINode(retnode, intcon(0xFFFF)) );
211 } else if (retval == TypeInt::BYTE) {
212 retnode = _gvn.transform( new LShiftINode(retnode, intcon(24)) );
213 retnode = _gvn.transform( new RShiftINode(retnode, intcon(24)) );
214 } else if (retval == TypeInt::SHORT) {
215 retnode = _gvn.transform( new LShiftINode(retnode, intcon(16)) );
216 retnode = _gvn.transform( new RShiftINode(retnode, intcon(16)) );
217 }
218 map()->set_req( TypeFunc::Parms, retnode );
219 }
220
221 //-----------------------------
222
223 // Clear last_Java_sp
224 store_to_memory(NULL, adr_sp, null(), T_ADDRESS, NoAlias, MemNode::unordered);
225 // Clear last_Java_pc
226 store_to_memory(NULL, adr_last_Java_pc, null(), T_ADDRESS, NoAlias, MemNode::unordered);
227 #if (defined(IA64) && !defined(AIX))
228 Node* adr_last_Java_fp = basic_plus_adr(top(), thread, in_bytes(JavaThread::last_Java_fp_offset()));
229 store_to_memory(NULL, adr_last_Java_fp, null(), T_ADDRESS, NoAlias, MemNode::unordered);
230 #endif
231
232 // For is-fancy-jump, the C-return value is also the branch target
233 Node* target = map()->in(TypeFunc::Parms);
234 // Runtime call returning oop in TLS? Fetch it out
235 if( pass_tls ) {
236 Node* adr = basic_plus_adr(top(), thread, in_bytes(JavaThread::vm_result_offset()));
237 Node* vm_result = make_load(NULL, adr, TypeOopPtr::BOTTOM, T_OBJECT, NoAlias, MemNode::unordered);
238 map()->set_req(TypeFunc::Parms, vm_result); // vm_result passed as result
239 // clear thread-local-storage(tls)
240 store_to_memory(NULL, adr, null(), T_ADDRESS, NoAlias, MemNode::unordered);
241 }
242
243 //-----------------------------
244 // check exception
245 Node* adr = basic_plus_adr(top(), thread, in_bytes(Thread::pending_exception_offset()));
|