Mercurial > hg > graal-compiler

comparison src/cpu/ppc/vm/ppc.ad @ 14726:92aa6797d639

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Backed out merge changeset: b51e29501f30 Backed out merge revision to its first parent (8f483e200405)
author Doug Simon <doug.simon@oracle.com>
date Mon, 24 Mar 2014 21:30:43 +0100
parents e5e8aa897002
children
comparison
equal deleted inserted replaced
14719:0bdd0d157040 14726:92aa6797d639
1006 return 24; 1006 return 24;
1007 } 1007 }
1008 } 1008 }
1009 1009
1010 int MachCallRuntimeNode::ret_addr_offset() { 1010 int MachCallRuntimeNode::ret_addr_offset() {
1011 #if defined(ABI_ELFv2)
1012 return 28;
1013 #else
1014 return 40; 1011 return 40;
1015 #endif
1016 } 1012 }
1017 1013
1018 //============================================================================= 1014 //=============================================================================
1019 1015
1020 // condition code conversions 1016 // condition code conversions
3676 // TODO: PPC port $archOpcode(ppc64Opcode_compound); 3672 // TODO: PPC port $archOpcode(ppc64Opcode_compound);
3677 3673
3678 MacroAssembler _masm(&cbuf); 3674 MacroAssembler _masm(&cbuf);
3679 const address start_pc = __ pc(); 3675 const address start_pc = __ pc();
3680 3676
3681 #if defined(ABI_ELFv2)
3682 address entry= !($meth$$method) ? NULL : (address)$meth$$method;
3683 __ call_c(entry, relocInfo::runtime_call_type);
3684 #else
3685 // The function we're going to call. 3677 // The function we're going to call.
3686 FunctionDescriptor fdtemp; 3678 FunctionDescriptor fdtemp;
3687 const FunctionDescriptor* fd = !($meth$$method) ? &fdtemp : (FunctionDescriptor*)$meth$$method; 3679 const FunctionDescriptor* fd = !($meth$$method) ? &fdtemp : (FunctionDescriptor*)$meth$$method;
3688 3680
3689 Register Rtoc = R12_scratch2; 3681 Register Rtoc = R12_scratch2;
3690 // Calculate the method's TOC. 3682 // Calculate the method's TOC.
3691 __ calculate_address_from_global_toc(Rtoc, __ method_toc()); 3683 __ calculate_address_from_global_toc(Rtoc, __ method_toc());
3692 // Put entry, env, toc into the constant pool, this needs up to 3 constant 3684 // Put entry, env, toc into the constant pool, this needs up to 3 constant
3693 // pool entries; call_c_using_toc will optimize the call. 3685 // pool entries; call_c_using_toc will optimize the call.
3694 __ call_c_using_toc(fd, relocInfo::runtime_call_type, Rtoc); 3686 __ call_c_using_toc(fd, relocInfo::runtime_call_type, Rtoc);
3695 #endif
3696 3687
3697 // Check the ret_addr_offset. 3688 // Check the ret_addr_offset.
3698 assert(((MachCallRuntimeNode*)this)->ret_addr_offset() == __ last_calls_return_pc() - start_pc, 3689 assert(((MachCallRuntimeNode*)this)->ret_addr_offset() == __ last_calls_return_pc() - start_pc,
3699 "Fix constant in ret_addr_offset()"); 3690 "Fix constant in ret_addr_offset()");
3700 %} 3691 %}
3706 // TODO: PPC port $archOpcode(ppc64Opcode_mtctr); 3697 // TODO: PPC port $archOpcode(ppc64Opcode_mtctr);
3707 MacroAssembler _masm(&cbuf); 3698 MacroAssembler _masm(&cbuf);
3708 __ mtctr($src$$Register); 3699 __ mtctr($src$$Register);
3709 %} 3700 %}
3710 3701
3711 // Postalloc expand emitter for runtime leaf calls. 3702 // postalloc expand emitter for runtime leaf calls.
3712 enc_class postalloc_expand_java_to_runtime_call(method meth, iRegLdst toc) %{ 3703 enc_class postalloc_expand_java_to_runtime_call(method meth, iRegLdst toc) %{
3713 loadConLNodesTuple loadConLNodes_Entry;
3714 #if defined(ABI_ELFv2)
3715 jlong entry_address = (jlong) this->entry_point();
3716 assert(entry_address, "need address here");
3717 loadConLNodes_Entry = loadConLNodesTuple_create(C, ra_, n_toc, new (C) immLOper(entry_address),
3718 OptoReg::Name(R12_H_num), OptoReg::Name(R12_num));
3719 #else
3720 // Get the struct that describes the function we are about to call. 3704 // Get the struct that describes the function we are about to call.
3721 FunctionDescriptor* fd = (FunctionDescriptor*) this->entry_point(); 3705 FunctionDescriptor* fd = (FunctionDescriptor*) this->entry_point();
3722 assert(fd, "need fd here"); 3706 assert(fd, "need fd here");
3723 jlong entry_address = (jlong) fd->entry();
3724 // new nodes 3707 // new nodes
3708 loadConLNodesTuple loadConLNodes_Entry;
3725 loadConLNodesTuple loadConLNodes_Env; 3709 loadConLNodesTuple loadConLNodes_Env;
3726 loadConLNodesTuple loadConLNodes_Toc; 3710 loadConLNodesTuple loadConLNodes_Toc;
3711 MachNode *mtctr = NULL;
3712 MachCallLeafNode *call = NULL;
3727 3713
3728 // Create nodes and operands for loading the entry point. 3714 // Create nodes and operands for loading the entry point.
3729 loadConLNodes_Entry = loadConLNodesTuple_create(C, ra_, n_toc, new (C) immLOper(entry_address), 3715 loadConLNodes_Entry = loadConLNodesTuple_create(C, ra_, n_toc, new (C) immLOper((jlong) fd->entry()),
3730 OptoReg::Name(R12_H_num), OptoReg::Name(R12_num)); 3716 OptoReg::Name(R12_H_num), OptoReg::Name(R12_num));
3731 3717
3732 3718
3733 // Create nodes and operands for loading the env pointer. 3719 // Create nodes and operands for loading the env pointer.
3734 if (fd->env() != NULL) { 3720 if (fd->env() != NULL) {
3745 } 3731 }
3746 3732
3747 // Create nodes and operands for loading the Toc point. 3733 // Create nodes and operands for loading the Toc point.
3748 loadConLNodes_Toc = loadConLNodesTuple_create(C, ra_, n_toc, new (C) immLOper((jlong) fd->toc()), 3734 loadConLNodes_Toc = loadConLNodesTuple_create(C, ra_, n_toc, new (C) immLOper((jlong) fd->toc()),
3749 OptoReg::Name(R2_H_num), OptoReg::Name(R2_num)); 3735 OptoReg::Name(R2_H_num), OptoReg::Name(R2_num));
3750 #endif // ABI_ELFv2
3751 // mtctr node 3736 // mtctr node
3752 MachNode *mtctr = new (C) CallLeafDirect_mtctrNode(); 3737 mtctr = new (C) CallLeafDirect_mtctrNode();
3753 3738
3754 assert(loadConLNodes_Entry._last != NULL, "entry must exist"); 3739 assert(loadConLNodes_Entry._last != NULL, "entry must exist");
3755 mtctr->add_req(0, loadConLNodes_Entry._last); 3740 mtctr->add_req(0, loadConLNodes_Entry._last);
3756 3741
3757 mtctr->_opnds[0] = new (C) iRegLdstOper(); 3742 mtctr->_opnds[0] = new (C) iRegLdstOper();
3758 mtctr->_opnds[1] = new (C) iRegLdstOper(); 3743 mtctr->_opnds[1] = new (C) iRegLdstOper();
3759 3744
3760 // call node 3745 // call node
3761 MachCallLeafNode *call = new (C) CallLeafDirectNode(); 3746 call = new (C) CallLeafDirectNode();
3762 3747
3763 call->_opnds[0] = _opnds[0]; 3748 call->_opnds[0] = _opnds[0];
3764 call->_opnds[1] = new (C) methodOper((intptr_t) entry_address); // May get set later. 3749 call->_opnds[1] = new (C) methodOper((intptr_t) fd->entry()); // may get set later
3765 3750
3766 // Make the new call node look like the old one. 3751 // Make the new call node look like the old one.
3767 call->_name = _name; 3752 call->_name = _name;
3768 call->_tf = _tf; 3753 call->_tf = _tf;
3769 call->_entry_point = _entry_point; 3754 call->_entry_point = _entry_point;
3786 } 3771 }
3787 3772
3788 // These must be reqired edges, as the registers are live up to 3773 // These must be reqired edges, as the registers are live up to
3789 // the call. Else the constants are handled as kills. 3774 // the call. Else the constants are handled as kills.
3790 call->add_req(mtctr); 3775 call->add_req(mtctr);
3791 #if !defined(ABI_ELFv2)
3792 call->add_req(loadConLNodes_Env._last); 3776 call->add_req(loadConLNodes_Env._last);
3793 call->add_req(loadConLNodes_Toc._last); 3777 call->add_req(loadConLNodes_Toc._last);
3794 #endif
3795 3778
3796 // ...as well as prec 3779 // ...as well as prec
3797 for (uint i = req(); i < len(); ++i) { 3780 for (uint i = req(); i < len(); ++i) {
3798 call->add_prec(in(i)); 3781 call->add_prec(in(i));
3799 } 3782 }
3802 ra_->set1(mtctr->_idx, OptoReg::Name(SR_CTR_num)); 3785 ra_->set1(mtctr->_idx, OptoReg::Name(SR_CTR_num));
3803 3786
3804 // Insert the new nodes. 3787 // Insert the new nodes.
3805 if (loadConLNodes_Entry._large_hi) nodes->push(loadConLNodes_Entry._large_hi); 3788 if (loadConLNodes_Entry._large_hi) nodes->push(loadConLNodes_Entry._large_hi);
3806 if (loadConLNodes_Entry._last) nodes->push(loadConLNodes_Entry._last); 3789 if (loadConLNodes_Entry._last) nodes->push(loadConLNodes_Entry._last);
3807 #if !defined(ABI_ELFv2)
3808 if (loadConLNodes_Env._large_hi) nodes->push(loadConLNodes_Env._large_hi); 3790 if (loadConLNodes_Env._large_hi) nodes->push(loadConLNodes_Env._large_hi);
3809 if (loadConLNodes_Env._last) nodes->push(loadConLNodes_Env._last); 3791 if (loadConLNodes_Env._last) nodes->push(loadConLNodes_Env._last);
3810 if (loadConLNodes_Toc._large_hi) nodes->push(loadConLNodes_Toc._large_hi); 3792 if (loadConLNodes_Toc._large_hi) nodes->push(loadConLNodes_Toc._large_hi);
3811 if (loadConLNodes_Toc._last) nodes->push(loadConLNodes_Toc._last); 3793 if (loadConLNodes_Toc._last) nodes->push(loadConLNodes_Toc._last);
3812 #endif
3813 nodes->push(mtctr); 3794 nodes->push(mtctr);
3814 nodes->push(call); 3795 nodes->push(call);
3815 %} 3796 %}
3816 %} 3797 %}
3817 3798
3854 3835
3855 // Number of outgoing stack slots killed above the 3836 // Number of outgoing stack slots killed above the
3856 // out_preserve_stack_slots for calls to C. Supports the var-args 3837 // out_preserve_stack_slots for calls to C. Supports the var-args
3857 // backing area for register parms. 3838 // backing area for register parms.
3858 // 3839 //
3859 varargs_C_out_slots_killed(((frame::abi_reg_args_size - frame::jit_out_preserve_size) / VMRegImpl::stack_slot_size)); 3840 varargs_C_out_slots_killed(((frame::abi_112_size - frame::jit_out_preserve_size) / VMRegImpl::stack_slot_size));
3860 3841
3861 // The after-PROLOG location of the return address. Location of 3842 // The after-PROLOG location of the return address. Location of
3862 // return address specifies a type (REG or STACK) and a number 3843 // return address specifies a type (REG or STACK) and a number
3863 // representing the register number (i.e. - use a register name) or 3844 // representing the register number (i.e. - use a register name) or
3864 // stack slot. 3845 // stack slot.