gcc/data-streamer.c

   1 /* Generic streaming support for basic data types.
   2
   3    Copyright (C) 2011-2014 Free Software Foundation, Inc.
   4    Contributed by Diego Novillo <dnovillo@google.com>
   5
   6 This file is part of GCC.
   7
   8 GCC is free software; you can redistribute it and/or modify it under
   9 the terms of the GNU General Public License as published by the Free
  10 Software Foundation; either version 3, or (at your option) any later
  11 version.
  12
  13 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  15 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  16 for more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with GCC; see the file COPYING3.  If not see
  20 <http://www.gnu.org/licenses/>.  */
  21
  22 #include "config.h"
  23 #include "system.h"
  24 #include "coretypes.h"
  25 #include "tree.h"
  26 #include "predict.h"
  27 #include "vec.h"
  28 #include "hashtab.h"
  29 #include "hash-set.h"
  30 #include "machmode.h"
  31 #include "tm.h"
  32 #include "hard-reg-set.h"
  33 #include "input.h"
  34 #include "function.h"
  35 #include "basic-block.h"
  36 #include "tree-ssa-alias.h"
  37 #include "internal-fn.h"
  38 #include "gimple-expr.h"
  39 #include "is-a.h"
  40 #include "gimple.h"
  41 #include "hash-map.h"
  42 #include "plugin-api.h"
  43 #include "ipa-ref.h"
  44 #include "cgraph.h"
  45 #include "data-streamer.h"
  46
  47 /* Pack WORK into BP in a variant of uleb format.  */
  48
  49 void
  50 bp_pack_var_len_unsigned (struct bitpack_d *bp, unsigned HOST_WIDE_INT work)
  51 {
  52   do
  53     {
  54       unsigned int half_byte = (work & 0x7);
  55       work >>= 3;
  56       if (work != 0)
  57         /* More half_bytes to follow.  */
  58         half_byte |= 0x8;
  59
  60       bp_pack_value (bp, half_byte, 4);
  61     }
  62   while (work != 0);
  63 }
  64
  65
  66 /* Pack WORK into BP in a variant of sleb format.  */
  67
  68 void
  69 bp_pack_var_len_int (struct bitpack_d *bp, HOST_WIDE_INT work)
  70 {
  71   int more, half_byte;
  72
  73   do
  74     {
  75       half_byte = (work & 0x7);
  76       /* arithmetic shift */
  77       work >>= 3;
  78       more = !((work == 0 && (half_byte & 0x4) == 0)
  79                || (work == -1 && (half_byte & 0x4) != 0));
  80       if (more)
  81         half_byte |= 0x8;
  82
  83       bp_pack_value (bp, half_byte, 4);
  84     }
  85   while (more);
  86 }
  87
  88
  89 /* Unpack VAL from BP in a variant of uleb format.  */
  90
  91 unsigned HOST_WIDE_INT
  92 bp_unpack_var_len_unsigned (struct bitpack_d *bp)
  93 {
  94   unsigned HOST_WIDE_INT result = 0;
  95   int shift = 0;
  96   unsigned HOST_WIDE_INT half_byte;
  97
  98   while (true)
  99     {
 100       half_byte = bp_unpack_value (bp, 4);
 101       result |= (half_byte & 0x7) << shift;
 102       shift += 3;
 103       if ((half_byte & 0x8) == 0)
 104         return result;
 105     }
 106 }
 107
 108
 109 /* Unpack VAL from BP in a variant of sleb format.  */
 110
 111 HOST_WIDE_INT
 112 bp_unpack_var_len_int (struct bitpack_d *bp)
 113 {
 114   HOST_WIDE_INT result = 0;
 115   int shift = 0;
 116   unsigned HOST_WIDE_INT half_byte;
 117
 118   while (true)
 119     {
 120       half_byte = bp_unpack_value (bp, 4);
 121       result |= (half_byte & 0x7) << shift;
 122       shift += 3;
 123       if ((half_byte & 0x8) == 0)
 124         {
 125           if ((shift < HOST_BITS_PER_WIDE_INT) && (half_byte & 0x4))
 126             result |= - (HOST_WIDE_INT_1U << shift);
 127
 128           return result;
 129         }
 130     }
 131 }