/*
* Copyright (c) 2015, 2016, Oracle and/or its affiliates. All rights reserved.
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
*
* This code is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License version 2 only, as
* published by the Free Software Foundation.
*
* This code is distributed in the hope that it will be useful, but WITHOUT
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
* version 2 for more details (a copy is included in the LICENSE file that
* accompanied this code).
*
* You should have received a copy of the GNU General Public License version
* 2 along with this work; if not, write to the Free Software Foundation,
* Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
*
* Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
* or visit www.oracle.com if you need additional information or have any
* questions.
*/
package jdk.vm.ci.code.test.sparc;
import jdk.vm.ci.code.CallingConvention;
import jdk.vm.ci.code.CodeCacheProvider;
import jdk.vm.ci.code.DebugInfo;
import jdk.vm.ci.code.Register;
import jdk.vm.ci.code.Register.RegisterCategory;
import jdk.vm.ci.code.RegisterValue;
import jdk.vm.ci.code.StackSlot;
import jdk.vm.ci.code.site.ConstantReference;
import jdk.vm.ci.code.site.DataSectionReference;
import jdk.vm.ci.code.test.TestAssembler;
import jdk.vm.ci.code.test.TestHotSpotVMConfig;
import jdk.vm.ci.hotspot.HotSpotCallingConventionType;
import jdk.vm.ci.hotspot.HotSpotCompiledCode;
import jdk.vm.ci.hotspot.HotSpotConstant;
import jdk.vm.ci.hotspot.HotSpotForeignCallTarget;
import jdk.vm.ci.hotspot.HotSpotResolvedJavaMethod;
import jdk.vm.ci.meta.AllocatableValue;
import jdk.vm.ci.meta.JavaKind;
import jdk.vm.ci.meta.VMConstant;
import jdk.vm.ci.sparc.SPARC;
import jdk.vm.ci.sparc.SPARCKind;
public class SPARCTestAssembler extends TestAssembler {
private static final int MASK13 = (1 << 13) - 1;
private static final Register scratchRegister = SPARC.g5;
private static final Register floatScratch = SPARC.f30;
private static final Register doubleScratch = SPARC.d62;
public SPARCTestAssembler(CodeCacheProvider codeCache, TestHotSpotVMConfig config) {
super(codeCache, config, 0, 16, SPARCKind.WORD, SPARC.l0, SPARC.l1, SPARC.l2, SPARC.l3, SPARC.l4, SPARC.l5, SPARC.l6, SPARC.l7);
}
private void emitOp2(Register rd, int op2, int imm22) {
assert isSimm(imm22, 22);
code.emitInt((0b00 << 30) | (rd.encoding << 25) | (op2 << 22) | imm22);
}
private void emitOp3(int op, Register rd, int op3, Register rs1, Register rs2) {
code.emitInt((op << 30) | (rd.encoding << 25) | (op3 << 19) | (rs1.encoding << 14) | rs2.encoding);
}
private void emitOp3(int op, Register rd, int op3, Register rs1, int simm13) {
assert isSimm(simm13, 13);
code.emitInt((op << 30) | (rd.encoding << 25) | (op3 << 19) | (rs1.encoding << 14) | (1 << 13) | (simm13 & MASK13));
}
private void emitNop() {
code.emitInt(1 << 24);
}
/**
* Minimum value for signed immediate ranges.
*/
public static long minSimm(long nbits) {
return -(1L << (nbits - 1));
}
/**
* Maximum value for signed immediate ranges.
*/
public static long maxSimm(long nbits) {
return (1L << (nbits - 1)) - 1;
}
/**
* Test if imm is within signed immediate range for nbits.
*/
public static boolean isSimm(long imm, int nbits) {
return minSimm(nbits) <= imm && imm <= maxSimm(nbits);
}
@Override
public void emitPrologue() {
// SAVE sp, -128, sp
emitOp3(0b10, SPARC.sp, 0b111100, SPARC.sp, -SPARC.REGISTER_SAFE_AREA_SIZE);
setDeoptRescueSlot(newStackSlot(SPARCKind.XWORD));
}
@Override
public void emitEpilogue() {
recordMark(config.MARKID_DEOPT_HANDLER_ENTRY);
recordCall(new HotSpotForeignCallTarget(config.handleDeoptStub), 4, true, null);
code.emitInt(1 << 30); // CALL
}
@Override
public HotSpotCompiledCode finish(HotSpotResolvedJavaMethod method) {
frameSize += SPARC.REGISTER_SAFE_AREA_SIZE;
return super.finish(method);
}
@Override
public void emitGrowStack(int size) {
frameSize += size;
if (isSimm(size, 13)) {
emitOp3(0b10, SPARC.sp, 0b000100, SPARC.sp, size); // SUB sp, size, sp
} else {
Register r = emitLoadInt(size);
emitOp3(0b10, SPARC.sp, 0b000100, SPARC.sp, r); // SUB sp, size, sp
}
}
@Override
public Register emitIntArg0() {
return codeCache.getRegisterConfig().getCallingConventionRegisters(HotSpotCallingConventionType.JavaCallee, JavaKind.Int).get(0);
}
@Override
public Register emitIntArg1() {
return codeCache.getRegisterConfig().getCallingConventionRegisters(HotSpotCallingConventionType.JavaCallee, JavaKind.Int).get(1);
}
@Override
public Register emitLoadInt(int c) {
Register ret = newRegister();
loadIntToRegister(c, ret);
return ret;
}
private Register loadIntToRegister(int c, Register ret) {
int hi = c >>> 10;
int lo = c & ((1 << 10) - 1);
if (hi == 0) {
emitOp3(0b10, ret, 0b000010, SPARC.g0, lo); // OR g0, lo, ret
} else {
emitOp2(ret, 0b100, hi); // SETHI hi, ret
if (lo != 0) {
emitOp3(0b10, ret, 0b000010, ret, lo); // OR ret, lo, ret
}
}
return ret;
}
@Override
public Register emitLoadLong(long c) {
Register ret = newRegister();
emitLoadLongToRegister(c, ret);
return ret;
}
private void loadLongToRegister(long c, Register ret) {
DataSectionReference ref = new DataSectionReference();
data.align(8);
ref.setOffset(data.position());
data.emitLong(c);
emitLoadPointerToRegister(ref, ret);
}
public Register emitLoadLongToRegister(long c, Register r) {
if ((c & 0xFFFF_FFFFL) == c) {
loadIntToRegister((int) c, r);
} else {
loadLongToRegister(c, r);
}
return r;
}
private void emitPatchableSethi(Register ret, boolean wide) {
int startPos = code.position();
emitOp2(ret, 0b100, 0); // SETHI 0, ret
if (wide) {
// pad for later patching
while (code.position() < (startPos + 28)) {
emitNop();
}
}
}
@Override
public Register emitLoadFloat(float c) {
return emitLoadFloat(SPARC.f0, c);
}
public Register emitLoadFloat(Register reg, float c) {
return emitLoadFloat(reg, c, newRegister());
}
public Register emitLoadFloat(Register reg, float c, Register scratch) {
DataSectionReference ref = new DataSectionReference();
data.align(4);
ref.setOffset(data.position());
data.emitFloat(c);
recordDataPatchInCode(ref);
emitPatchableSethi(scratch, true);
emitOp3(0b11, reg, 0b100000, scratch, 0); // LDF [scratch+0], f0
return reg;
}
public Register emitLoadDouble(Register reg, double c) {
return emitLoadDouble(reg, c, newRegister());
}
public Register emitLoadDouble(Register reg, double c, Register scratch) {
DataSectionReference ref = new DataSectionReference();
data.align(8);
ref.setOffset(data.position());
data.emitDouble(c);
recordDataPatchInCode(ref);
emitPatchableSethi(scratch, true);
emitOp3(0b11, reg, 0b100011, scratch, 0); // LDDF [ptr+0], f0
return reg;
}
@Override
public Register emitLoadPointer(HotSpotConstant c) {
Register ret = newRegister();
recordDataPatchInCode(new ConstantReference((VMConstant) c));
emitPatchableSethi(ret, !c.isCompressed());
emitOp3(0b10, ret, 0b000010, ret, 0); // OR ret, 0, ret
return ret;
}
@Override
public Register emitLoadPointer(DataSectionReference ref) {
Register ret = newRegister();
emitLoadPointerToRegister(ref, ret);
return ret;
}
private void emitLoadPointerToRegister(DataSectionReference ref, Register ret) {
recordDataPatchInCode(ref);
emitPatchableSethi(ret, true);
emitOp3(0b11, ret, 0b001011, ret, 0); // LDX [ret+0], ret
}
@Override
public Register emitLoadNarrowPointer(DataSectionReference ref) {
Register ret = newRegister();
recordDataPatchInCode(ref);
emitPatchableSethi(ret, true);
emitOp3(0b11, ret, 0b000000, ret, 0); // LDUW [ret+0], ret
return ret;
}
@Override
public Register emitLoadPointer(Register b, int offset) {
Register ret = newRegister();
emitOp3(0b11, ret, 0b001011, b, offset); // LDX [b+offset], ret
return ret;
}
@Override
public StackSlot emitIntToStack(Register a) {
StackSlot ret = newStackSlot(SPARCKind.WORD);
intToStack(a, ret);
return ret;
}
public void intToStack(Register a, StackSlot ret) {
// STW a, [(s|f)p+offset]
emitStore(0b000100, a, ret);
}
@Override
public StackSlot emitLongToStack(Register a) {
StackSlot ret = newStackSlot(SPARCKind.XWORD);
longToStack(a, ret);
return ret;
}
public void longToStack(Register a, StackSlot ret) {
// STX a, [(f|s)p+offset]
emitStore(0b001110, a, ret);
}
@Override
public StackSlot emitFloatToStack(Register a) {
StackSlot ret = newStackSlot(SPARCKind.SINGLE);
floatToStack(a, ret);
return ret;
}
public void floatToStack(Register a, StackSlot ret) {
// STF a, [fp+offset]
emitStore(0b100100, a, ret);
}
@Override
public StackSlot emitDoubleToStack(Register a) {
StackSlot ret = newStackSlot(SPARCKind.DOUBLE);
return doubleToStack(a, ret);
}
public StackSlot doubleToStack(Register a, StackSlot ret) {
// STD a, [(s|f)p+offset]
emitStore(0b100111, a, ret);
return ret;
}
@Override
public StackSlot emitPointerToStack(Register a) {
StackSlot ret = newStackSlot(SPARCKind.XWORD);
// STX a, [fp+offset]
emitStore(0b001110, a, ret);
return ret;
}
@Override
public StackSlot emitNarrowPointerToStack(Register a) {
StackSlot ret = newStackSlot(SPARCKind.WORD);
// STW a, [fp+offset]
emitStore(0b000100, a, ret);
return ret;
}
private void emitStore(int op3, Register a, StackSlot ret) {
Register base;
if (ret.getRawOffset() < 0) {
base = SPARC.fp;
} else {
base = SPARC.sp;
}
int offset = ret.getRawOffset() + SPARC.STACK_BIAS;
if (isSimm(offset, 13)) {
// op3 a, [sp+offset]
emitOp3(0b11, a, op3, base, offset);
} else {
assert a != SPARC.g3;
Register r = SPARC.g3;
loadLongToRegister(offset, r);
// op3 a, [sp+g3]
emitOp3(0b11, a, op3, base, r);
}
}
@Override
public Register emitUncompressPointer(Register compressed, long base, int shift) {
Register ret;
if (shift > 0) {
ret = newRegister();
emitOp3(0b10, ret, 0b100101, compressed, shift); // SLL compressed, shift, ret
} else {
ret = compressed;
}
if (base == 0) {
return ret;
} else {
Register b = emitLoadLong(base);
emitOp3(0b10, b, 0b00000, ret, b); // ADD b, ret, b
return b;
}
}
@Override
public Register emitIntAdd(Register a, Register b) {
Register ret = newRegister();
emitOp3(0b10, ret, 0b00000, a, b); // ADD a, b, ret
return ret;
}
private void emitMove(Register to, Register from) {
if (to != from) {
emitOp3(0b10, to, 0b000010, from, SPARC.g0); // OR from, g0, to
}
}
@Override
public void emitIntRet(Register a) {
emitPointerRet(a);
}
@Override
public void emitFloatRet(Register a) {
assert a == SPARC.f0 : "Unimplemented";
emitOp3(0b10, SPARC.g0, 0b111000, SPARC.i7, 8); // JMPL [i7+8], g0
emitOp3(0b10, SPARC.g0, 0b111101, SPARC.g0, SPARC.g0); // RESTORE g0, g0, g0
}
@Override
public void emitPointerRet(Register a) {
emitMove(SPARC.i0, a);
emitOp3(0b10, SPARC.g0, 0b111000, SPARC.i7, 8); // JMPL [i7+8], g0
emitOp3(0b10, SPARC.g0, 0b111101, SPARC.g0, SPARC.g0); // RESTORE g0, g0, g0
}
@Override
public void emitTrap(DebugInfo info) {
recordImplicitException(info);
emitOp3(0b11, SPARC.g0, 0b001011, SPARC.g0, 0); // LDX [g0+0], g0
}
@Override
public DataSectionReference emitDataItem(HotSpotConstant c) {
if (c.isCompressed()) {
data.align(4);
} else {
data.align(8);
}
return super.emitDataItem(c);
}
@Override
public void emitCall(long addr) {
Register dst = emitLoadLong(addr);
emitOp3(0b10, SPARC.o7, 0b111000, dst, 0); // JMPL [dst+0], o7
emitNop();
}
@Override
public void emitLoad(AllocatableValue av, Object prim) {
if (av instanceof RegisterValue) {
Register reg = ((RegisterValue) av).getRegister();
RegisterCategory cat = reg.getRegisterCategory();
if (cat.equals(SPARC.FPUs)) {
emitLoadFloat(reg, (Float) prim, scratchRegister);
} else if (cat.equals(SPARC.FPUd)) {
emitLoadDouble(reg, (Double) prim, scratchRegister);
} else if (prim instanceof Integer) {
loadIntToRegister((Integer) prim, reg);
} else if (prim instanceof Long) {
loadLongToRegister((Long) prim, reg);
}
} else if (av instanceof StackSlot) {
StackSlot slot = (StackSlot) av;
if (prim instanceof Float) {
floatToStack(emitLoadFloat(floatScratch, (Float) prim, scratchRegister), slot);
} else if (prim instanceof Double) {
doubleToStack(emitLoadDouble(doubleScratch, (Double) prim, scratchRegister), slot);
} else if (prim instanceof Integer) {
intToStack(loadIntToRegister((Integer) prim, scratchRegister), slot);
} else if (prim instanceof Long) {
longToStack(emitLoadLongToRegister((Long) prim, scratchRegister), slot);
}
} else {
throw new IllegalArgumentException("Unknown value " + av);
}
}
@Override
public void emitCallEpilogue(CallingConvention cc) {
// Nothing to do here.
}
@Override
public void emitCallPrologue(CallingConvention cc, Object... prim) {
emitGrowStack(cc.getStackSize());
frameSize += cc.getStackSize();
AllocatableValue[] args = cc.getArguments();
for (int i = 0; i < args.length; i++) {
emitLoad(args[i], prim[i]);
}
}
}