Wed, 18 Sep 2013 14:34:56 -0700
8024342: PPC64 (part 111): Support for C calling conventions that require 64-bit ints.
Summary: Some platforms, as ppc and s390x/zArch require that 32-bit ints are passed as 64-bit values to C functions. This change adds support to adapt the signature and to issue proper casts to c2-compiled stubs. The functions are used in generate_native_wrapper(). Adapt signature used by the compiler as in PhaseIdealLoop::intrinsify_fill().
Reviewed-by: kvn
duke@435 | 1 | /* |
coleenp@4037 | 2 | * Copyright (c) 1997, 2012, Oracle and/or its affiliates. All rights reserved. |
duke@435 | 3 | * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. |
duke@435 | 4 | * |
duke@435 | 5 | * This code is free software; you can redistribute it and/or modify it |
duke@435 | 6 | * under the terms of the GNU General Public License version 2 only, as |
duke@435 | 7 | * published by the Free Software Foundation. |
duke@435 | 8 | * |
duke@435 | 9 | * This code is distributed in the hope that it will be useful, but WITHOUT |
duke@435 | 10 | * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
duke@435 | 11 | * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
duke@435 | 12 | * version 2 for more details (a copy is included in the LICENSE file that |
duke@435 | 13 | * accompanied this code). |
duke@435 | 14 | * |
duke@435 | 15 | * You should have received a copy of the GNU General Public License version |
duke@435 | 16 | * 2 along with this work; if not, write to the Free Software Foundation, |
duke@435 | 17 | * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. |
duke@435 | 18 | * |
trims@1907 | 19 | * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA |
trims@1907 | 20 | * or visit www.oracle.com if you need additional information or have any |
trims@1907 | 21 | * questions. |
duke@435 | 22 | * |
duke@435 | 23 | */ |
duke@435 | 24 | |
stefank@2314 | 25 | #include "precompiled.hpp" |
kvn@5110 | 26 | #include "opto/callnode.hpp" |
stefank@2314 | 27 | #include "opto/matcher.hpp" |
stefank@2314 | 28 | #include "opto/multnode.hpp" |
stefank@2314 | 29 | #include "opto/opcodes.hpp" |
stefank@2314 | 30 | #include "opto/phaseX.hpp" |
stefank@2314 | 31 | #include "opto/regmask.hpp" |
stefank@2314 | 32 | #include "opto/type.hpp" |
duke@435 | 33 | |
duke@435 | 34 | //============================================================================= |
duke@435 | 35 | //------------------------------MultiNode-------------------------------------- |
duke@435 | 36 | const RegMask &MultiNode::out_RegMask() const { |
duke@435 | 37 | return RegMask::Empty; |
duke@435 | 38 | } |
duke@435 | 39 | |
duke@435 | 40 | Node *MultiNode::match( const ProjNode *proj, const Matcher *m ) { return proj->clone(); } |
duke@435 | 41 | |
duke@435 | 42 | //------------------------------proj_out--------------------------------------- |
duke@435 | 43 | // Get a named projection |
duke@435 | 44 | ProjNode* MultiNode::proj_out(uint which_proj) const { |
duke@435 | 45 | assert(Opcode() != Op_If || which_proj == (uint)true || which_proj == (uint)false, "must be 1 or 0"); |
duke@435 | 46 | assert(Opcode() != Op_If || outcnt() == 2, "bad if #1"); |
duke@435 | 47 | for( DUIterator_Fast imax, i = fast_outs(imax); i < imax; i++ ) { |
duke@435 | 48 | Node *p = fast_out(i); |
duke@435 | 49 | if( !p->is_Proj() ) { |
duke@435 | 50 | assert(p == this && this->is_Start(), "else must be proj"); |
duke@435 | 51 | continue; |
duke@435 | 52 | } |
duke@435 | 53 | ProjNode *proj = p->as_Proj(); |
duke@435 | 54 | if( proj->_con == which_proj ) { |
duke@435 | 55 | assert(Opcode() != Op_If || proj->Opcode() == (which_proj?Op_IfTrue:Op_IfFalse), "bad if #2"); |
duke@435 | 56 | return proj; |
duke@435 | 57 | } |
duke@435 | 58 | } |
duke@435 | 59 | return NULL; |
duke@435 | 60 | } |
duke@435 | 61 | |
duke@435 | 62 | //============================================================================= |
duke@435 | 63 | //------------------------------ProjNode--------------------------------------- |
duke@435 | 64 | uint ProjNode::hash() const { |
duke@435 | 65 | // only one input |
duke@435 | 66 | return (uintptr_t)in(TypeFunc::Control) + (_con << 1) + (_is_io_use ? 1 : 0); |
duke@435 | 67 | } |
duke@435 | 68 | uint ProjNode::cmp( const Node &n ) const { return _con == ((ProjNode&)n)._con && ((ProjNode&)n)._is_io_use == _is_io_use; } |
duke@435 | 69 | uint ProjNode::size_of() const { return sizeof(ProjNode); } |
duke@435 | 70 | |
duke@435 | 71 | // Test if we propagate interesting control along this projection |
duke@435 | 72 | bool ProjNode::is_CFG() const { |
duke@435 | 73 | Node *def = in(0); |
duke@435 | 74 | return (_con == TypeFunc::Control && def->is_CFG()); |
duke@435 | 75 | } |
duke@435 | 76 | |
kvn@5110 | 77 | const Type* ProjNode::proj_type(const Type* t) const { |
kvn@5110 | 78 | if (t == Type::TOP) { |
kvn@5110 | 79 | return Type::TOP; |
kvn@5110 | 80 | } |
kvn@5110 | 81 | if (t == Type::BOTTOM) { |
kvn@5110 | 82 | return Type::BOTTOM; |
kvn@5110 | 83 | } |
kvn@5110 | 84 | t = t->is_tuple()->field_at(_con); |
kvn@5110 | 85 | Node* n = in(0); |
kvn@5110 | 86 | if ((_con == TypeFunc::Parms) && |
kvn@5110 | 87 | n->is_CallStaticJava() && n->as_CallStaticJava()->is_boxing_method()) { |
kvn@5110 | 88 | // The result of autoboxing is always non-null on normal path. |
kvn@5110 | 89 | t = t->join(TypePtr::NOTNULL); |
kvn@5110 | 90 | } |
kvn@5110 | 91 | return t; |
kvn@5110 | 92 | } |
kvn@5110 | 93 | |
duke@435 | 94 | const Type *ProjNode::bottom_type() const { |
kvn@5110 | 95 | if (in(0) == NULL) return Type::TOP; |
kvn@5110 | 96 | return proj_type(in(0)->bottom_type()); |
duke@435 | 97 | } |
duke@435 | 98 | |
duke@435 | 99 | const TypePtr *ProjNode::adr_type() const { |
duke@435 | 100 | if (bottom_type() == Type::MEMORY) { |
duke@435 | 101 | // in(0) might be a narrow MemBar; otherwise we will report TypePtr::BOTTOM |
duke@435 | 102 | const TypePtr* adr_type = in(0)->adr_type(); |
duke@435 | 103 | #ifdef ASSERT |
duke@435 | 104 | if (!is_error_reported() && !Node::in_dump()) |
duke@435 | 105 | assert(adr_type != NULL, "source must have adr_type"); |
duke@435 | 106 | #endif |
duke@435 | 107 | return adr_type; |
duke@435 | 108 | } |
duke@435 | 109 | assert(bottom_type()->base() != Type::Memory, "no other memories?"); |
duke@435 | 110 | return NULL; |
duke@435 | 111 | } |
duke@435 | 112 | |
duke@435 | 113 | bool ProjNode::pinned() const { return in(0)->pinned(); } |
duke@435 | 114 | #ifndef PRODUCT |
duke@435 | 115 | void ProjNode::dump_spec(outputStream *st) const { st->print("#%d",_con); if(_is_io_use) st->print(" (i_o_use)");} |
duke@435 | 116 | #endif |
duke@435 | 117 | |
duke@435 | 118 | //----------------------------check_con---------------------------------------- |
duke@435 | 119 | void ProjNode::check_con() const { |
duke@435 | 120 | Node* n = in(0); |
duke@435 | 121 | if (n == NULL) return; // should be assert, but NodeHash makes bogons |
duke@435 | 122 | if (n->is_Mach()) return; // mach. projs. are not type-safe |
duke@435 | 123 | if (n->is_Start()) return; // alas, starts can have mach. projs. also |
duke@435 | 124 | if (_con == SCMemProjNode::SCMEMPROJCON ) return; |
duke@435 | 125 | const Type* t = n->bottom_type(); |
duke@435 | 126 | if (t == Type::TOP) return; // multi is dead |
duke@435 | 127 | assert(_con < t->is_tuple()->cnt(), "ProjNode::_con must be in range"); |
duke@435 | 128 | } |
duke@435 | 129 | |
duke@435 | 130 | //------------------------------Value------------------------------------------ |
duke@435 | 131 | const Type *ProjNode::Value( PhaseTransform *phase ) const { |
kvn@5110 | 132 | if (in(0) == NULL) return Type::TOP; |
kvn@5110 | 133 | return proj_type(phase->type(in(0))); |
duke@435 | 134 | } |
duke@435 | 135 | |
duke@435 | 136 | //------------------------------out_RegMask------------------------------------ |
duke@435 | 137 | // Pass the buck uphill |
duke@435 | 138 | const RegMask &ProjNode::out_RegMask() const { |
duke@435 | 139 | return RegMask::Empty; |
duke@435 | 140 | } |
duke@435 | 141 | |
duke@435 | 142 | //------------------------------ideal_reg-------------------------------------- |
duke@435 | 143 | uint ProjNode::ideal_reg() const { |
coleenp@4037 | 144 | return bottom_type()->ideal_reg(); |
duke@435 | 145 | } |