Wed, 18 Sep 2013 14:34:56 -0700
8024342: PPC64 (part 111): Support for C calling conventions that require 64-bit ints.
Summary: Some platforms, as ppc and s390x/zArch require that 32-bit ints are passed as 64-bit values to C functions. This change adds support to adapt the signature and to issue proper casts to c2-compiled stubs. The functions are used in generate_native_wrapper(). Adapt signature used by the compiler as in PhaseIdealLoop::intrinsify_fill().
Reviewed-by: kvn
1 /*
2 * Copyright (c) 1997, 2012, 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 */
25 #include "precompiled.hpp"
26 #include "code/nmethod.hpp"
27 #include "compiler/compileBroker.hpp"
28 #include "opto/compile.hpp"
29 #include "opto/node.hpp"
30 #include "opto/phase.hpp"
32 #ifndef PRODUCT
33 int Phase::_total_bytes_compiled = 0;
35 elapsedTimer Phase::_t_totalCompilation;
36 elapsedTimer Phase::_t_methodCompilation;
37 elapsedTimer Phase::_t_stubCompilation;
38 #endif
40 // The next timers used for LogCompilation
41 elapsedTimer Phase::_t_parser;
42 elapsedTimer Phase::_t_optimizer;
43 elapsedTimer Phase::_t_escapeAnalysis;
44 elapsedTimer Phase::_t_connectionGraph;
45 elapsedTimer Phase::_t_idealLoop;
46 elapsedTimer Phase::_t_ccp;
47 elapsedTimer Phase::_t_matcher;
48 elapsedTimer Phase::_t_registerAllocation;
49 elapsedTimer Phase::_t_output;
51 #ifndef PRODUCT
52 elapsedTimer Phase::_t_graphReshaping;
53 elapsedTimer Phase::_t_scheduler;
54 elapsedTimer Phase::_t_blockOrdering;
55 elapsedTimer Phase::_t_macroEliminate;
56 elapsedTimer Phase::_t_macroExpand;
57 elapsedTimer Phase::_t_peephole;
58 elapsedTimer Phase::_t_codeGeneration;
59 elapsedTimer Phase::_t_registerMethod;
60 elapsedTimer Phase::_t_temporaryTimer1;
61 elapsedTimer Phase::_t_temporaryTimer2;
62 elapsedTimer Phase::_t_idealLoopVerify;
64 // Subtimers for _t_optimizer
65 elapsedTimer Phase::_t_iterGVN;
66 elapsedTimer Phase::_t_iterGVN2;
67 elapsedTimer Phase::_t_incrInline;
69 // Subtimers for _t_registerAllocation
70 elapsedTimer Phase::_t_ctorChaitin;
71 elapsedTimer Phase::_t_buildIFGphysical;
72 elapsedTimer Phase::_t_computeLive;
73 elapsedTimer Phase::_t_regAllocSplit;
74 elapsedTimer Phase::_t_postAllocCopyRemoval;
75 elapsedTimer Phase::_t_fixupSpills;
77 // Subtimers for _t_output
78 elapsedTimer Phase::_t_instrSched;
79 elapsedTimer Phase::_t_buildOopMaps;
80 #endif
82 //------------------------------Phase------------------------------------------
83 Phase::Phase( PhaseNumber pnum ) : _pnum(pnum), C( pnum == Compiler ? NULL : Compile::current()) {
84 // Poll for requests from shutdown mechanism to quiesce compiler (4448539, 4448544).
85 // This is an effective place to poll, since the compiler is full of phases.
86 // In particular, every inlining site uses a recursively created Parse phase.
87 CompileBroker::maybe_block();
88 }
90 #ifndef PRODUCT
91 static const double minimum_reported_time = 0.0001; // seconds
92 static const double expected_method_compile_coverage = 0.97; // %
93 static const double minimum_meaningful_method_compile = 2.00; // seconds
95 void Phase::print_timers() {
96 tty->print_cr ("Accumulated compiler times:");
97 tty->print_cr ("---------------------------");
98 tty->print_cr (" Total compilation: %3.3f sec.", Phase::_t_totalCompilation.seconds());
99 tty->print (" method compilation : %3.3f sec", Phase::_t_methodCompilation.seconds());
100 tty->print ("/%d bytes",_total_bytes_compiled);
101 tty->print_cr (" (%3.0f bytes per sec) ", Phase::_total_bytes_compiled / Phase::_t_methodCompilation.seconds());
102 tty->print_cr (" stub compilation : %3.3f sec.", Phase::_t_stubCompilation.seconds());
103 tty->print_cr (" Phases:");
104 tty->print_cr (" parse : %3.3f sec", Phase::_t_parser.seconds());
105 tty->print_cr (" optimizer : %3.3f sec", Phase::_t_optimizer.seconds());
106 if( Verbose || WizardMode ) {
107 if (DoEscapeAnalysis) {
108 // EA is part of Optimizer.
109 tty->print_cr (" escape analysis: %3.3f sec", Phase::_t_escapeAnalysis.seconds());
110 tty->print_cr (" connection graph: %3.3f sec", Phase::_t_connectionGraph.seconds());
111 tty->print_cr (" macroEliminate : %3.3f sec", Phase::_t_macroEliminate.seconds());
112 }
113 tty->print_cr (" iterGVN : %3.3f sec", Phase::_t_iterGVN.seconds());
114 tty->print_cr (" incrInline : %3.3f sec", Phase::_t_incrInline.seconds());
115 tty->print_cr (" idealLoop : %3.3f sec", Phase::_t_idealLoop.seconds());
116 tty->print_cr (" idealLoopVerify: %3.3f sec", Phase::_t_idealLoopVerify.seconds());
117 tty->print_cr (" ccp : %3.3f sec", Phase::_t_ccp.seconds());
118 tty->print_cr (" iterGVN2 : %3.3f sec", Phase::_t_iterGVN2.seconds());
119 tty->print_cr (" macroExpand : %3.3f sec", Phase::_t_macroExpand.seconds());
120 tty->print_cr (" graphReshape : %3.3f sec", Phase::_t_graphReshaping.seconds());
121 double optimizer_subtotal = Phase::_t_iterGVN.seconds() + Phase::_t_iterGVN2.seconds() +
122 Phase::_t_escapeAnalysis.seconds() + Phase::_t_macroEliminate.seconds() +
123 Phase::_t_idealLoop.seconds() + Phase::_t_ccp.seconds() +
124 Phase::_t_macroExpand.seconds() + Phase::_t_graphReshaping.seconds();
125 double percent_of_optimizer = ((optimizer_subtotal == 0.0) ? 0.0 : (optimizer_subtotal / Phase::_t_optimizer.seconds() * 100.0));
126 tty->print_cr (" subtotal : %3.3f sec, %3.2f %%", optimizer_subtotal, percent_of_optimizer);
127 }
128 tty->print_cr (" matcher : %3.3f sec", Phase::_t_matcher.seconds());
129 tty->print_cr (" scheduler : %3.3f sec", Phase::_t_scheduler.seconds());
130 tty->print_cr (" regalloc : %3.3f sec", Phase::_t_registerAllocation.seconds());
131 if( Verbose || WizardMode ) {
132 tty->print_cr (" ctorChaitin : %3.3f sec", Phase::_t_ctorChaitin.seconds());
133 tty->print_cr (" buildIFG : %3.3f sec", Phase::_t_buildIFGphysical.seconds());
134 tty->print_cr (" computeLive : %3.3f sec", Phase::_t_computeLive.seconds());
135 tty->print_cr (" regAllocSplit : %3.3f sec", Phase::_t_regAllocSplit.seconds());
136 tty->print_cr (" postAllocCopyRemoval: %3.3f sec", Phase::_t_postAllocCopyRemoval.seconds());
137 tty->print_cr (" fixupSpills : %3.3f sec", Phase::_t_fixupSpills.seconds());
138 double regalloc_subtotal = Phase::_t_ctorChaitin.seconds() +
139 Phase::_t_buildIFGphysical.seconds() + Phase::_t_computeLive.seconds() +
140 Phase::_t_regAllocSplit.seconds() + Phase::_t_fixupSpills.seconds() +
141 Phase::_t_postAllocCopyRemoval.seconds();
142 double percent_of_regalloc = ((regalloc_subtotal == 0.0) ? 0.0 : (regalloc_subtotal / Phase::_t_registerAllocation.seconds() * 100.0));
143 tty->print_cr (" subtotal : %3.3f sec, %3.2f %%", regalloc_subtotal, percent_of_regalloc);
144 }
145 tty->print_cr (" blockOrdering : %3.3f sec", Phase::_t_blockOrdering.seconds());
146 tty->print_cr (" peephole : %3.3f sec", Phase::_t_peephole.seconds());
147 tty->print_cr (" codeGen : %3.3f sec", Phase::_t_codeGeneration.seconds());
148 tty->print_cr (" install_code : %3.3f sec", Phase::_t_registerMethod.seconds());
149 tty->print_cr (" -------------- : ----------");
150 double phase_subtotal = Phase::_t_parser.seconds() +
151 Phase::_t_optimizer.seconds() + Phase::_t_graphReshaping.seconds() +
152 Phase::_t_matcher.seconds() + Phase::_t_scheduler.seconds() +
153 Phase::_t_registerAllocation.seconds() + Phase::_t_blockOrdering.seconds() +
154 Phase::_t_codeGeneration.seconds() + Phase::_t_registerMethod.seconds();
155 double percent_of_method_compile = ((phase_subtotal == 0.0) ? 0.0 : phase_subtotal / Phase::_t_methodCompilation.seconds()) * 100.0;
156 // counters inside Compile::CodeGen include time for adapters and stubs
157 // so phase-total can be greater than 100%
158 tty->print_cr (" total : %3.3f sec, %3.2f %%", phase_subtotal, percent_of_method_compile);
160 assert( percent_of_method_compile > expected_method_compile_coverage ||
161 phase_subtotal < minimum_meaningful_method_compile,
162 "Must account for method compilation");
164 if( Phase::_t_temporaryTimer1.seconds() > minimum_reported_time ) {
165 tty->cr();
166 tty->print_cr (" temporaryTimer1: %3.3f sec", Phase::_t_temporaryTimer1.seconds());
167 }
168 if( Phase::_t_temporaryTimer2.seconds() > minimum_reported_time ) {
169 tty->cr();
170 tty->print_cr (" temporaryTimer2: %3.3f sec", Phase::_t_temporaryTimer2.seconds());
171 }
172 tty->print_cr (" output : %3.3f sec", Phase::_t_output.seconds());
173 tty->print_cr (" isched : %3.3f sec", Phase::_t_instrSched.seconds());
174 tty->print_cr (" bldOopMaps : %3.3f sec", Phase::_t_buildOopMaps.seconds());
175 }
176 #endif