Mercurial > hg > graal-jvmci-8
annotate graal/com.oracle.graal.hotspot.sparc/src/com/oracle/graal/hotspot/sparc/SPARCHotSpotMove.java @ 21348:d24e4f349cbc
[SPARC] Implement load constant directly to stack
author | Stefan Anzinger <stefan.anzinger@oracle.com> |
---|---|
date | Tue, 12 May 2015 20:55:48 +0200 |
parents | ccddbb1409d2 |
children | f85738837dae |
rev | line source |
---|---|
21255
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
1 /* |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
2 * Copyright (c) 2013, 2015, Oracle and/or its affiliates. All rights reserved. |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
4 * |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
5 * This code is free software; you can redistribute it and/or modify it |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
6 * under the terms of the GNU General Public License version 2 only, as |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
7 * published by the Free Software Foundation. |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
8 * |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
9 * This code is distributed in the hope that it will be useful, but WITHOUT |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
12 * version 2 for more details (a copy is included in the LICENSE file that |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
13 * accompanied this code). |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
14 * |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
15 * You should have received a copy of the GNU General Public License version |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
16 * 2 along with this work; if not, write to the Free Software Foundation, |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
18 * |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
20 * or visit www.oracle.com if you need additional information or have any |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
21 * questions. |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
22 */ |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
23 package com.oracle.graal.hotspot.sparc; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
24 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
25 import static com.oracle.graal.api.code.ValueUtil.*; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
26 import static com.oracle.graal.lir.LIRInstruction.OperandFlag.*; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
27 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
28 import com.oracle.graal.api.code.*; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
29 import com.oracle.graal.api.meta.*; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
30 import com.oracle.graal.asm.*; |
21348
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
31 import com.oracle.graal.asm.sparc.*; |
21255
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
32 import com.oracle.graal.asm.sparc.SPARCAssembler.Annul; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
33 import com.oracle.graal.asm.sparc.SPARCAssembler.BranchPredict; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
34 import com.oracle.graal.asm.sparc.SPARCAssembler.CC; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
35 import com.oracle.graal.asm.sparc.SPARCAssembler.ConditionFlag; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
36 import com.oracle.graal.asm.sparc.SPARCAssembler.RCondition; |
21348
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
37 import com.oracle.graal.asm.sparc.SPARCMacroAssembler.ScratchRegister; |
21255
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
38 import com.oracle.graal.compiler.common.*; |
21348
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
39 import com.oracle.graal.hotspot.*; |
21255
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
40 import com.oracle.graal.hotspot.HotSpotVMConfig.CompressEncoding; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
41 import com.oracle.graal.hotspot.meta.*; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
42 import com.oracle.graal.lir.*; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
43 import com.oracle.graal.lir.StandardOp.MoveOp; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
44 import com.oracle.graal.lir.asm.*; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
45 import com.oracle.graal.lir.sparc.*; |
21348
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
46 import com.oracle.graal.sparc.*; |
21255
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
47 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
48 public class SPARCHotSpotMove { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
49 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
50 public static final class HotSpotLoadConstantOp extends SPARCLIRInstruction implements MoveOp { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
51 public static final LIRInstructionClass<HotSpotLoadConstantOp> TYPE = LIRInstructionClass.create(HotSpotLoadConstantOp.class); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
52 |
21348
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
53 @Def({REG, STACK}) private AllocatableValue result; |
21255
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
54 private final JavaConstant input; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
55 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
56 public HotSpotLoadConstantOp(AllocatableValue result, JavaConstant input) { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
57 super(TYPE); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
58 this.result = result; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
59 this.input = input; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
60 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
61 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
62 @Override |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
63 public void emitCode(CompilationResultBuilder crb, SPARCMacroAssembler masm) { |
21348
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
64 if (isStackSlot(result)) { |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
65 StackSlot ss = asStackSlot(result); |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
66 try (ScratchRegister s1 = masm.getScratchRegister()) { |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
67 Register sr1 = s1.getRegister(); |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
68 loadToRegister(crb, masm, sr1.asValue(), input); |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
69 try (ScratchRegister s2 = masm.getScratchRegister()) { |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
70 Register sr2 = s2.getRegister(); |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
71 int stackBias = HotSpotGraalRuntime.runtime().getConfig().stackBias; |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
72 new SPARCMacroAssembler.Setx(ss.getOffset(crb.frameMap.currentFrameSize()) + stackBias, sr2).emit(masm); |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
73 SPARCAddress addr = new SPARCAddress(SPARC.sp, sr2); |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
74 switch (((Kind) result.getPlatformKind()).getBitCount()) { |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
75 case 32: |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
76 masm.stw(sr1, addr); |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
77 break; |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
78 case 64: |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
79 masm.stx(sr1, addr); |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
80 break; |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
81 default: |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
82 throw GraalInternalError.shouldNotReachHere(); |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
83 } |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
84 } |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
85 } |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
86 } else { |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
87 loadToRegister(crb, masm, result, input); |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
88 } |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
89 } |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
90 |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
91 private static void loadToRegister(CompilationResultBuilder crb, SPARCMacroAssembler masm, AllocatableValue dest, JavaConstant constant) { |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
92 assert isRegister(dest); |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
93 if (HotSpotCompressedNullConstant.COMPRESSED_NULL.equals(constant)) { |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
94 masm.mov(0, asRegister(dest)); |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
95 } else if (constant instanceof HotSpotObjectConstant) { |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
96 boolean compressed = ((HotSpotObjectConstant) constant).isCompressed(); |
21255
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
97 if (crb.target.inlineObjects) { |
21348
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
98 crb.recordInlineDataInCode(constant); |
21255
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
99 if (compressed) { |
21348
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
100 masm.sethi(0xDEADDEAD >>> 10, asRegister(dest)); |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
101 masm.add(asRegister(dest), 0xAD & 0x3F, asRegister(dest)); |
21255
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
102 } else { |
21348
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
103 new SPARCMacroAssembler.Setx(0xDEADDEADDEADDEADL, asRegister(dest), true).emit(masm); |
21255
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
104 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
105 } else { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
106 GraalInternalError.unimplemented(); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
107 } |
21348
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
108 } else if (constant instanceof HotSpotMetaspaceConstant) { |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
109 assert constant.getKind() == Kind.Int || constant.getKind() == Kind.Long; |
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
110 boolean compressed = constant.getKind() == Kind.Int; |
21255
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
111 boolean isImmutable = GraalOptions.ImmutableCode.getValue(); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
112 boolean generatePIC = GraalOptions.GeneratePIC.getValue(); |
21348
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
113 crb.recordInlineDataInCode(constant); |
21255
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
114 if (compressed) { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
115 if (isImmutable && generatePIC) { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
116 GraalInternalError.unimplemented(); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
117 } else { |
21348
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
118 new SPARCMacroAssembler.Setx(constant.asInt(), asRegister(dest), true).emit(masm); |
21255
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
119 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
120 } else { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
121 if (isImmutable && generatePIC) { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
122 GraalInternalError.unimplemented(); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
123 } else { |
21348
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
124 new SPARCMacroAssembler.Setx(constant.asLong(), asRegister(dest), true).emit(masm); |
21255
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
125 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
126 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
127 } else { |
21348
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
128 SPARCMove.move(crb, masm, dest, constant, SPARCDelayedControlTransfer.DUMMY); |
21255
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
129 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
130 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
131 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
132 public Value getInput() { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
133 return input; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
134 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
135 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
136 public AllocatableValue getResult() { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
137 return result; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
138 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
139 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
140 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
141 public static final class CompressPointer extends SPARCLIRInstruction { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
142 public static final LIRInstructionClass<CompressPointer> TYPE = LIRInstructionClass.create(CompressPointer.class); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
143 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
144 private final CompressEncoding encoding; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
145 private final boolean nonNull; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
146 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
147 @Def({REG}) protected AllocatableValue result; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
148 @Use({REG}) protected AllocatableValue input; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
149 @Alive({REG, ILLEGAL}) protected AllocatableValue baseRegister; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
150 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
151 public CompressPointer(AllocatableValue result, AllocatableValue input, AllocatableValue baseRegister, CompressEncoding encoding, boolean nonNull) { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
152 super(TYPE); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
153 this.result = result; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
154 this.input = input; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
155 this.baseRegister = baseRegister; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
156 this.encoding = encoding; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
157 this.nonNull = nonNull; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
158 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
159 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
160 @Override |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
161 public void emitCode(CompilationResultBuilder crb, SPARCMacroAssembler masm) { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
162 SPARCMove.move(crb, masm, result, input, SPARCDelayedControlTransfer.DUMMY); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
163 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
164 Register resReg = asRegister(result); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
165 if (encoding.base != 0) { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
166 Register baseReg = asRegister(baseRegister); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
167 if (!nonNull) { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
168 masm.cmp(resReg, baseReg); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
169 masm.movcc(ConditionFlag.Equal, CC.Xcc, baseReg, resReg); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
170 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
171 masm.sub(resReg, baseReg, resReg); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
172 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
173 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
174 if (encoding.shift != 0) { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
175 masm.srlx(resReg, encoding.shift, resReg); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
176 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
177 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
178 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
179 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
180 public static final class UncompressPointer extends SPARCLIRInstruction { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
181 public static final LIRInstructionClass<UncompressPointer> TYPE = LIRInstructionClass.create(UncompressPointer.class); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
182 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
183 private final CompressEncoding encoding; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
184 private final boolean nonNull; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
185 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
186 @Def({REG}) protected AllocatableValue result; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
187 @Use({REG}) protected AllocatableValue input; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
188 @Alive({REG, ILLEGAL}) protected AllocatableValue baseRegister; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
189 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
190 public UncompressPointer(AllocatableValue result, AllocatableValue input, AllocatableValue baseRegister, CompressEncoding encoding, boolean nonNull) { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
191 super(TYPE); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
192 this.result = result; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
193 this.input = input; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
194 this.baseRegister = baseRegister; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
195 this.encoding = encoding; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
196 this.nonNull = nonNull; |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
197 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
198 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
199 @Override |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
200 public void emitCode(CompilationResultBuilder crb, SPARCMacroAssembler masm) { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
201 SPARCMove.move(crb, masm, result, input, SPARCDelayedControlTransfer.DUMMY); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
202 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
203 Register resReg = asRegister(result); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
204 if (encoding.shift != 0) { |
21348
d24e4f349cbc
[SPARC] Implement load constant directly to stack
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
21255
diff
changeset
|
205 masm.sll(resReg, encoding.shift, resReg); |
21255
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
206 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
207 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
208 if (encoding.base != 0) { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
209 if (nonNull) { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
210 masm.add(resReg, asRegister(baseRegister), resReg); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
211 } else { |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
212 masm.cmp(resReg, resReg); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
213 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
214 Label done = new Label(); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
215 masm.bpr(RCondition.Rc_nz, Annul.ANNUL, done, BranchPredict.PREDICT_TAKEN, resReg); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
216 masm.add(asRegister(baseRegister), resReg, resReg); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
217 masm.bind(done); |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
218 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
219 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
220 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
221 } |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
222 |
ccddbb1409d2
[SPARC] Implement Narrow OOPS
Stefan Anzinger <stefan.anzinger@oracle.com>
parents:
diff
changeset
|
223 } |