1 /*
2 * Copyright (c) 2016, Oracle and/or its affiliates. All rights reserved.
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 *
5 * This code is free software; you can redistribute it and/or modify it
6 * under the terms of the GNU General Public License version 2 only, as
7 * published by the Free Software Foundation.
8 *
9 * This code is distributed in the hope that it will be useful, but WITHOUT
10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
12 * version 2 for more details (a copy is included in the LICENSE file that
13 * accompanied this code).
14 *
15 * You should have received a copy of the GNU General Public License version
16 * 2 along with this work; if not, write to the Free Software Foundation,
17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
18 *
19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
20 * or visit www.oracle.com if you need additional information or have any
21 * questions.
22 */
23
24 /**
25 * @test
26 * @requires vm.jvmci & (vm.simpleArch == "x64" | vm.simpleArch == "sparcv9")
27 * @library /test/lib /
28 * @modules jdk.vm.ci/jdk.vm.ci.hotspot
29 * jdk.vm.ci/jdk.vm.ci.code
30 * jdk.vm.ci/jdk.vm.ci.code.site
31 * jdk.vm.ci/jdk.vm.ci.meta
32 * jdk.vm.ci/jdk.vm.ci.runtime
33 * jdk.vm.ci/jdk.vm.ci.common
34 * jdk.vm.ci/jdk.vm.ci.amd64
35 * jdk.vm.ci/jdk.vm.ci.sparc
36 * @compile CodeInstallationTest.java TestHotSpotVMConfig.java NativeCallTest.java TestAssembler.java sparc/SPARCTestAssembler.java amd64/AMD64TestAssembler.java
37 * @run junit/othervm -XX:+UnlockExperimentalVMOptions -XX:+EnableJVMCI -Xbootclasspath/a:. jdk.vm.ci.code.test.NativeCallTest
38 */
39 package jdk.vm.ci.code.test;
40
41 import static jdk.vm.ci.hotspot.HotSpotCallingConventionType.NativeCall;
42
43 import org.junit.BeforeClass;
44 import org.junit.Test;
45
46 import jdk.vm.ci.code.CallingConvention;
47 import jdk.vm.ci.code.RegisterValue;
48 import jdk.vm.ci.meta.JavaType;
49
50 public class NativeCallTest extends CodeInstallationTest {
51
52 @BeforeClass
53 public static void beforeClass() {
54 System.loadLibrary("NativeCallTest");
55 }
56
57 @Test
58 public void testFF() {
59 float a = 1.2345678f;
60 float b = 8.7654321f;
61 test("FF", getFF(), float.class, new Class<?>[]{float.class, float.class}, new Object[]{a, b});
62 }
63
64 @Test
65 public void testSDILDS() {
66 float a = 1.2345678f;
67 double b = 3.212434;
68 int c = 43921652;
69 long d = 412435326;
70 double e = .31212333;
71 float f = 8.7654321f;
72 Class<?>[] argClazz = new Class[]{float.class, double.class, int.class, long.class, double.class,
73 float.class};
74 test("SDILDS", getSDILDS(), float.class, argClazz, new Object[]{a, b, c, d, e, f});
75 }
76
77 @Test
78 public void testF32SDILDS() {
79 int sCount = 32;
80 Object[] remainingArgs = new Object[]{ // Pairs of <Object>, <Class>
81 1.2345678F, float.class,
82 3.212434D, double.class,
83 43921652, int.class,
84 0xCAFEBABEDEADBEEFL, long.class,
85 .31212333D, double.class,
86 8.7654321F, float.class
87 };
88 Class<?>[] argClazz = new Class[sCount + remainingArgs.length / 2];
89 Object[] argValues = new Object[sCount + remainingArgs.length / 2];
90 for (int i = 0; i < sCount; i++) {
91 argValues[i] = (float) i;
92 argClazz[i] = float.class;
93 }
94 for (int i = 0; i < remainingArgs.length; i += 2) {
95 argValues[sCount + i / 2] = remainingArgs[i + 0];
96 argClazz[sCount + i / 2] = (Class<?>) remainingArgs[i + 1];
97 }
98 test("F32SDILDS", getF32SDILDS(), float.class, argClazz, argValues);
99 }
100
101 @Test
102 public void testI32SDILDS() {
103 int sCount = 32;
104 Object[] remainingArgs = new Object[]{ // Pairs of <Object>, <Class>
105 1.2345678F, float.class,
106 3.212434D, double.class,
107 43921652, int.class,
108 0xCAFEBABEDEADBEEFL, long.class,
109 .31212333D, double.class,
110 8.7654321F, float.class
111 };
112 Class<?>[] argClazz = new Class[sCount + remainingArgs.length / 2];
113 Object[] argValues = new Object[sCount + remainingArgs.length / 2];
114 for (int i = 0; i < sCount; i++) {
115 argValues[i] = i;
116 argClazz[i] = int.class;
117 }
118 for (int i = 0; i < remainingArgs.length; i += 2) {
119 argValues[sCount + i / 2] = remainingArgs[i + 0];
120 argClazz[sCount + i / 2] = (Class<?>) remainingArgs[i + 1];
121 }
122 test("I32SDILDS", getI32SDILDS(), float.class, argClazz, argValues);
123 }
124
125 public void test(String name, long addr, Class<?> returnClazz, Class<?>[] types, Object[] values) {
126 try {
127 test(asm -> {
128 JavaType[] argTypes = new JavaType[types.length];
129 int i = 0;
130 for (Class<?> clazz : types) {
131 argTypes[i++] = metaAccess.lookupJavaType(clazz);
132 }
133 JavaType returnType = metaAccess.lookupJavaType(returnClazz);
134 CallingConvention cc = codeCache.getRegisterConfig().getCallingConvention(NativeCall, returnType, argTypes, asm.valueKindFactory);
135 asm.emitCallPrologue(cc, values);
136 asm.emitCall(addr);
137 asm.emitCallEpilogue(cc);
138 asm.emitFloatRet(((RegisterValue) cc.getReturn()).getRegister());
139 }, getMethod(name, types), values);
140 } catch (Throwable e) {
141 e.printStackTrace();
142 throw e;
143 }
144 }
145
146 public static native long getFF();
147
148 public static native float _FF(float a, float b);
149
150 public static float FF(float a, float b) {
151 return _FF(a, b);
152 }
153
154 public static native long getSDILDS();
155
156 public static native float _SDILDS(float a, double b, int c, long d, double e, float f);
157
158 public static float SDILDS(float a, double b, int c, long d, double e, float f) {
159 return _SDILDS(a, b, c, d, e, f);
160 }
161
162 public static native long getF32SDILDS();
163
164 public static native float _F32SDILDS(float f00, float f01, float f02, float f03, float f04, float f05, float f06, float f07,
165 float f08, float f09, float f0a, float f0b, float f0c, float f0d, float f0e, float f0f,
166 float f10, float f11, float f12, float f13, float f14, float f15, float f16, float f17,
167 float f18, float f19, float f1a, float f1b, float f1c, float f1d, float f1e, float f1f,
168 float a, double b, int c, long d, double e, float f);
169
170 public static float F32SDILDS(float f00, float f01, float f02, float f03, float f04, float f05, float f06, float f07,
171 float f08, float f09, float f0a, float f0b, float f0c, float f0d, float f0e, float f0f,
172 float f10, float f11, float f12, float f13, float f14, float f15, float f16, float f17,
173 float f18, float f19, float f1a, float f1b, float f1c, float f1d, float f1e, float f1f,
174 float a, double b, int c, long d, double e, float f) {
175 return _F32SDILDS(f00, f01, f02, f03, f04, f05, f06, f07,
176 f08, f09, f0a, f0b, f0c, f0d, f0e, f0f,
177 f10, f11, f12, f13, f14, f15, f16, f17,
178 f18, f19, f1a, f1b, f1c, f1d, f1e, f1f,
179 a, b, c, d, e, f);
180 }
181
182 public static native long getD32SDILDS();
183
184 public static native float _D32SDILDS(double d00, double d01, double d02, double d03, double d04, double d05, double d06, double d07,
185 double d08, double d09, double d0a, double d0b, double d0c, double d0d, double d0e, double d0f,
186 double d10, double d11, double d12, double d13, double d14, double d15, double d16, double d17,
187 double d18, double d19, double d1a, double d1b, double d1c, double d1d, double d1e, double d1f,
188 float a, double b, int c, long d, double e, float f);
189
190 public static float D32SDILDS(double d00, double d01, double d02, double d03, double d04, double d05, double d06, double d07,
191 double d08, double d09, double d0a, double d0b, double d0c, double d0d, double d0e, double d0f,
192 double d10, double d11, double d12, double d13, double d14, double d15, double d16, double d17,
193 double d18, double d19, double d1a, double d1b, double d1c, double d1d, double d1e, double d1f,
194 float a, double b, int c, long d, double e, float f) {
195 return _D32SDILDS(d00, d01, d02, d03, d04, d05, d06, d07,
196 d08, d09, d0a, d0b, d0c, d0d, d0e, d0d,
197 d10, d11, d12, d13, d14, d15, d16, d17,
198 d18, d19, d1a, d1b, d1c, d1d, d1e, d1f,
199 a, b, c, d, e, f);
200 }
201
202 public static native long getI32SDILDS();
203
204 public static native float _I32SDILDS(int i00, int i01, int i02, int i03, int i04, int i05, int i06, int i07,
205 int i08, int i09, int i0a, int i0b, int i0c, int i0d, int i0e, int i0f,
206 int i10, int i11, int i12, int i13, int i14, int i15, int i16, int i17,
207 int i18, int i19, int i1a, int i1b, int i1c, int i1d, int i1e, int i1f,
208 float a, double b, int c, long d, double e, float f);
209
210 public static float I32SDILDS(int i00, int i01, int i02, int i03, int i04, int i05, int i06, int i07,
211 int i08, int i09, int i0a, int i0b, int i0c, int i0d, int i0e, int i0f,
212 int i10, int i11, int i12, int i13, int i14, int i15, int i16, int i17,
213 int i18, int i19, int i1a, int i1b, int i1c, int i1d, int i1e, int i1f,
214 float a, double b, int c, long d, double e, float f) {
215 return _I32SDILDS(i00, i01, i02, i03, i04, i05, i06, i07,
216 i08, i09, i0a, i0b, i0c, i0d, i0e, i0f,
217 i10, i11, i12, i13, i14, i15, i16, i17,
218 i18, i19, i1a, i1b, i1c, i1d, i1e, i1f,
219 a, b, c, d, e, f);
220 }
221
222 public static native long getL32SDILDS();
223
224 public static native float _L32SDILDS(long l00, long l01, long l02, long l03, long l04, long l05, long l06, long l07,
225 long l08, long l09, long l0a, long l0b, long l0c, long l0d, long l0e, long l0f,
226 long l10, long l11, long l12, long l13, long l14, long l15, long l16, long l17,
227 long l18, long l19, long l1a, long l1b, long l1c, long l1d, long l1e, long l1f,
228 float a, double b, int c, long d, double e, float f);
229
230 public static float L32SDILDS(long l00, long l01, long l02, long l03, long l04, long l05, long l06, long l07,
231 long l08, long l09, long l0a, long l0b, long l0c, long l0d, long l0e, long l0f,
232 long l10, long l11, long l12, long l13, long l14, long l15, long l16, long l17,
233 long l18, long l19, long l1a, long l1b, long l1c, long l1d, long l1e, long l1f,
234 float a, double b, int c, long d, double e, float f) {
235 return _L32SDILDS(l00, l01, l02, l03, l04, l05, l06, l07,
236 l08, l09, l0a, l0b, l0c, l0d, l0e, l0f,
237 l10, l11, l12, l13, l14, l15, l16, l17,
238 l18, l19, l1a, l1b, l1c, l1d, l1e, l1f,
239 a, b, c, d, e, f);
240 }
241 }