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 2005-2006 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 bool LinearScan::is_processed_reg_num(int reg_num) { |
duke@435 | 26 | return reg_num < 26 || reg_num > 31; |
duke@435 | 27 | } |
duke@435 | 28 | |
duke@435 | 29 | inline int LinearScan::num_physical_regs(BasicType type) { |
duke@435 | 30 | // Sparc requires two cpu registers for long |
duke@435 | 31 | // and two cpu registers for double |
duke@435 | 32 | #ifdef _LP64 |
duke@435 | 33 | if (type == T_DOUBLE) { |
duke@435 | 34 | #else |
duke@435 | 35 | if (type == T_DOUBLE || type == T_LONG) { |
duke@435 | 36 | #endif |
duke@435 | 37 | return 2; |
duke@435 | 38 | } |
duke@435 | 39 | return 1; |
duke@435 | 40 | } |
duke@435 | 41 | |
duke@435 | 42 | |
duke@435 | 43 | inline bool LinearScan::requires_adjacent_regs(BasicType type) { |
duke@435 | 44 | #ifdef _LP64 |
duke@435 | 45 | return type == T_DOUBLE; |
duke@435 | 46 | #else |
duke@435 | 47 | return type == T_DOUBLE || type == T_LONG; |
duke@435 | 48 | #endif |
duke@435 | 49 | } |
duke@435 | 50 | |
duke@435 | 51 | inline bool LinearScan::is_caller_save(int assigned_reg) { |
duke@435 | 52 | return assigned_reg > pd_last_callee_saved_reg && assigned_reg <= pd_last_fpu_reg; |
duke@435 | 53 | } |
duke@435 | 54 | |
duke@435 | 55 | |
duke@435 | 56 | inline void LinearScan::pd_add_temps(LIR_Op* op) { |
duke@435 | 57 | // No special case behaviours yet |
duke@435 | 58 | } |
duke@435 | 59 | |
duke@435 | 60 | |
duke@435 | 61 | inline bool LinearScanWalker::pd_init_regs_for_alloc(Interval* cur) { |
duke@435 | 62 | if (allocator()->gen()->is_vreg_flag_set(cur->reg_num(), LIRGenerator::callee_saved)) { |
duke@435 | 63 | assert(cur->type() != T_FLOAT && cur->type() != T_DOUBLE, "cpu regs only"); |
duke@435 | 64 | _first_reg = pd_first_callee_saved_reg; |
duke@435 | 65 | _last_reg = pd_last_callee_saved_reg; |
duke@435 | 66 | return true; |
duke@435 | 67 | } else if (cur->type() == T_INT || cur->type() == T_LONG || cur->type() == T_OBJECT) { |
duke@435 | 68 | _first_reg = pd_first_cpu_reg; |
duke@435 | 69 | _last_reg = pd_last_allocatable_cpu_reg; |
duke@435 | 70 | return true; |
duke@435 | 71 | } |
duke@435 | 72 | return false; |
duke@435 | 73 | } |