1 /*
2 * Copyright (c) 2016, Oracle and/or its affiliates. All rights reserved.
3 * Copyright (c) 2016 SAP SE. All rights reserved.
4 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5 *
6 * This code is free software; you can redistribute it and/or modify it
7 * under the terms of the GNU General Public License version 2 only, as
8 * published by the Free Software Foundation.
9 *
10 * This code is distributed in the hope that it will be useful, but WITHOUT
11 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
12 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
13 * version 2 for more details (a copy is included in the LICENSE file that
14 * accompanied this code).
15 *
16 * You should have received a copy of the GNU General Public License version
17 * 2 along with this work; if not, write to the Free Software Foundation,
18 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
19 *
20 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
21 * or visit www.oracle.com if you need additional information or have any
22 * questions.
23 *
24 */
25
26 #include "precompiled.hpp"
27 #ifdef COMPILER2
28 #include "asm/macroAssembler.inline.hpp"
29 #include "classfile/systemDictionary.hpp"
30 #include "code/vmreg.hpp"
31 #include "interpreter/interpreter.hpp"
32 #include "memory/resourceArea.hpp"
33 #include "nativeInst_s390.hpp"
34 #include "opto/runtime.hpp"
35 #include "runtime/interfaceSupport.inline.hpp"
36 #include "runtime/sharedRuntime.hpp"
37 #include "runtime/stubRoutines.hpp"
38 #include "runtime/vframeArray.hpp"
39 #include "utilities/globalDefinitions.hpp"
40 #include "vmreg_s390.inline.hpp"
41 #endif
42
43 #define __ masm->
44
45
46 //------------------------------generate_exception_blob---------------------------
47 // creates exception blob at the end
48 // Using exception blob, this code is jumped from a compiled method.
49 // (see emit_exception_handler in s390.ad file)
50 //
51 // Given an exception pc at a call we call into the runtime for the
52 // handler in this method. This handler might merely restore state
53 // (i.e. callee save registers), unwind the frame, and jump to the
54 // exception handler for the nmethod if there is no Java level handler
55 // for the nmethod.
56 //
57 // This code is entered with a branch.
58 //
59 // Arguments:
60 // Z_R2(=Z_ARG1): exception oop
61 // Z_R3(=Z_ARG2): exception pc
62 //
63 // Results:
64 // Z_R2: exception oop
65 // Z_R3: exception pc in caller
66 // destination: exception handler of caller
67 //
68 // Note: the exception pc MUST be at a call (precise debug information)
69
generate_exception_blob()70 void OptoRuntime::generate_exception_blob() {
71
72 // Allocate space for the code
73 ResourceMark rm;
74 // Setup code generation tools
75 CodeBuffer buffer("exception_blob", 2048, 1024);
76 MacroAssembler* masm = new MacroAssembler(&buffer);
77
78 Register handle_exception = Z_ARG5;
79
80 __ verify_thread();
81 __ z_stg(Z_ARG1/*exception oop*/, Address(Z_thread, JavaThread::exception_oop_offset()));
82 __ z_stg(Z_ARG2/*issuing pc*/, Address(Z_thread, JavaThread::exception_pc_offset()));
83
84 // Store issuing pc as return pc into
85 // caller's frame. stack-walking needs it. R14 is not valid here,
86 // because this code gets entered with a jump.
87 __ z_stg(Z_ARG2/*issuing pc*/, _z_abi(return_pc), Z_SP);
88
89 // The following call to function OptoRuntime::handle_exception_C
90 // does all the hard work. It checks if an
91 // exception catch exists in the method. If so, it returns the
92 // handler address. If the nmethod has been deoptimized and it had
93 // a handler the handler address is the deopt blob's
94 // unpack_with_exception entry.
95
96 // push a C frame for the exception blob. it is needed for the
97 // C call later on.
98
99 Register saved_sp = Z_R11;
100
101 __ z_lgr(saved_sp, Z_SP);
102
103 // push frame for blob.
104 int frame_size = __ push_frame_abi160(0);
105
106 __ get_PC(Z_R1/*scratch*/);
107 __ set_last_Java_frame(/*sp=*/Z_SP, /*pc=*/Z_R1);
108
109 // This call can lead to deoptimization of the nmethod holding the handler.
110 __ z_lgr(Z_ARG1, Z_thread); // argument of C function
111 __ call_c(CAST_FROM_FN_PTR(address, OptoRuntime::handle_exception_C));
112
113 __ z_lgr(handle_exception, Z_RET);
114 __ reset_last_Java_frame();
115
116 // Pop the exception blob's C frame that has been pushed before.
117 __ z_lgr(Z_SP, saved_sp);
118
119 // [Z_RET]!=NULL was possible in hotspot5 but not in sapjvm6.
120 // C2I adapter extensions are now removed by a resize in the frame manager
121 // (unwind_initial_activation_pending_exception).
122 #ifdef ASSERT
123 __ z_ltgr(handle_exception, handle_exception);
124 __ asm_assert_ne("handler must not be NULL", 0x852);
125 #endif
126
127 // Handle_exception contains the handler address. If the associated frame
128 // has been deoptimized then the handler has been patched to jump to
129 // the deoptimization blob.
130
131 // If the exception handler jumps to the deoptimization blob, the
132 // exception pc will be read from there.
133 __ z_lg(Z_ARG2, Address(Z_thread, JavaThread::exception_pc_offset()));
134
135 __ z_lg(Z_ARG1, Address(Z_thread, JavaThread::exception_oop_offset()));
136
137 // Clear the exception oop so GC no longer processes it as a root.
138 __ clear_mem(Address(Z_thread, JavaThread::exception_oop_offset()),sizeof(intptr_t));
139 #ifdef ASSERT
140 __ clear_mem(Address(Z_thread, JavaThread::exception_handler_pc_offset()), sizeof(intptr_t));
141 __ clear_mem(Address(Z_thread, JavaThread::exception_pc_offset()), sizeof(intptr_t));
142 #endif
143
144 __ z_br(handle_exception);
145
146 // Make sure all code is generated.
147 masm->flush();
148
149 // Set exception blob.
150 OopMapSet *oop_maps = NULL;
151 _exception_blob = ExceptionBlob::create(&buffer, oop_maps, frame_size/wordSize);
152 }
153