contrib/gcc-5.0/gcc/data-streamer.c

   1 /* Generic streaming support for basic data types.
   2
   3    Copyright (C) 2011-2015 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 "hash-set.h"
  26 #include "machmode.h"
  27 #include "vec.h"
  28 #include "double-int.h"
  29 #include "input.h"
  30 #include "alias.h"
  31 #include "symtab.h"
  32 #include "options.h"
  33 #include "wide-int.h"
  34 #include "inchash.h"
  35 #include "tree.h"
  36 #include "fold-const.h"
  37 #include "predict.h"
  38 #include "tm.h"
  39 #include "hard-reg-set.h"
  40 #include "input.h"
  41 #include "function.h"
  42 #include "basic-block.h"
  43 #include "tree-ssa-alias.h"
  44 #include "internal-fn.h"
  45 #include "gimple-expr.h"
  46 #include "is-a.h"
  47 #include "gimple.h"
  48 #include "hash-map.h"
  49 #include "plugin-api.h"
  50 #include "ipa-ref.h"
  51 #include "cgraph.h"
  52 #include "data-streamer.h"
  53
  54 /* Pack WORK into BP in a variant of uleb format.  */
  55
  56 void
  57 bp_pack_var_len_unsigned (struct bitpack_d *bp, unsigned HOST_WIDE_INT work)
  58 {
  59   do
  60     {
  61       unsigned int half_byte = (work & 0x7);
  62       work >>= 3;
  63       if (work != 0)
  64         /* More half_bytes to follow.  */
  65         half_byte |= 0x8;
  66
  67       bp_pack_value (bp, half_byte, 4);
  68     }
  69   while (work != 0);
  70 }
  71
  72
  73 /* Pack WORK into BP in a variant of sleb format.  */
  74
  75 void
  76 bp_pack_var_len_int (struct bitpack_d *bp, HOST_WIDE_INT work)
  77 {
  78   int more, half_byte;
  79
  80   do
  81     {
  82       half_byte = (work & 0x7);
  83       /* arithmetic shift */
  84       work >>= 3;
  85       more = !((work == 0 && (half_byte & 0x4) == 0)
  86                || (work == -1 && (half_byte & 0x4) != 0));
  87       if (more)
  88         half_byte |= 0x8;
  89
  90       bp_pack_value (bp, half_byte, 4);
  91     }
  92   while (more);
  93 }
  94
  95
  96 /* Unpack VAL from BP in a variant of uleb format.  */
  97
  98 unsigned HOST_WIDE_INT
  99 bp_unpack_var_len_unsigned (struct bitpack_d *bp)
 100 {
 101   unsigned HOST_WIDE_INT result = 0;
 102   int shift = 0;
 103   unsigned HOST_WIDE_INT half_byte;
 104
 105   while (true)
 106     {
 107       half_byte = bp_unpack_value (bp, 4);
 108       result |= (half_byte & 0x7) << shift;
 109       shift += 3;
 110       if ((half_byte & 0x8) == 0)
 111         return result;
 112     }
 113 }
 114
 115
 116 /* Unpack VAL from BP in a variant of sleb format.  */
 117
 118 HOST_WIDE_INT
 119 bp_unpack_var_len_int (struct bitpack_d *bp)
 120 {
 121   HOST_WIDE_INT result = 0;
 122   int shift = 0;
 123   unsigned HOST_WIDE_INT half_byte;
 124
 125   while (true)
 126     {
 127       half_byte = bp_unpack_value (bp, 4);
 128       result |= (half_byte & 0x7) << shift;
 129       shift += 3;
 130       if ((half_byte & 0x8) == 0)
 131         {
 132           if ((shift < HOST_BITS_PER_WIDE_INT) && (half_byte & 0x4))
 133             result |= - (HOST_WIDE_INT_1U << shift);
 134
 135           return result;
 136         }
 137     }
 138 }