]>
git.ipfire.org Git - thirdparty/gcc.git/blob - gcc/data-streamer.c
1 /* Generic streaming support for basic data types.
3 Copyright (C) 2011-2015 Free Software Foundation, Inc.
4 Contributed by Diego Novillo <dnovillo@google.com>
6 This file is part of GCC.
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
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
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/>. */
24 #include "coretypes.h"
29 #include "fold-const.h"
32 #include "hard-reg-set.h"
34 #include "basic-block.h"
35 #include "tree-ssa-alias.h"
36 #include "internal-fn.h"
37 #include "gimple-expr.h"
39 #include "plugin-api.h"
42 #include "data-streamer.h"
44 /* Pack WORK into BP in a variant of uleb format. */
47 bp_pack_var_len_unsigned (struct bitpack_d
*bp
, unsigned HOST_WIDE_INT work
)
51 unsigned int half_byte
= (work
& 0x7);
54 /* More half_bytes to follow. */
57 bp_pack_value (bp
, half_byte
, 4);
63 /* Pack WORK into BP in a variant of sleb format. */
66 bp_pack_var_len_int (struct bitpack_d
*bp
, HOST_WIDE_INT work
)
72 half_byte
= (work
& 0x7);
73 /* arithmetic shift */
75 more
= !((work
== 0 && (half_byte
& 0x4) == 0)
76 || (work
== -1 && (half_byte
& 0x4) != 0));
80 bp_pack_value (bp
, half_byte
, 4);
86 /* Unpack VAL from BP in a variant of uleb format. */
88 unsigned HOST_WIDE_INT
89 bp_unpack_var_len_unsigned (struct bitpack_d
*bp
)
91 unsigned HOST_WIDE_INT result
= 0;
93 unsigned HOST_WIDE_INT half_byte
;
97 half_byte
= bp_unpack_value (bp
, 4);
98 result
|= (half_byte
& 0x7) << shift
;
100 if ((half_byte
& 0x8) == 0)
106 /* Unpack VAL from BP in a variant of sleb format. */
109 bp_unpack_var_len_int (struct bitpack_d
*bp
)
111 HOST_WIDE_INT result
= 0;
113 unsigned HOST_WIDE_INT half_byte
;
117 half_byte
= bp_unpack_value (bp
, 4);
118 result
|= (half_byte
& 0x7) << shift
;
120 if ((half_byte
& 0x8) == 0)
122 if ((shift
< HOST_BITS_PER_WIDE_INT
) && (half_byte
& 0x4))
123 result
|= - (HOST_WIDE_INT_1U
<< shift
);