--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/gpu/hsail/vm/hsailKernelArguments.cpp	Sun Nov 10 13:18:09 2013 +0100
@@ -0,0 +1,184 @@
+/*
+ * Copyright (c) 2013, 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.
+ *
+ */
+
+#include "precompiled.hpp"
+#include "hsailKernelArguments.hpp"
+#include "runtime/javaCalls.hpp"
+
+
+// Get next java argument
+oop HSAILKernelArguments::next_arg(BasicType expectedType) {
+  assert(_index < _args->length(), "out of bounds");
+
+  oop arg = ((objArrayOop) (_args))->obj_at(_index++);
+  assert(expectedType == T_OBJECT ||
+         java_lang_boxing_object::is_instance(arg, expectedType), "arg type mismatch");
+
+  return arg;
+}
+
+void HSAILKernelArguments::do_bool() {
+  // Get the boxed value
+  oop arg = _args->obj_at(_index++);
+  assert(java_lang_boxing_object::is_instance(arg, T_BOOLEAN), "arg type mismatch");
+  
+  jvalue jValue;
+  java_lang_boxing_object::get_value(arg, &jValue);
+  
+  bool pushed = gpu::Hsail::_okra_push_boolean(_kernel, jValue.z);
+  assert(pushed == true, "arg push failed");
+}
+
+void HSAILKernelArguments::do_byte() {
+  // Get the boxed value
+  oop arg = _args->obj_at(_index++);
+  assert(java_lang_boxing_object::is_instance(arg, T_BYTE), "arg type mismatch");
+  
+  jvalue jValue;
+  java_lang_boxing_object::get_value(arg, &jValue);
+  
+  bool pushed = gpu::Hsail::_okra_push_byte(_kernel, jValue.b);
+  assert(pushed == true, "arg push failed");
+}
+
+void HSAILKernelArguments::do_double() {
+  // Get the boxed value
+  oop arg = _args->obj_at(_index++);
+  assert(java_lang_boxing_object::is_instance(arg, T_DOUBLE), "arg type mismatch");
+  
+  jvalue jValue;
+  java_lang_boxing_object::get_value(arg, &jValue);
+  if (TraceGPUInteraction) {
+    tty->print_cr("[HSAIL] HSAILKernelArguments::double value = %e", jValue.d);
+  }  
+  bool pushed = gpu::Hsail::_okra_push_double(_kernel, jValue.d);
+  assert(pushed == true, "arg push failed");
+}
+
+void HSAILKernelArguments::do_float() {
+  // Get the boxed value
+  oop arg = _args->obj_at(_index++);
+  assert(java_lang_boxing_object::is_instance(arg, T_FLOAT), "arg type mismatch");
+  
+  jvalue jValue;
+  java_lang_boxing_object::get_value(arg, &jValue);
+  if (TraceGPUInteraction) {
+    tty->print_cr("[HSAIL] HSAILKernelArguments::float value = %f", jValue.f);
+  }    
+  bool pushed = gpu::Hsail::_okra_push_float(_kernel, jValue.f);
+  assert(pushed == true, "float push failed");
+}
+
+void HSAILKernelArguments::do_int() {
+  // The last int is the iteration variable in an IntStream, but we don't pass it
+  // since we use the HSAIL workitemid in place of that int value
+  if (_index == _length) {
+    if (TraceGPUInteraction) {
+      tty->print_cr("[HSAIL] HSAILKernelArguments::not pushing trailing int");
+    }
+    return;
+  }
+
+  // Get the boxed int
+  oop arg = _args->obj_at(_index++);
+  assert(java_lang_boxing_object::is_instance(arg, T_INT), "arg type mismatch");
+  
+  jvalue jValue;
+  java_lang_boxing_object::get_value(arg, &jValue);
+  
+  bool pushed = gpu::Hsail::_okra_push_int(_kernel, jValue.i);
+  assert(pushed == true, "arg push failed");
+}
+
+void HSAILKernelArguments::do_long() {
+  // Get the boxed value
+  oop arg = _args->obj_at(_index++);
+  assert(java_lang_boxing_object::is_instance(arg, T_LONG), "arg type mismatch");
+  
+  jvalue jValue;
+  java_lang_boxing_object::get_value(arg, &jValue);
+  
+  bool pushed = gpu::Hsail::_okra_push_long(_kernel, jValue.j);
+  assert(pushed == true, "arg push failed");  
+}
+
+void HSAILKernelArguments::do_array(int begin, int end) {
+  oop arg = _args->obj_at(_index++);
+  assert(arg->is_array(), "arg type mismatch");
+  if (TraceGPUInteraction) {
+    tty->print_cr("[HSAIL] HSAILKernelArguments::do_array 0x%08x, is a %s", (address) arg, arg->klass()->external_name());
+  }
+    
+  bool pushed = gpu::Hsail::_okra_push_object(_kernel, arg);
+  assert(pushed == true, "arg push failed");  
+}
+
+void HSAILKernelArguments::do_object() {
+  if (TraceGPUInteraction) {
+    tty->print_cr("[HSAIL] HSAILKernelArguments::do_object.");
+  }
+  if (_index == _length) {  
+    // last arg in object stream lambda is  the object stream source array
+    if (TraceGPUInteraction) {
+      tty->print_cr("[HSAIL] HSAILKernelArguments::trailing object ref should be object source array ref");
+    }
+  }
+
+  oop arg = _args->obj_at(_index++);
+  assert(arg->is_array(), "arg type mismatch");
+  if (TraceGPUInteraction) {
+    tty->print_cr("[HSAIL] HSAILKernelArguments::do_object, 0x%08x is a %s", (address) arg, arg->klass()->external_name());
+  }
+    
+  bool pushed = gpu::Hsail::_okra_push_object(_kernel, arg);
+  assert(pushed == true, "arg push failed");  
+}
+
+void HSAILKernelArguments::do_object(int begin, int end) {
+  if (TraceGPUInteraction) {
+    tty->print_cr("[HSAIL] HSAILKernelArguments::do_object(int begin, int end).");
+  }
+
+  if ((!_is_static && (_index >=(_length-1))) || (_is_static && (_index >=(_length)))) {
+    // last arg in object stream lambda is  the object stream source array
+    if (TraceGPUInteraction) {
+      tty->print_cr("[HSAIL] HSAILKernelArguments::trailing object ref should be object source array ref");
+    }
+  }
+  
+  oop arg = _args->obj_at(_index++);
+  assert(arg->is_array(), "arg type mismatch");
+  if (TraceGPUInteraction) {
+    tty->print_cr("[HSAIL] HSAILKernelArguments::do_object(int, int), 0x%08x is a %s", (address) arg, arg->klass()->external_name());
+  }
+    
+  bool pushed = gpu::Hsail::_okra_push_object(_kernel, arg);
+  assert(pushed == true, "arg push failed");  
+}
+
+void HSAILKernelArguments::do_void() {
+    return;
+}
+
+// TODO implement other do_*