1 /*
  2  * Copyright (c) 2018, 2021, Red Hat, Inc. 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  */
 24 
 25 #ifndef SHARE_GC_SHENANDOAH_C2_SHENANDOAHBARRIERSETC2_HPP
 26 #define SHARE_GC_SHENANDOAH_C2_SHENANDOAHBARRIERSETC2_HPP
 27 
 28 #include "shenandoahBarrierSetC2.hpp"
 29 #include "gc/shared/c2/barrierSetC2.hpp"
 30 #include "utilities/growableArray.hpp"
 31 
 32 static const uint8_t ShenandoahBarrierStrong          = 1 << 0;
 33 static const uint8_t ShenandoahBarrierWeak            = 1 << 1;
 34 static const uint8_t ShenandoahBarrierPhantom         = 1 << 2;
 35 static const uint8_t ShenandoahBarrierNative          = 1 << 3;
 36 static const uint8_t ShenandoahBarrierElided          = 1 << 4;
 37 static const uint8_t ShenandoahBarrierSATB            = 1 << 5;
 38 static const uint8_t ShenandoahBarrierCardMark        = 1 << 6;
 39 static const uint8_t ShenandoahBarrierCardMarkNotNull = 1 << 7;
 40 
 41 class ShenandoahBarrierStubC2;
 42 
 43 class ShenandoahBarrierSetC2State : public BarrierSetC2State {
 44   GrowableArray<ShenandoahBarrierStubC2*>* _stubs;
 45   int _stubs_start_offset;
 46 
 47 public:
 48   explicit ShenandoahBarrierSetC2State(Arena* comp_arena);
 49 
 50   bool needs_liveness_data(const MachNode* mach) const override;
 51   bool needs_livein_data() const override;
 52 
 53   GrowableArray<ShenandoahBarrierStubC2*>* stubs() {
 54     return _stubs;
 55   }
 56 
 57   void set_stubs_start_offset(int offset) {
 58     _stubs_start_offset = offset;
 59   }
 60 
 61   int stubs_start_offset() {
 62     return _stubs_start_offset;
 63   }};
 64 
 65 class ShenandoahBarrierSetC2 : public BarrierSetC2 {
 66 
 67   static bool clone_needs_barrier(Node* src, PhaseGVN& gvn);
 68 
 69 protected:
 70   virtual Node* load_at_resolved(C2Access& access, const Type* val_type) const;
 71   virtual Node* store_at_resolved(C2Access& access, C2AccessValue& val) const;
 72   virtual Node* atomic_cmpxchg_val_at_resolved(C2AtomicParseAccess& access, Node* expected_val,
 73                                                Node* new_val, const Type* val_type) const;
 74   virtual Node* atomic_cmpxchg_bool_at_resolved(C2AtomicParseAccess& access, Node* expected_val,
 75                                                 Node* new_val, const Type* value_type) const;
 76   virtual Node* atomic_xchg_at_resolved(C2AtomicParseAccess& access, Node* new_val, const Type* val_type) const;
 77 
 78 public:
 79   static ShenandoahBarrierSetC2* bsc2();
 80 
 81   static bool is_shenandoah_clone_call(Node* call);
 82 
 83   ShenandoahBarrierSetC2State* state() const;
 84 
 85   static const TypeFunc* clone_barrier_Type();
 86 
 87   // This is the entry-point for the backend to perform accesses through the Access API.
 88   virtual void clone_at_expansion(PhaseMacroExpand* phase, ArrayCopyNode* ac) const;
 89 
 90   // These are general helper methods used by C2
 91   virtual bool array_copy_requires_gc_barriers(bool tightly_coupled_alloc, BasicType type, bool is_clone, bool is_clone_instance, ArrayCopyPhase phase) const;
 92 
 93   // Support for GC barriers emitted during parsing
 94   virtual bool is_gc_barrier_node(Node* node) const;
 95   virtual bool expand_barriers(Compile* C, PhaseIterGVN& igvn) const;
 96 
 97   // Support for macro expanded GC barriers
 98   virtual void eliminate_gc_barrier(PhaseMacroExpand* macro, Node* node) const;
 99   virtual void eliminate_gc_barrier_data(Node* node) const;
100 
101   // Allow barrier sets to have shared state that is preserved across a compilation unit.
102   // This could for example comprise macro nodes to be expanded during macro expansion.
103   virtual void* create_barrier_state(Arena* comp_arena) const;
104 
105 #ifdef ASSERT
106   virtual void verify_gc_barriers(Compile* compile, CompilePhase phase) const;
107 #endif
108 
109   int estimate_stub_size() const /* override */;
110   void emit_stubs(CodeBuffer& cb) const /* override */;
111   void late_barrier_analysis() const /* override*/ {
112     compute_liveness_at_stubs();
113   }
114 
115 };
116 
117 class ShenandoahBarrierStubC2 : public BarrierStubC2 {
118 protected:
119   explicit ShenandoahBarrierStubC2(const MachNode* node) : BarrierStubC2(node) {}
120   void register_stub();
121 public:
122   virtual void emit_code(MacroAssembler& masm) = 0;
123 };
124 
125 class ShenandoahLoadRefBarrierStubC2 : public ShenandoahBarrierStubC2 {
126   Register _obj;
127   Register _addr;
128   Register _tmp1;
129   Register _tmp2;
130   Register _tmp3;
131   bool _narrow;
132   ShenandoahLoadRefBarrierStubC2(const MachNode* node, Register obj, Register addr, Register tmp1, Register tmp2, Register tmp3, bool narrow) :
133     ShenandoahBarrierStubC2(node), _obj(obj), _addr(addr), _tmp1(tmp1), _tmp2(tmp2), _tmp3(tmp3), _narrow(narrow) {}
134 public:
135   static bool needs_barrier(const MachNode* node) {
136     return (node->barrier_data() & (ShenandoahBarrierStrong | ShenandoahBarrierWeak | ShenandoahBarrierPhantom | ShenandoahBarrierNative)) != 0;
137   }
138   static ShenandoahLoadRefBarrierStubC2* create(const MachNode* node, Register obj, Register addr, Register tmp1, Register tmp2, Register tmp3, bool narrow);
139   void emit_code(MacroAssembler& masm) override;
140 };
141 
142 class ShenandoahSATBBarrierStubC2 : public ShenandoahBarrierStubC2 {
143   Register _addr;
144   Register _preval;
145   Register _tmp;
146   ShenandoahSATBBarrierStubC2(const MachNode* node, Register addr, Register preval, Register tmp) :
147     ShenandoahBarrierStubC2(node), _addr(addr), _preval(preval), _tmp(tmp) {}
148 
149 public:
150   static bool needs_barrier(const MachNode* node) {
151     return (node->barrier_data() & ShenandoahBarrierSATB) != 0;
152   }
153   static ShenandoahSATBBarrierStubC2* create(const MachNode* node, Register addr, Register preval, Register tmp = noreg);
154 
155   void emit_code(MacroAssembler& masm) override;
156 };
157 
158 class ShenandoahCASBarrierSlowStubC2 : public ShenandoahBarrierStubC2 {
159   Register _addr_reg;
160   Address  _addr;
161   Register _expected;
162   Register _new_val;
163   Register _result;
164   Register _tmp1;
165   Register _tmp2;
166   bool     _cae;
167   bool     _acquire;
168   bool     _release;
169   bool     _weak;
170 
171   explicit ShenandoahCASBarrierSlowStubC2(const MachNode* node, Register addr_reg, Address addr, Register expected, Register new_val, Register result, Register tmp1, Register tmp2, bool cae, bool acquire, bool release, bool weak) :
172     ShenandoahBarrierStubC2(node),
173     _addr_reg(addr_reg), _addr(addr), _expected(expected), _new_val(new_val), _result(result), _tmp1(tmp1), _tmp2(tmp2), _cae(cae), _acquire(acquire), _release(release),  _weak(weak) {}
174 
175 public:
176   static ShenandoahCASBarrierSlowStubC2* create(const MachNode* node, Register addr, Register expected, Register new_val, Register result, Register tmp, bool cae, bool acquire, bool release, bool weak);
177   static ShenandoahCASBarrierSlowStubC2* create(const MachNode* node, Address addr, Register expected, Register new_val, Register result, Register tmp1, Register tmp2, bool cae);
178   void emit_code(MacroAssembler& masm) override;
179 };
180 
181 class ShenandoahCASBarrierMidStubC2 : public ShenandoahBarrierStubC2 {
182   ShenandoahCASBarrierSlowStubC2* _slow_stub;
183   Register _expected;
184   Register _result;
185   Register _tmp;
186   bool _cae;
187   ShenandoahCASBarrierMidStubC2(const MachNode* node, ShenandoahCASBarrierSlowStubC2* slow_stub, Register expected, Register result, Register tmp, bool cae) :
188     ShenandoahBarrierStubC2(node), _slow_stub(slow_stub), _expected(expected), _result(result), _tmp(tmp), _cae(cae) {}
189 public:
190   static ShenandoahCASBarrierMidStubC2* create(const MachNode* node, ShenandoahCASBarrierSlowStubC2* slow_stub, Register expected, Register result, Register tmp, bool cae);
191   void emit_code(MacroAssembler& masm) override;
192 };
193 
194 #endif // SHARE_GC_SHENANDOAH_C2_SHENANDOAHBARRIERSETC2_HPP