Wed, 08 Apr 2009 10:56:49 -0700
6655638: dynamic languages need method handles
Summary: initial implementation, with known omissions (x86/64, sparc, compiler optim., c-oops, C++ interp.)
Reviewed-by: kvn, twisti, never
duke@435 | 1 | /* |
duke@435 | 2 | * Copyright 2006-2007 Sun Microsystems, Inc. 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 | * |
duke@435 | 19 | * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara, |
duke@435 | 20 | * CA 95054 USA or visit www.sun.com if you need additional information or |
duke@435 | 21 | * have any questions. |
duke@435 | 22 | * |
duke@435 | 23 | */ |
duke@435 | 24 | |
duke@435 | 25 | inline VMReg RegisterImpl::as_VMReg() { |
duke@435 | 26 | if( this==noreg ) return VMRegImpl::Bad(); |
duke@435 | 27 | return VMRegImpl::as_VMReg(encoding() << 1 ); |
duke@435 | 28 | } |
duke@435 | 29 | |
duke@435 | 30 | inline VMReg FloatRegisterImpl::as_VMReg() { return VMRegImpl::as_VMReg( ConcreteRegisterImpl::max_gpr + encoding() ); } |
duke@435 | 31 | |
duke@435 | 32 | |
duke@435 | 33 | inline bool VMRegImpl::is_Register() { return value() >= 0 && value() < ConcreteRegisterImpl::max_gpr; } |
duke@435 | 34 | inline bool VMRegImpl::is_FloatRegister() { return value() >= ConcreteRegisterImpl::max_gpr && |
duke@435 | 35 | value() < ConcreteRegisterImpl::max_fpr; } |
duke@435 | 36 | inline Register VMRegImpl::as_Register() { |
duke@435 | 37 | |
duke@435 | 38 | assert( is_Register() && is_even(value()), "even-aligned GPR name" ); |
duke@435 | 39 | // Yuk |
duke@435 | 40 | return ::as_Register(value()>>1); |
duke@435 | 41 | } |
duke@435 | 42 | |
duke@435 | 43 | inline FloatRegister VMRegImpl::as_FloatRegister() { |
duke@435 | 44 | assert( is_FloatRegister(), "must be" ); |
duke@435 | 45 | // Yuk |
duke@435 | 46 | return ::as_FloatRegister( value() - ConcreteRegisterImpl::max_gpr ); |
duke@435 | 47 | } |
duke@435 | 48 | |
duke@435 | 49 | inline bool VMRegImpl::is_concrete() { |
duke@435 | 50 | assert(is_reg(), "must be"); |
duke@435 | 51 | int v = value(); |
duke@435 | 52 | if ( v < ConcreteRegisterImpl::max_gpr ) { |
duke@435 | 53 | return is_even(v); |
duke@435 | 54 | } |
duke@435 | 55 | // F0..F31 |
duke@435 | 56 | if ( v <= ConcreteRegisterImpl::max_gpr + 31) return true; |
duke@435 | 57 | if ( v < ConcreteRegisterImpl::max_fpr) { |
duke@435 | 58 | return is_even(v); |
duke@435 | 59 | } |
duke@435 | 60 | assert(false, "what register?"); |
duke@435 | 61 | return false; |
duke@435 | 62 | } |