Mercurial > hg > truffle

comparison src/gpu/hsail/vm/hsailArgumentsBase.cpp @ 14768:3e9a960f0da1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
HSAIL: preliminary deopt support Contributed-by: Tom Deneau <tom.deneau@amd.com>
author Doug Simon <doug.simon@oracle.com>
date Wed, 26 Mar 2014 17:33:54 +0100
parents
children 310994c667a7
comparison
equal deleted inserted replaced
14767:ded08e344e4a 14768:3e9a960f0da1
1 /*
2 * Copyright (c) 2013, 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 #include "precompiled.hpp"
26 #include "hsailArgumentsBase.hpp"
27 #include "runtime/javaCalls.hpp"
28
29
30 // Get next java argument
31 oop HSAILArgumentsBase::next_arg(BasicType expectedType) {
32 assert(_index < _args->length(), "out of bounds");
33
34 oop arg = ((objArrayOop) (_args))->obj_at(_index++);
35 assert(expectedType == T_OBJECT ||
36 java_lang_boxing_object::is_instance(arg, expectedType), "arg type mismatch");
37
38 return arg;
39 }
40
41 void HSAILArgumentsBase::do_bool() {
42 // Get the boxed value
43 oop arg = _args->obj_at(_index++);
44 assert(java_lang_boxing_object::is_instance(arg, T_BOOLEAN), "arg type mismatch");
45
46 jvalue jValue;
47 java_lang_boxing_object::get_value(arg, &jValue);
48
49 pushBool(jValue.z);
50 }
51
52 void HSAILArgumentsBase::do_byte() {
53 // Get the boxed value
54 oop arg = _args->obj_at(_index++);
55 assert(java_lang_boxing_object::is_instance(arg, T_BYTE), "arg type mismatch");
56
57 jvalue jValue;
58 java_lang_boxing_object::get_value(arg, &jValue);
59
60 pushByte(jValue.b);
61 }
62
63 void HSAILArgumentsBase::do_double() {
64 // Get the boxed value
65 oop arg = _args->obj_at(_index++);
66 assert(java_lang_boxing_object::is_instance(arg, T_DOUBLE), "arg type mismatch");
67
68 jvalue jValue;
69 java_lang_boxing_object::get_value(arg, &jValue);
70 if (TraceGPUInteraction) {
71 tty->print_cr("[HSAIL] %s::do_double, _index=%d, value = %e", argsBuilderName(), _index - 1, jValue.d);
72 }
73 pushDouble(jValue.d);
74 }
75
76 void HSAILArgumentsBase::do_float() {
77 // Get the boxed value
78 oop arg = _args->obj_at(_index++);
79 assert(java_lang_boxing_object::is_instance(arg, T_FLOAT), "arg type mismatch");
80
81 jvalue jValue;
82 java_lang_boxing_object::get_value(arg, &jValue);
83 if (TraceGPUInteraction) {
84 tty->print_cr("[HSAIL] %s::do_float, _index=%d, value = %f", argsBuilderName(), _index - 1, jValue.f);
85 }
86 pushFloat(jValue.f);
87 }
88
89 void HSAILArgumentsBase::do_int() {
90 // If the last parameter is an int, it is handled in a special way
91 // For kernel arguments we don't pass it since we use the HSAIL workitemid in place of that int value
92 // For javaCall arguments we pass the actual workitemid
93 if (isLastParameter()) {
94 handleFinalIntParameter();
95 return;
96 }
97
98 // not the final int parameter, Get the boxed int
99 oop arg = _args->obj_at(_index++);
100 assert(java_lang_boxing_object::is_instance(arg, T_INT), "arg type mismatch");
101
102 jvalue jValue;
103 java_lang_boxing_object::get_value(arg, &jValue);
104 if (TraceGPUInteraction) {
105 tty->print_cr("[HSAIL] %s::do_int, _index=%d, value = %d", argsBuilderName(), _index - 1, jValue.i);
106 }
107
108 pushInt(jValue.i);
109 }
110
111 void HSAILArgumentsBase::do_long() {
112 // Get the boxed value
113 oop arg = _args->obj_at(_index++);
114 assert(java_lang_boxing_object::is_instance(arg, T_LONG), "arg type mismatch");
115
116 jvalue jValue;
117 java_lang_boxing_object::get_value(arg, &jValue);
118 if (TraceGPUInteraction) {
119 tty->print_cr("[HSAIL] %s::do_long, _index=%d, value = %d", argsBuilderName(), _index - 1, jValue.j);
120 }
121
122 pushLong(jValue.j);
123 }
124
125 void HSAILArgumentsBase::do_array(int begin, int end) {
126 oop arg = _args->obj_at(_index++);
127 if (arg == NULL) {
128 recordNullObjectParameter();
129 } else {
130 assert(arg->is_array(), "arg type mismatch");
131 }
132 if (TraceGPUInteraction) {
133 tty->print_cr("[HSAIL] %s::do_array, _index=%d, 0x%08x, is a %s", argsBuilderName(), _index - 1, (address) arg,
134 arg == NULL ? "null" : arg->klass()->external_name());
135 }
136
137 pushObject(arg);
138 }
139
140 void HSAILArgumentsBase::do_object() {
141 bool isLastParam = isLastParameter(); // determine this before incrementing _index
142
143 oop arg = _args->obj_at(_index++);
144 if (TraceGPUInteraction) {
145 tty->print_cr("[HSAIL] %s::do_object, _index=%d, 0x%08x is a %s", argsBuilderName(), _index - 1, (address) arg,
146 arg == NULL ? "null" : arg->klass()->external_name());
147 }
148 if (arg == NULL) {
149 recordNullObjectParameter();
150 }
151
152 // check if this is last arg in signature
153 // an object as last parameter requires special handling
154 if (isLastParam) {
155 if (TraceGPUInteraction) {
156 tty->print_cr("[HSAIL] %s, trailing object ref should be object source array ref", argsBuilderName());
157 }
158 assert(arg->is_objArray(), "arg type mismatch");
159 handleFinalObjParameter(arg);
160 } else {
161 // not the final parameter, just push
162 pushObject(arg);
163 }
164 }
165
166 void HSAILArgumentsBase::do_object(int begin, int end) {
167 do_object();
168 }
169
170 void HSAILArgumentsBase::do_void() {
171 return;
172 }
173
174 // TODO implement other do_*
175