Branch data Line data Source code
1 : : /* Generic streaming support for basic data types.
2 : :
3 : : Copyright (C) 2011-2024 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 "backend.h"
26 : : #include "tree.h"
27 : : #include "gimple.h"
28 : : #include "cgraph.h"
29 : : #include "data-streamer.h"
30 : :
31 : : /* Pack WORK into BP in a variant of uleb format. */
32 : :
33 : : void
34 : 14050283 : bp_pack_var_len_unsigned (struct bitpack_d *bp, unsigned HOST_WIDE_INT work)
35 : : {
36 : 28396076 : do
37 : : {
38 : 28396076 : unsigned int half_byte = (work & 0x7);
39 : 28396076 : work >>= 3;
40 : 28396076 : if (work != 0)
41 : : /* More half_bytes to follow. */
42 : 14345793 : half_byte |= 0x8;
43 : :
44 : 28396076 : bp_pack_value (bp, half_byte, 4);
45 : : }
46 : 28396076 : while (work != 0);
47 : 14050283 : }
48 : :
49 : :
50 : : /* Pack WORK into BP in a variant of sleb format. */
51 : :
52 : : void
53 : 16386711 : bp_pack_var_len_int (struct bitpack_d *bp, HOST_WIDE_INT work)
54 : : {
55 : 18450880 : int more, half_byte;
56 : :
57 : 18450880 : do
58 : : {
59 : 18450880 : half_byte = (work & 0x7);
60 : : /* arithmetic shift */
61 : 18450880 : work >>= 3;
62 : 18450880 : more = !((work == 0 && (half_byte & 0x4) == 0)
63 : 321360 : || (work == -1 && (half_byte & 0x4) != 0));
64 : : if (more)
65 : 2064169 : half_byte |= 0x8;
66 : :
67 : 18450880 : bp_pack_value (bp, half_byte, 4);
68 : : }
69 : 18450880 : while (more);
70 : 16386711 : }
71 : :
72 : :
73 : : /* Unpack VAL from BP in a variant of uleb format. */
74 : :
75 : : unsigned HOST_WIDE_INT
76 : 10884943 : bp_unpack_var_len_unsigned (struct bitpack_d *bp)
77 : : {
78 : 10884943 : unsigned HOST_WIDE_INT result = 0;
79 : 10884943 : int shift = 0;
80 : 22154217 : unsigned HOST_WIDE_INT half_byte;
81 : :
82 : 22154217 : while (true)
83 : : {
84 : 22154217 : half_byte = bp_unpack_value (bp, 4);
85 : 22154217 : result |= (half_byte & 0x7) << shift;
86 : 22154217 : shift += 3;
87 : 22154217 : if ((half_byte & 0x8) == 0)
88 : 10884943 : return result;
89 : : }
90 : : }
91 : :
92 : :
93 : : /* Unpack VAL from BP in a variant of sleb format. */
94 : :
95 : : HOST_WIDE_INT
96 : 11703547 : bp_unpack_var_len_int (struct bitpack_d *bp)
97 : : {
98 : 11703547 : HOST_WIDE_INT result = 0;
99 : 11703547 : int shift = 0;
100 : 13180789 : unsigned HOST_WIDE_INT half_byte;
101 : :
102 : 13180789 : while (true)
103 : : {
104 : 13180789 : half_byte = bp_unpack_value (bp, 4);
105 : 13180789 : result |= (half_byte & 0x7) << shift;
106 : 13180789 : shift += 3;
107 : 13180789 : if ((half_byte & 0x8) == 0)
108 : : {
109 : 11703547 : if ((shift < HOST_BITS_PER_WIDE_INT) && (half_byte & 0x4))
110 : 228218 : result |= - (HOST_WIDE_INT_1U << shift);
111 : :
112 : 11703547 : return result;
113 : : }
114 : : }
115 : : }
116 : :
117 : : /* Pack REAL_VALUE_TYPE R into BP. */
118 : :
119 : : void
120 : 115855 : bp_pack_real_value (struct bitpack_d *bp, const REAL_VALUE_TYPE *r)
121 : : {
122 : 115855 : bp_pack_value (bp, r->cl, 2);
123 : 115855 : bp_pack_value (bp, r->decimal, 1);
124 : 115855 : bp_pack_value (bp, r->sign, 1);
125 : 115855 : bp_pack_value (bp, r->signalling, 1);
126 : 115855 : bp_pack_value (bp, r->canonical, 1);
127 : 115855 : bp_pack_value (bp, r->uexp, EXP_BITS);
128 : 463420 : for (unsigned i = 0; i < SIGSZ; i++)
129 : 347565 : bp_pack_value (bp, r->sig[i], HOST_BITS_PER_LONG);
130 : 115855 : }
131 : :
132 : : /* Unpack REAL_VALUE_TYPE R from BP. */
133 : :
134 : : void
135 : 105995 : bp_unpack_real_value (struct bitpack_d *bp, REAL_VALUE_TYPE *r)
136 : : {
137 : : /* Clear all bits of the real value type so that we can later do
138 : : bitwise comparisons to see if two values are the same. */
139 : 105995 : memset (r, 0, sizeof (*r));
140 : 105995 : r->cl = (unsigned) bp_unpack_value (bp, 2);
141 : 105995 : r->decimal = (unsigned) bp_unpack_value (bp, 1);
142 : 105995 : r->sign = (unsigned) bp_unpack_value (bp, 1);
143 : 105995 : r->signalling = (unsigned) bp_unpack_value (bp, 1);
144 : 105995 : r->canonical = (unsigned) bp_unpack_value (bp, 1);
145 : 105995 : r->uexp = (unsigned) bp_unpack_value (bp, EXP_BITS);
146 : 423980 : for (unsigned i = 0; i < SIGSZ; i++)
147 : 317985 : r->sig[i] = (unsigned long) bp_unpack_value (bp, HOST_BITS_PER_LONG);
148 : 105995 : }
|
