hotspot/src/cpu/s390/vm/vmreg_s390.cpp
author redestad
Mon, 03 Jul 2017 09:01:34 +0200
changeset 46608 b0da00b77053
parent 42065 6032b31e3719
permissions -rw-r--r--
8183232: Avoid resolving method_kind in AbstractInterpreter::can_be_compiled Reviewed-by: coleenp, mdoerr, neliasso
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
42065
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
     1
/*
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
     2
 * Copyright (c) 2016, Oracle and/or its affiliates. All rights reserved.
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
     3
 * Copyright (c) 2016 SAP SE. All rights reserved.
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
     4
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
     5
 *
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
     6
 * This code is free software; you can redistribute it and/or modify it
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
     7
 * under the terms of the GNU General Public License version 2 only, as
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
     8
 * published by the Free Software Foundation.
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
     9
 *
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    10
 * This code is distributed in the hope that it will be useful, but WITHOUT
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    11
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    12
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    13
 * version 2 for more details (a copy is included in the LICENSE file that
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    14
 * accompanied this code).
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    15
 *
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    16
 * You should have received a copy of the GNU General Public License version
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    17
 * 2 along with this work; if not, write to the Free Software Foundation,
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    18
 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    19
 *
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    20
 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    21
 * or visit www.oracle.com if you need additional information or have any
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    22
 * questions.
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    23
 *
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    24
 */
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    25
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    26
#include "precompiled.hpp"
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    27
#include "asm/assembler.hpp"
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    28
#include "code/vmreg.hpp"
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    29
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    30
void VMRegImpl::set_regName() {
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    31
  // Not clear why we have this duplication (triplication?)
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    32
  Register reg = ::as_Register(0);
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    33
  int i;
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    34
  for (i = 0; i < ConcreteRegisterImpl::max_gpr;) {
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    35
    regName[i++] = reg->name();
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    36
    regName[i++] = reg->name();
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    37
    reg = reg->successor();
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    38
  }
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    39
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    40
  FloatRegister freg = ::as_FloatRegister(0);
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    41
  for (; i < ConcreteRegisterImpl::max_fpr;) {
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    42
    regName[i++] = freg->name();
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    43
    regName[i++] = freg->name();
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    44
    freg = freg->successor();
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    45
  }
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    46
  for (; i < ConcreteRegisterImpl::number_of_registers; i ++) {
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    47
    regName[i] = "NON-GPR-XMM";
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    48
  }
6032b31e3719 8167673: [s390] The s390 port.
goetz
parents:
diff changeset
    49
}