qemu

tcg-pool.c.inc (5387B)

---

 /*
  * TCG Backend Data: constant pool.
  *
  * Permission is hereby granted, free of charge, to any person obtaining a copy
  * of this software and associated documentation files (the "Software"), to deal
  * in the Software without restriction, including without limitation the rights
  * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  * copies of the Software, and to permit persons to whom the Software is
  * furnished to do so, subject to the following conditions:
  *
  * The above copyright notice and this permission notice shall be included in
  * all copies or substantial portions of the Software.
  *
  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
  * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  * THE SOFTWARE.
  */
 
 typedef struct TCGLabelPoolData {
     struct TCGLabelPoolData *next;
     tcg_insn_unit *label;
     intptr_t addend;
     int rtype;
     unsigned nlong;
     tcg_target_ulong data[];
 } TCGLabelPoolData;
 
 
 static TCGLabelPoolData *new_pool_alloc(TCGContext *s, int nlong, int rtype,
                                         tcg_insn_unit *label, intptr_t addend)
 {
     TCGLabelPoolData *n = tcg_malloc(sizeof(TCGLabelPoolData)
                                      + sizeof(tcg_target_ulong) * nlong);
 
     n->label = label;
     n->addend = addend;
     n->rtype = rtype;
     n->nlong = nlong;
     return n;
 }
 
 static void new_pool_insert(TCGContext *s, TCGLabelPoolData *n)
 {
     TCGLabelPoolData *i, **pp;
     int nlong = n->nlong;
 
     /* Insertion sort on the pool.  */
     for (pp = &s->pool_labels; (i = *pp) != NULL; pp = &i->next) {
         if (nlong > i->nlong) {
             break;
         }
         if (nlong < i->nlong) {
             continue;
         }
         if (memcmp(n->data, i->data, sizeof(tcg_target_ulong) * nlong) >= 0) {
             break;
         }
     }
     n->next = *pp;
     *pp = n;
 }
 
 /* The "usual" for generic integer code.  */
 static inline void new_pool_label(TCGContext *s, tcg_target_ulong d, int rtype,
                                   tcg_insn_unit *label, intptr_t addend)
 {
     TCGLabelPoolData *n = new_pool_alloc(s, 1, rtype, label, addend);
     n->data[0] = d;
     new_pool_insert(s, n);
 }
 
 /* For v64 or v128, depending on the host.  */
 static inline void new_pool_l2(TCGContext *s, int rtype, tcg_insn_unit *label,
                                intptr_t addend, tcg_target_ulong d0,
                                tcg_target_ulong d1)
 {
     TCGLabelPoolData *n = new_pool_alloc(s, 2, rtype, label, addend);
     n->data[0] = d0;
     n->data[1] = d1;
     new_pool_insert(s, n);
 }
 
 /* For v128 or v256, depending on the host.  */
 static inline void new_pool_l4(TCGContext *s, int rtype, tcg_insn_unit *label,
                                intptr_t addend, tcg_target_ulong d0,
                                tcg_target_ulong d1, tcg_target_ulong d2,
                                tcg_target_ulong d3)
 {
     TCGLabelPoolData *n = new_pool_alloc(s, 4, rtype, label, addend);
     n->data[0] = d0;
     n->data[1] = d1;
     n->data[2] = d2;
     n->data[3] = d3;
     new_pool_insert(s, n);
 }
 
 /* For v256, for 32-bit host.  */
 static inline void new_pool_l8(TCGContext *s, int rtype, tcg_insn_unit *label,
                                intptr_t addend, tcg_target_ulong d0,
                                tcg_target_ulong d1, tcg_target_ulong d2,
                                tcg_target_ulong d3, tcg_target_ulong d4,
                                tcg_target_ulong d5, tcg_target_ulong d6,
                                tcg_target_ulong d7)
 {
     TCGLabelPoolData *n = new_pool_alloc(s, 8, rtype, label, addend);
     n->data[0] = d0;
     n->data[1] = d1;
     n->data[2] = d2;
     n->data[3] = d3;
     n->data[4] = d4;
     n->data[5] = d5;
     n->data[6] = d6;
     n->data[7] = d7;
     new_pool_insert(s, n);
 }
 
 /* To be provided by cpu/tcg-target.c.inc.  */
 static void tcg_out_nop_fill(tcg_insn_unit *p, int count);
 
 static int tcg_out_pool_finalize(TCGContext *s)
 {
     TCGLabelPoolData *p = s->pool_labels;
     TCGLabelPoolData *l = NULL;
     void *a;
 
     if (p == NULL) {
         return 0;
     }
 
     /* ??? Round up to qemu_icache_linesize, but then do not round
        again when allocating the next TranslationBlock structure.  */
     a = (void *)ROUND_UP((uintptr_t)s->code_ptr,
                          sizeof(tcg_target_ulong) * p->nlong);
     tcg_out_nop_fill(s->code_ptr, (tcg_insn_unit *)a - s->code_ptr);
     s->data_gen_ptr = a;
 
     for (; p != NULL; p = p->next) {
         size_t size = sizeof(tcg_target_ulong) * p->nlong;
         uintptr_t value;
 
         if (!l || l->nlong != p->nlong || memcmp(l->data, p->data, size)) {
             if (unlikely(a > s->code_gen_highwater)) {
                 return -1;
             }
             memcpy(a, p->data, size);
             a += size;
             l = p;
         }
 
         value = (uintptr_t)tcg_splitwx_to_rx(a) - size;
         if (!patch_reloc(p->label, p->rtype, value, p->addend)) {
             return -2;
         }
     }
 
     s->code_ptr = a;
     return 0;
 }