annotate src/share/vm/interpreter/templateInterpreter.cpp @ 7066:7d815d842ee0

Merge.
author Christian Haeubl <haeubl@ssw.jku.at>
date Fri, 23 Nov 2012 11:50:27 +0100
parents 8c5333c80cfd a3e2f723f2a5
children b8f261ba79c6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
7066
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
1 /*
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
2 * Copyright (c) 1997, 2012, Oracle and/or its affiliates. All rights reserved.
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
4 *
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
5 * This code is free software; you can redistribute it and/or modify it
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
6 * under the terms of the GNU General Public License version 2 only, as
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
7 * published by the Free Software Foundation.
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
8 *
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
9 * This code is distributed in the hope that it will be useful, but WITHOUT
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
12 * version 2 for more details (a copy is included in the LICENSE file that
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
13 * accompanied this code).
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
14 *
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
15 * You should have received a copy of the GNU General Public License version
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
16 * 2 along with this work; if not, write to the Free Software Foundation,
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
18 *
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
20 * or visit www.oracle.com if you need additional information or have any
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
21 * questions.
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
22 *
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
23 */
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
24
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
25 #include "precompiled.hpp"
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
26 #include "interpreter/interpreter.hpp"
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
27 #include "interpreter/interpreterGenerator.hpp"
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
28 #include "interpreter/interpreterRuntime.hpp"
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
29 #include "interpreter/templateTable.hpp"
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
30 #include "utilities/machineCodePrinter.hpp"
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
31
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
32 #ifndef CC_INTERP
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
33
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
34 # define __ _masm->
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
35
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
36 void TemplateInterpreter::initialize() {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
37 if (_code != NULL) return;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
38 // assertions
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
39 assert((int)Bytecodes::number_of_codes <= (int)DispatchTable::length,
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
40 "dispatch table too small");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
41
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
42 AbstractInterpreter::initialize();
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
43
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
44 TemplateTable::initialize();
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
45
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
46 // generate interpreter
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
47 { ResourceMark rm;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
48 TraceTime timer("Interpreter generation", TraceStartupTime);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
49 int code_size = InterpreterCodeSize;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
50 NOT_PRODUCT(code_size *= 4;) // debug uses extra interpreter code space
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
51 _code = new StubQueue(new InterpreterCodeletInterface, code_size, NULL,
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
52 "Interpreter");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
53 InterpreterGenerator g(_code);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
54 if (PrintInterpreter) print();
7062
8c5333c80cfd increased CompileThreshold to increase reliability of profiling information
Christian Haeubl <haeubl@ssw.jku.at>
parents: 6266
diff changeset
55 if (PrintMachineCodeToFile) {
8c5333c80cfd increased CompileThreshold to increase reliability of profiling information
Christian Haeubl <haeubl@ssw.jku.at>
parents: 6266
diff changeset
56 MachineCodePrinter::print(_code);
7066
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
57 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
58 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
59
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
60 // initialize dispatch table
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
61 _active_table = _normal_table;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
62 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
63
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
64 //------------------------------------------------------------------------------------------------------------------------
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
65 // Implementation of EntryPoint
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
66
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
67 EntryPoint::EntryPoint() {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
68 assert(number_of_states == 9, "check the code below");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
69 _entry[btos] = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
70 _entry[ctos] = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
71 _entry[stos] = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
72 _entry[atos] = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
73 _entry[itos] = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
74 _entry[ltos] = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
75 _entry[ftos] = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
76 _entry[dtos] = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
77 _entry[vtos] = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
78 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
79
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
80
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
81 EntryPoint::EntryPoint(address bentry, address centry, address sentry, address aentry, address ientry, address lentry, address fentry, address dentry, address ventry) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
82 assert(number_of_states == 9, "check the code below");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
83 _entry[btos] = bentry;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
84 _entry[ctos] = centry;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
85 _entry[stos] = sentry;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
86 _entry[atos] = aentry;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
87 _entry[itos] = ientry;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
88 _entry[ltos] = lentry;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
89 _entry[ftos] = fentry;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
90 _entry[dtos] = dentry;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
91 _entry[vtos] = ventry;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
92 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
93
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
94
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
95 void EntryPoint::set_entry(TosState state, address entry) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
96 assert(0 <= state && state < number_of_states, "state out of bounds");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
97 _entry[state] = entry;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
98 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
99
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
100
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
101 address EntryPoint::entry(TosState state) const {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
102 assert(0 <= state && state < number_of_states, "state out of bounds");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
103 return _entry[state];
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
104 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
105
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
106
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
107 void EntryPoint::print() {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
108 tty->print("[");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
109 for (int i = 0; i < number_of_states; i++) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
110 if (i > 0) tty->print(", ");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
111 tty->print(INTPTR_FORMAT, _entry[i]);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
112 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
113 tty->print("]");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
114 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
115
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
116
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
117 bool EntryPoint::operator == (const EntryPoint& y) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
118 int i = number_of_states;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
119 while (i-- > 0) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
120 if (_entry[i] != y._entry[i]) return false;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
121 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
122 return true;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
123 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
124
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
125
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
126 //------------------------------------------------------------------------------------------------------------------------
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
127 // Implementation of DispatchTable
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
128
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
129 EntryPoint DispatchTable::entry(int i) const {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
130 assert(0 <= i && i < length, "index out of bounds");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
131 return
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
132 EntryPoint(
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
133 _table[btos][i],
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
134 _table[ctos][i],
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
135 _table[stos][i],
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
136 _table[atos][i],
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
137 _table[itos][i],
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
138 _table[ltos][i],
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
139 _table[ftos][i],
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
140 _table[dtos][i],
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
141 _table[vtos][i]
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
142 );
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
143 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
144
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
145
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
146 void DispatchTable::set_entry(int i, EntryPoint& entry) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
147 assert(0 <= i && i < length, "index out of bounds");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
148 assert(number_of_states == 9, "check the code below");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
149 _table[btos][i] = entry.entry(btos);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
150 _table[ctos][i] = entry.entry(ctos);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
151 _table[stos][i] = entry.entry(stos);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
152 _table[atos][i] = entry.entry(atos);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
153 _table[itos][i] = entry.entry(itos);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
154 _table[ltos][i] = entry.entry(ltos);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
155 _table[ftos][i] = entry.entry(ftos);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
156 _table[dtos][i] = entry.entry(dtos);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
157 _table[vtos][i] = entry.entry(vtos);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
158 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
159
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
160
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
161 bool DispatchTable::operator == (DispatchTable& y) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
162 int i = length;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
163 while (i-- > 0) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
164 EntryPoint t = y.entry(i); // for compiler compatibility (BugId 4150096)
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
165 if (!(entry(i) == t)) return false;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
166 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
167 return true;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
168 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
169
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
170 address TemplateInterpreter::_remove_activation_entry = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
171 address TemplateInterpreter::_remove_activation_preserving_args_entry = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
172
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
173
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
174 address TemplateInterpreter::_throw_ArrayIndexOutOfBoundsException_entry = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
175 address TemplateInterpreter::_throw_ArrayStoreException_entry = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
176 address TemplateInterpreter::_throw_ArithmeticException_entry = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
177 address TemplateInterpreter::_throw_ClassCastException_entry = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
178 address TemplateInterpreter::_throw_NullPointerException_entry = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
179 address TemplateInterpreter::_throw_StackOverflowError_entry = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
180 address TemplateInterpreter::_throw_exception_entry = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
181
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
182 #ifndef PRODUCT
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
183 EntryPoint TemplateInterpreter::_trace_code;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
184 #endif // !PRODUCT
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
185 EntryPoint TemplateInterpreter::_return_entry[TemplateInterpreter::number_of_return_entries];
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
186 EntryPoint TemplateInterpreter::_earlyret_entry;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
187 EntryPoint TemplateInterpreter::_deopt_entry [TemplateInterpreter::number_of_deopt_entries ];
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
188 EntryPoint TemplateInterpreter::_continuation_entry;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
189 EntryPoint TemplateInterpreter::_safept_entry;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
190
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
191 address TemplateInterpreter::_return_3_addrs_by_index[TemplateInterpreter::number_of_return_addrs];
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
192 address TemplateInterpreter::_return_5_addrs_by_index[TemplateInterpreter::number_of_return_addrs];
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
193
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
194 DispatchTable TemplateInterpreter::_active_table;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
195 DispatchTable TemplateInterpreter::_normal_table;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
196 DispatchTable TemplateInterpreter::_safept_table;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
197 address TemplateInterpreter::_wentry_point[DispatchTable::length];
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
198
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
199 TemplateInterpreterGenerator::TemplateInterpreterGenerator(StubQueue* _code): AbstractInterpreterGenerator(_code) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
200 _unimplemented_bytecode = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
201 _illegal_bytecode_sequence = NULL;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
202 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
203
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
204 static const BasicType types[Interpreter::number_of_result_handlers] = {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
205 T_BOOLEAN,
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
206 T_CHAR ,
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
207 T_BYTE ,
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
208 T_SHORT ,
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
209 T_INT ,
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
210 T_LONG ,
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
211 T_VOID ,
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
212 T_FLOAT ,
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
213 T_DOUBLE ,
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
214 T_OBJECT
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
215 };
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
216
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
217 void TemplateInterpreterGenerator::generate_all() {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
218 AbstractInterpreterGenerator::generate_all();
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
219
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
220 { CodeletMark cm(_masm, "error exits");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
221 _unimplemented_bytecode = generate_error_exit("unimplemented bytecode");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
222 _illegal_bytecode_sequence = generate_error_exit("illegal bytecode sequence - method not verified");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
223 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
224
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
225 #ifndef PRODUCT
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
226 if (TraceBytecodes) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
227 CodeletMark cm(_masm, "bytecode tracing support");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
228 Interpreter::_trace_code =
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
229 EntryPoint(
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
230 generate_trace_code(btos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
231 generate_trace_code(ctos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
232 generate_trace_code(stos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
233 generate_trace_code(atos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
234 generate_trace_code(itos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
235 generate_trace_code(ltos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
236 generate_trace_code(ftos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
237 generate_trace_code(dtos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
238 generate_trace_code(vtos)
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
239 );
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
240 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
241 #endif // !PRODUCT
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
242
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
243 { CodeletMark cm(_masm, "return entry points");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
244 for (int i = 0; i < Interpreter::number_of_return_entries; i++) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
245 Interpreter::_return_entry[i] =
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
246 EntryPoint(
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
247 generate_return_entry_for(itos, i),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
248 generate_return_entry_for(itos, i),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
249 generate_return_entry_for(itos, i),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
250 generate_return_entry_for(atos, i),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
251 generate_return_entry_for(itos, i),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
252 generate_return_entry_for(ltos, i),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
253 generate_return_entry_for(ftos, i),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
254 generate_return_entry_for(dtos, i),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
255 generate_return_entry_for(vtos, i)
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
256 );
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
257 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
258 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
259
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
260 { CodeletMark cm(_masm, "earlyret entry points");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
261 Interpreter::_earlyret_entry =
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
262 EntryPoint(
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
263 generate_earlyret_entry_for(btos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
264 generate_earlyret_entry_for(ctos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
265 generate_earlyret_entry_for(stos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
266 generate_earlyret_entry_for(atos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
267 generate_earlyret_entry_for(itos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
268 generate_earlyret_entry_for(ltos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
269 generate_earlyret_entry_for(ftos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
270 generate_earlyret_entry_for(dtos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
271 generate_earlyret_entry_for(vtos)
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
272 );
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
273 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
274
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
275 { CodeletMark cm(_masm, "deoptimization entry points");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
276 for (int i = 0; i < Interpreter::number_of_deopt_entries; i++) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
277 Interpreter::_deopt_entry[i] =
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
278 EntryPoint(
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
279 generate_deopt_entry_for(itos, i),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
280 generate_deopt_entry_for(itos, i),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
281 generate_deopt_entry_for(itos, i),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
282 generate_deopt_entry_for(atos, i),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
283 generate_deopt_entry_for(itos, i),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
284 generate_deopt_entry_for(ltos, i),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
285 generate_deopt_entry_for(ftos, i),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
286 generate_deopt_entry_for(dtos, i),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
287 generate_deopt_entry_for(vtos, i)
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
288 );
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
289 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
290 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
291
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
292 { CodeletMark cm(_masm, "result handlers for native calls");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
293 // The various result converter stublets.
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
294 int is_generated[Interpreter::number_of_result_handlers];
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
295 memset(is_generated, 0, sizeof(is_generated));
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
296
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
297 for (int i = 0; i < Interpreter::number_of_result_handlers; i++) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
298 BasicType type = types[i];
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
299 if (!is_generated[Interpreter::BasicType_as_index(type)]++) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
300 Interpreter::_native_abi_to_tosca[Interpreter::BasicType_as_index(type)] = generate_result_handler_for(type);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
301 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
302 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
303 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
304
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
305 for (int j = 0; j < number_of_states; j++) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
306 const TosState states[] = {btos, ctos, stos, itos, ltos, ftos, dtos, atos, vtos};
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
307 int index = Interpreter::TosState_as_index(states[j]);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
308 Interpreter::_return_3_addrs_by_index[index] = Interpreter::return_entry(states[j], 3);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
309 Interpreter::_return_5_addrs_by_index[index] = Interpreter::return_entry(states[j], 5);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
310 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
311
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
312 { CodeletMark cm(_masm, "continuation entry points");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
313 Interpreter::_continuation_entry =
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
314 EntryPoint(
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
315 generate_continuation_for(btos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
316 generate_continuation_for(ctos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
317 generate_continuation_for(stos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
318 generate_continuation_for(atos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
319 generate_continuation_for(itos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
320 generate_continuation_for(ltos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
321 generate_continuation_for(ftos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
322 generate_continuation_for(dtos),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
323 generate_continuation_for(vtos)
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
324 );
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
325 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
326
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
327 { CodeletMark cm(_masm, "safepoint entry points");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
328 Interpreter::_safept_entry =
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
329 EntryPoint(
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
330 generate_safept_entry_for(btos, CAST_FROM_FN_PTR(address, InterpreterRuntime::at_safepoint)),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
331 generate_safept_entry_for(ctos, CAST_FROM_FN_PTR(address, InterpreterRuntime::at_safepoint)),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
332 generate_safept_entry_for(stos, CAST_FROM_FN_PTR(address, InterpreterRuntime::at_safepoint)),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
333 generate_safept_entry_for(atos, CAST_FROM_FN_PTR(address, InterpreterRuntime::at_safepoint)),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
334 generate_safept_entry_for(itos, CAST_FROM_FN_PTR(address, InterpreterRuntime::at_safepoint)),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
335 generate_safept_entry_for(ltos, CAST_FROM_FN_PTR(address, InterpreterRuntime::at_safepoint)),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
336 generate_safept_entry_for(ftos, CAST_FROM_FN_PTR(address, InterpreterRuntime::at_safepoint)),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
337 generate_safept_entry_for(dtos, CAST_FROM_FN_PTR(address, InterpreterRuntime::at_safepoint)),
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
338 generate_safept_entry_for(vtos, CAST_FROM_FN_PTR(address, InterpreterRuntime::at_safepoint))
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
339 );
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
340 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
341
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
342 { CodeletMark cm(_masm, "exception handling");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
343 // (Note: this is not safepoint safe because thread may return to compiled code)
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
344 generate_throw_exception();
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
345 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
346
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
347 { CodeletMark cm(_masm, "throw exception entrypoints");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
348 Interpreter::_throw_ArrayIndexOutOfBoundsException_entry = generate_ArrayIndexOutOfBounds_handler("java/lang/ArrayIndexOutOfBoundsException");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
349 Interpreter::_throw_ArrayStoreException_entry = generate_klass_exception_handler("java/lang/ArrayStoreException" );
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
350 Interpreter::_throw_ArithmeticException_entry = generate_exception_handler("java/lang/ArithmeticException" , "/ by zero");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
351 Interpreter::_throw_ClassCastException_entry = generate_ClassCastException_handler();
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
352 Interpreter::_throw_NullPointerException_entry = generate_exception_handler("java/lang/NullPointerException" , NULL );
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
353 Interpreter::_throw_StackOverflowError_entry = generate_StackOverflowError_handler();
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
354 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
355
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
356
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
357
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
358 #define method_entry(kind) \
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
359 { CodeletMark cm(_masm, "method entry point (kind = " #kind ")"); \
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
360 Interpreter::_entry_table[Interpreter::kind] = generate_method_entry(Interpreter::kind); \
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
361 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
362
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
363 // all non-native method kinds
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
364 method_entry(zerolocals)
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
365 method_entry(zerolocals_synchronized)
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
366 method_entry(empty)
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
367 method_entry(accessor)
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
368 method_entry(abstract)
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
369 method_entry(java_lang_math_sin )
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
370 method_entry(java_lang_math_cos )
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
371 method_entry(java_lang_math_tan )
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
372 method_entry(java_lang_math_abs )
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
373 method_entry(java_lang_math_sqrt )
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
374 method_entry(java_lang_math_log )
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
375 method_entry(java_lang_math_log10)
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
376 method_entry(java_lang_math_exp )
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
377 method_entry(java_lang_math_pow )
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
378 method_entry(java_lang_ref_reference_get)
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
379
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
380 initialize_method_handle_entries();
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
381
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
382 // all native method kinds (must be one contiguous block)
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
383 Interpreter::_native_entry_begin = Interpreter::code()->code_end();
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
384 method_entry(native)
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
385 method_entry(native_synchronized)
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
386 Interpreter::_native_entry_end = Interpreter::code()->code_end();
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
387
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
388 #undef method_entry
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
389
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
390 // Bytecodes
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
391 set_entry_points_for_all_bytes();
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
392 set_safepoints_for_all_bytes();
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
393 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
394
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
395 //------------------------------------------------------------------------------------------------------------------------
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
396
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
397 address TemplateInterpreterGenerator::generate_error_exit(const char* msg) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
398 address entry = __ pc();
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
399 __ stop(msg);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
400 return entry;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
401 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
402
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
403
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
404 //------------------------------------------------------------------------------------------------------------------------
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
405
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
406 void TemplateInterpreterGenerator::set_entry_points_for_all_bytes() {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
407 for (int i = 0; i < DispatchTable::length; i++) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
408 Bytecodes::Code code = (Bytecodes::Code)i;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
409 if (Bytecodes::is_defined(code)) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
410 set_entry_points(code);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
411 } else {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
412 set_unimplemented(i);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
413 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
414 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
415 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
416
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
417
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
418 void TemplateInterpreterGenerator::set_safepoints_for_all_bytes() {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
419 for (int i = 0; i < DispatchTable::length; i++) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
420 Bytecodes::Code code = (Bytecodes::Code)i;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
421 if (Bytecodes::is_defined(code)) Interpreter::_safept_table.set_entry(code, Interpreter::_safept_entry);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
422 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
423 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
424
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
425
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
426 void TemplateInterpreterGenerator::set_unimplemented(int i) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
427 address e = _unimplemented_bytecode;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
428 EntryPoint entry(e, e, e, e, e, e, e, e, e);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
429 Interpreter::_normal_table.set_entry(i, entry);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
430 Interpreter::_wentry_point[i] = _unimplemented_bytecode;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
431 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
432
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
433
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
434 void TemplateInterpreterGenerator::set_entry_points(Bytecodes::Code code) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
435 CodeletMark cm(_masm, Bytecodes::name(code), code);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
436 // initialize entry points
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
437 assert(_unimplemented_bytecode != NULL, "should have been generated before");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
438 assert(_illegal_bytecode_sequence != NULL, "should have been generated before");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
439 address bep = _illegal_bytecode_sequence;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
440 address cep = _illegal_bytecode_sequence;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
441 address sep = _illegal_bytecode_sequence;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
442 address aep = _illegal_bytecode_sequence;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
443 address iep = _illegal_bytecode_sequence;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
444 address lep = _illegal_bytecode_sequence;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
445 address fep = _illegal_bytecode_sequence;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
446 address dep = _illegal_bytecode_sequence;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
447 address vep = _unimplemented_bytecode;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
448 address wep = _unimplemented_bytecode;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
449 // code for short & wide version of bytecode
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
450 if (Bytecodes::is_defined(code)) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
451 Template* t = TemplateTable::template_for(code);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
452 assert(t->is_valid(), "just checking");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
453 set_short_entry_points(t, bep, cep, sep, aep, iep, lep, fep, dep, vep);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
454 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
455 if (Bytecodes::wide_is_defined(code)) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
456 Template* t = TemplateTable::template_for_wide(code);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
457 assert(t->is_valid(), "just checking");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
458 set_wide_entry_point(t, wep);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
459 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
460 // set entry points
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
461 EntryPoint entry(bep, cep, sep, aep, iep, lep, fep, dep, vep);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
462 Interpreter::_normal_table.set_entry(code, entry);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
463 Interpreter::_wentry_point[code] = wep;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
464 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
465
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
466
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
467 void TemplateInterpreterGenerator::set_wide_entry_point(Template* t, address& wep) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
468 assert(t->is_valid(), "template must exist");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
469 assert(t->tos_in() == vtos, "only vtos tos_in supported for wide instructions");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
470 wep = __ pc(); generate_and_dispatch(t);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
471 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
472
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
473
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
474 void TemplateInterpreterGenerator::set_short_entry_points(Template* t, address& bep, address& cep, address& sep, address& aep, address& iep, address& lep, address& fep, address& dep, address& vep) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
475 assert(t->is_valid(), "template must exist");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
476 switch (t->tos_in()) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
477 case btos:
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
478 case ctos:
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
479 case stos:
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
480 ShouldNotReachHere(); // btos/ctos/stos should use itos.
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
481 break;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
482 case atos: vep = __ pc(); __ pop(atos); aep = __ pc(); generate_and_dispatch(t); break;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
483 case itos: vep = __ pc(); __ pop(itos); iep = __ pc(); generate_and_dispatch(t); break;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
484 case ltos: vep = __ pc(); __ pop(ltos); lep = __ pc(); generate_and_dispatch(t); break;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
485 case ftos: vep = __ pc(); __ pop(ftos); fep = __ pc(); generate_and_dispatch(t); break;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
486 case dtos: vep = __ pc(); __ pop(dtos); dep = __ pc(); generate_and_dispatch(t); break;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
487 case vtos: set_vtos_entry_points(t, bep, cep, sep, aep, iep, lep, fep, dep, vep); break;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
488 default : ShouldNotReachHere(); break;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
489 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
490 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
491
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
492
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
493 //------------------------------------------------------------------------------------------------------------------------
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
494
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
495 void TemplateInterpreterGenerator::generate_and_dispatch(Template* t, TosState tos_out) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
496 if (PrintBytecodeHistogram) histogram_bytecode(t);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
497 #ifndef PRODUCT
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
498 // debugging code
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
499 if (CountBytecodes || TraceBytecodes || StopInterpreterAt > 0) count_bytecode();
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
500 if (PrintBytecodePairHistogram) histogram_bytecode_pair(t);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
501 if (TraceBytecodes) trace_bytecode(t);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
502 if (StopInterpreterAt > 0) stop_interpreter_at();
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
503 __ verify_FPU(1, t->tos_in());
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
504 #endif // !PRODUCT
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
505 int step;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
506 if (!t->does_dispatch()) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
507 step = t->is_wide() ? Bytecodes::wide_length_for(t->bytecode()) : Bytecodes::length_for(t->bytecode());
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
508 if (tos_out == ilgl) tos_out = t->tos_out();
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
509 // compute bytecode size
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
510 assert(step > 0, "just checkin'");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
511 // setup stuff for dispatching next bytecode
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
512 if (ProfileInterpreter && VerifyDataPointer
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
513 && MethodData::bytecode_has_profile(t->bytecode())) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
514 __ verify_method_data_pointer();
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
515 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
516 __ dispatch_prolog(tos_out, step);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
517 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
518 // generate template
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
519 t->generate(_masm);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
520 // advance
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
521 if (t->does_dispatch()) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
522 #ifdef ASSERT
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
523 // make sure execution doesn't go beyond this point if code is broken
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
524 __ should_not_reach_here();
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
525 #endif // ASSERT
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
526 } else {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
527 // dispatch to next bytecode
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
528 __ dispatch_epilog(tos_out, step);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
529 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
530 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
531
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
532 //------------------------------------------------------------------------------------------------------------------------
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
533 // Entry points
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
534
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
535 address TemplateInterpreter::return_entry(TosState state, int length) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
536 guarantee(0 <= length && length < Interpreter::number_of_return_entries, "illegal length");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
537 return _return_entry[length].entry(state);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
538 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
539
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
540
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
541 address TemplateInterpreter::deopt_entry(TosState state, int length) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
542 guarantee(0 <= length && length < Interpreter::number_of_deopt_entries, "illegal length");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
543 return _deopt_entry[length].entry(state);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
544 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
545
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
546 //------------------------------------------------------------------------------------------------------------------------
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
547 // Suport for invokes
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
548
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
549 int TemplateInterpreter::TosState_as_index(TosState state) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
550 assert( state < number_of_states , "Invalid state in TosState_as_index");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
551 assert(0 <= (int)state && (int)state < TemplateInterpreter::number_of_return_addrs, "index out of bounds");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
552 return (int)state;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
553 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
554
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
555
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
556 //------------------------------------------------------------------------------------------------------------------------
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
557 // Safepoint suppport
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
558
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
559 static inline void copy_table(address* from, address* to, int size) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
560 // Copy non-overlapping tables. The copy has to occur word wise for MT safety.
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
561 while (size-- > 0) *to++ = *from++;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
562 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
563
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
564 void TemplateInterpreter::notice_safepoints() {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
565 if (!_notice_safepoints) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
566 // switch to safepoint dispatch table
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
567 _notice_safepoints = true;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
568 copy_table((address*)&_safept_table, (address*)&_active_table, sizeof(_active_table) / sizeof(address));
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
569 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
570 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
571
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
572 // switch from the dispatch table which notices safepoints back to the
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
573 // normal dispatch table. So that we can notice single stepping points,
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
574 // keep the safepoint dispatch table if we are single stepping in JVMTI.
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
575 // Note that the should_post_single_step test is exactly as fast as the
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
576 // JvmtiExport::_enabled test and covers both cases.
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
577 void TemplateInterpreter::ignore_safepoints() {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
578 if (_notice_safepoints) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
579 if (!JvmtiExport::should_post_single_step()) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
580 // switch to normal dispatch table
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
581 _notice_safepoints = false;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
582 copy_table((address*)&_normal_table, (address*)&_active_table, sizeof(_active_table) / sizeof(address));
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
583 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
584 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
585 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
586
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
587 //------------------------------------------------------------------------------------------------------------------------
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
588 // Deoptimization support
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
589
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
590 // If deoptimization happens, this function returns the point of next bytecode to continue execution
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
591 address TemplateInterpreter::deopt_continue_after_entry(Method* method, address bcp, int callee_parameters, bool is_top_frame) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
592 return AbstractInterpreter::deopt_continue_after_entry(method, bcp, callee_parameters, is_top_frame);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
593 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
594
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
595 // If deoptimization happens, this function returns the point where the interpreter reexecutes
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
596 // the bytecode.
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
597 // Note: Bytecodes::_athrow (C1 only) and Bytecodes::_return are the special cases
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
598 // that do not return "Interpreter::deopt_entry(vtos, 0)"
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
599 address TemplateInterpreter::deopt_reexecute_entry(Method* method, address bcp) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
600 assert(method->contains(bcp), "just checkin'");
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
601 Bytecodes::Code code = Bytecodes::java_code_at(method, bcp);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
602 if (code == Bytecodes::_return) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
603 // This is used for deopt during registration of finalizers
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
604 // during Object.<init>. We simply need to resume execution at
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
605 // the standard return vtos bytecode to pop the frame normally.
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
606 // reexecuting the real bytecode would cause double registration
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
607 // of the finalizable object.
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
608 return _normal_table.entry(Bytecodes::_return).entry(vtos);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
609 } else {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
610 return AbstractInterpreter::deopt_reexecute_entry(method, bcp);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
611 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
612 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
613
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
614 // If deoptimization happens, the interpreter should reexecute this bytecode.
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
615 // This function mainly helps the compilers to set up the reexecute bit.
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
616 bool TemplateInterpreter::bytecode_should_reexecute(Bytecodes::Code code) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
617 if (code == Bytecodes::_return) {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
618 //Yes, we consider Bytecodes::_return as a special case of reexecution
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
619 return true;
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
620 } else {
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
621 return AbstractInterpreter::bytecode_should_reexecute(code);
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
622 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
623 }
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
624
Christian Haeubl <haeubl@ssw.jku.at>
parents: 7062 6926
diff changeset
625 #endif // !CC_INTERP