--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/hotspot/src/share/vm/runtime/stackValueCollection.cpp Sat Dec 01 00:00:00 2007 +0000
@@ -0,0 +1,149 @@
+/*
+ * Copyright 2001-2005 Sun Microsystems, Inc. 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 Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
+ * CA 95054 USA or visit www.sun.com if you need additional information or
+ * have any questions.
+ *
+ */
+
+# include "incls/_precompiled.incl"
+# include "incls/_stackValueCollection.cpp.incl"
+
+jint StackValueCollection::int_at(int slot) const {
+ intptr_t val = at(slot)->get_int();
+ jint ival = *((jint*) (&val));
+ return ival;
+}
+
+jlong StackValueCollection::long_at(int slot) const {
+#ifdef _LP64
+ return at(slot+1)->get_int();
+#else
+ union {
+ jlong jl;
+ jint array[2];
+ } value;
+ // Interpreter stack is reversed in memory:
+ // low memory location is in higher java local slot.
+ value.array[0] = at(slot+1)->get_int();
+ value.array[1] = at(slot )->get_int();
+ return value.jl;
+#endif
+}
+
+Handle StackValueCollection::obj_at(int slot) const {
+ return at(slot)->get_obj();
+}
+
+jfloat StackValueCollection::float_at(int slot) const {
+ intptr_t res = at(slot)->get_int();
+ return *((jfloat*) (&res));
+}
+
+jdouble StackValueCollection::double_at(int slot) const {
+#ifdef _LP64
+ intptr_t res = at(slot+1)->get_int();
+ return *((jdouble*) (&res));
+#else
+ union {
+ jdouble jd;
+ jint array[2];
+ } value;
+ // Interpreter stack is reversed in memory:
+ // low memory location is in higher java local slot.
+ value.array[0] = at(slot+1)->get_int();
+ value.array[1] = at(slot )->get_int();
+ return value.jd;
+#endif
+}
+
+void StackValueCollection::set_int_at(int slot, jint value) {
+ intptr_t val;
+ *((jint*) (&val)) = value;
+ at(slot)->set_int(val);
+}
+
+void StackValueCollection::set_long_at(int slot, jlong value) {
+#ifdef _LP64
+ at(slot+1)->set_int(value);
+#else
+ union {
+ jlong jl;
+ jint array[2];
+ } x;
+ // Interpreter stack is reversed in memory:
+ // low memory location is in higher java local slot.
+ x.jl = value;
+ at(slot+1)->set_int(x.array[0]);
+ at(slot+0)->set_int(x.array[1]);
+#endif
+}
+
+void StackValueCollection::set_obj_at(int slot, Handle value) {
+ at(slot)->set_obj(value);
+}
+
+void StackValueCollection::set_float_at(int slot, jfloat value) {
+#ifdef _LP64
+ union {
+ intptr_t jd;
+ jint array[2];
+ } val;
+ // Interpreter stores 32 bit floats in first half of 64 bit word.
+ val.array[0] = *(jint*)(&value);
+ val.array[1] = 0;
+ at(slot)->set_int(val.jd);
+#else
+ at(slot)->set_int(*(jint*)(&value));
+#endif
+}
+
+void StackValueCollection::set_double_at(int slot, jdouble value) {
+#ifdef _LP64
+ at(slot+1)->set_int(*(intptr_t*)(&value));
+#else
+ union {
+ jdouble jd;
+ jint array[2];
+ } x;
+ // Interpreter stack is reversed in memory:
+ // low memory location is in higher java local slot.
+ x.jd = value;
+ at(slot+1)->set_int(x.array[0]);
+ at(slot+0)->set_int(x.array[1]);
+#endif
+}
+
+#ifndef PRODUCT
+void StackValueCollection::print() {
+ for(int index = 0; index < size(); index++) {
+ tty->print("\t %2d ", index);
+ at(index)->print_on(tty);
+ if( at(index )->type() == T_INT &&
+ index+1 < size() &&
+ at(index+1)->type() == T_INT ) {
+ tty->print(" " INT64_FORMAT " (long)", long_at(index));
+ tty->cr();
+ tty->print("\t %.15e (double)", double_at(index));
+ tty->print(" " PTR64_FORMAT " (longhex)", long_at(index));
+ }
+ tty->cr();
+ }
+}
+#endif