annotate libcc1/marshall.cc @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 1830386684a0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* Marshalling and unmarshalling.
145
1830386684a0 gcc-9.2.0
anatofuz
parents: 131
diff changeset
2 Copyright (C) 2014-2020 Free Software Foundation, Inc.
111
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 This file is part of GCC.
kono
parents:
diff changeset
5
kono
parents:
diff changeset
6 GCC is free software; you can redistribute it and/or modify it under
kono
parents:
diff changeset
7 the terms of the GNU General Public License as published by the Free
kono
parents:
diff changeset
8 Software Foundation; either version 3, or (at your option) any later
kono
parents:
diff changeset
9 version.
kono
parents:
diff changeset
10
kono
parents:
diff changeset
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
kono
parents:
diff changeset
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
kono
parents:
diff changeset
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
kono
parents:
diff changeset
14 for more details.
kono
parents:
diff changeset
15
kono
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
kono
parents:
diff changeset
17 along with GCC; see the file COPYING3. If not see
kono
parents:
diff changeset
18 <http://www.gnu.org/licenses/>. */
kono
parents:
diff changeset
19
kono
parents:
diff changeset
20 #include <cc1plugin-config.h>
kono
parents:
diff changeset
21 #include <new>
kono
parents:
diff changeset
22 #include <string.h>
kono
parents:
diff changeset
23 #include "marshall.hh"
kono
parents:
diff changeset
24 #include "connection.hh"
kono
parents:
diff changeset
25
kono
parents:
diff changeset
26 cc1_plugin::status
kono
parents:
diff changeset
27 cc1_plugin::unmarshall_check (connection *conn, unsigned long long check)
kono
parents:
diff changeset
28 {
kono
parents:
diff changeset
29 unsigned long long r;
kono
parents:
diff changeset
30
kono
parents:
diff changeset
31 if (!unmarshall (conn, &r))
kono
parents:
diff changeset
32 return FAIL;
kono
parents:
diff changeset
33 return check == r ? OK : FAIL;
kono
parents:
diff changeset
34 }
kono
parents:
diff changeset
35
kono
parents:
diff changeset
36 cc1_plugin::status
kono
parents:
diff changeset
37 cc1_plugin::marshall_intlike (connection *conn, unsigned long long val)
kono
parents:
diff changeset
38 {
kono
parents:
diff changeset
39 if (!conn->send ('i'))
kono
parents:
diff changeset
40 return FAIL;
kono
parents:
diff changeset
41 return conn->send (&val, sizeof (val));
kono
parents:
diff changeset
42 }
kono
parents:
diff changeset
43
kono
parents:
diff changeset
44 cc1_plugin::status
kono
parents:
diff changeset
45 cc1_plugin::unmarshall_intlike (connection *conn, unsigned long long *result)
kono
parents:
diff changeset
46 {
kono
parents:
diff changeset
47 if (!conn->require ('i'))
kono
parents:
diff changeset
48 return FAIL;
kono
parents:
diff changeset
49 return conn->get (result, sizeof (*result));
kono
parents:
diff changeset
50 }
kono
parents:
diff changeset
51
kono
parents:
diff changeset
52 cc1_plugin::status
kono
parents:
diff changeset
53 cc1_plugin::marshall (connection *conn, const char *str)
kono
parents:
diff changeset
54 {
kono
parents:
diff changeset
55 if (!conn->send ('s'))
kono
parents:
diff changeset
56 return FAIL;
kono
parents:
diff changeset
57
kono
parents:
diff changeset
58 unsigned long long len = str == NULL ? -1ULL : strlen (str);
kono
parents:
diff changeset
59 if (!conn->send (&len, sizeof (len)))
kono
parents:
diff changeset
60 return FAIL;
kono
parents:
diff changeset
61
kono
parents:
diff changeset
62 if (str == NULL)
kono
parents:
diff changeset
63 return OK;
kono
parents:
diff changeset
64
kono
parents:
diff changeset
65 return conn->send (str, len);
kono
parents:
diff changeset
66 }
kono
parents:
diff changeset
67
kono
parents:
diff changeset
68 cc1_plugin::status
kono
parents:
diff changeset
69 cc1_plugin::unmarshall (connection *conn, char **result)
kono
parents:
diff changeset
70 {
kono
parents:
diff changeset
71 unsigned long long len;
kono
parents:
diff changeset
72
kono
parents:
diff changeset
73 if (!conn->require ('s'))
kono
parents:
diff changeset
74 return FAIL;
kono
parents:
diff changeset
75 if (!conn->get (&len, sizeof (len)))
kono
parents:
diff changeset
76 return FAIL;
kono
parents:
diff changeset
77
kono
parents:
diff changeset
78 if (len == -1ULL)
kono
parents:
diff changeset
79 {
kono
parents:
diff changeset
80 *result = NULL;
kono
parents:
diff changeset
81 return OK;
kono
parents:
diff changeset
82 }
kono
parents:
diff changeset
83
kono
parents:
diff changeset
84 char *str = new (std::nothrow) char[len + 1];
kono
parents:
diff changeset
85 if (str == NULL)
kono
parents:
diff changeset
86 return FAIL;
kono
parents:
diff changeset
87
kono
parents:
diff changeset
88 if (!conn->get (str, len))
kono
parents:
diff changeset
89 {
kono
parents:
diff changeset
90 delete[] str;
kono
parents:
diff changeset
91 return FAIL;
kono
parents:
diff changeset
92 }
kono
parents:
diff changeset
93
kono
parents:
diff changeset
94 str[len] = '\0';
kono
parents:
diff changeset
95 *result = str;
kono
parents:
diff changeset
96
kono
parents:
diff changeset
97 return OK;
kono
parents:
diff changeset
98 }
kono
parents:
diff changeset
99
kono
parents:
diff changeset
100 cc1_plugin::status
kono
parents:
diff changeset
101 cc1_plugin::marshall_array_start (connection *conn, char id,
kono
parents:
diff changeset
102 size_t n_elements)
kono
parents:
diff changeset
103 {
kono
parents:
diff changeset
104 if (!conn->send (id))
kono
parents:
diff changeset
105 return FAIL;
kono
parents:
diff changeset
106
kono
parents:
diff changeset
107 unsigned long long r = n_elements;
kono
parents:
diff changeset
108 if (!conn->send (&r, sizeof (r)))
kono
parents:
diff changeset
109 return FAIL;
kono
parents:
diff changeset
110
kono
parents:
diff changeset
111 return OK;
kono
parents:
diff changeset
112 }
kono
parents:
diff changeset
113
kono
parents:
diff changeset
114 cc1_plugin::status
kono
parents:
diff changeset
115 cc1_plugin::marshall_array_elmts (connection *conn, size_t n_bytes,
kono
parents:
diff changeset
116 void *elements)
kono
parents:
diff changeset
117 {
kono
parents:
diff changeset
118 return conn->send (elements, n_bytes);
kono
parents:
diff changeset
119 }
kono
parents:
diff changeset
120
kono
parents:
diff changeset
121 cc1_plugin::status
kono
parents:
diff changeset
122 cc1_plugin::unmarshall_array_start (connection *conn, char id,
kono
parents:
diff changeset
123 size_t *n_elements)
kono
parents:
diff changeset
124 {
kono
parents:
diff changeset
125 unsigned long long len;
kono
parents:
diff changeset
126
kono
parents:
diff changeset
127 if (!conn->require (id))
kono
parents:
diff changeset
128 return FAIL;
kono
parents:
diff changeset
129 if (!conn->get (&len, sizeof (len)))
kono
parents:
diff changeset
130 return FAIL;
kono
parents:
diff changeset
131
kono
parents:
diff changeset
132 *n_elements = len;
kono
parents:
diff changeset
133
kono
parents:
diff changeset
134 return OK;
kono
parents:
diff changeset
135 }
kono
parents:
diff changeset
136
kono
parents:
diff changeset
137 cc1_plugin::status
kono
parents:
diff changeset
138 cc1_plugin::unmarshall_array_elmts (connection *conn, size_t n_bytes,
kono
parents:
diff changeset
139 void *elements)
kono
parents:
diff changeset
140 {
kono
parents:
diff changeset
141 return conn->get (elements, n_bytes);
kono
parents:
diff changeset
142 }
kono
parents:
diff changeset
143
kono
parents:
diff changeset
144 cc1_plugin::status
kono
parents:
diff changeset
145 cc1_plugin::marshall (connection *conn, const gcc_type_array *a)
kono
parents:
diff changeset
146 {
kono
parents:
diff changeset
147 size_t len;
kono
parents:
diff changeset
148
kono
parents:
diff changeset
149 if (a)
kono
parents:
diff changeset
150 len = a->n_elements;
kono
parents:
diff changeset
151 else
kono
parents:
diff changeset
152 len = (size_t)-1;
kono
parents:
diff changeset
153
kono
parents:
diff changeset
154 if (!marshall_array_start (conn, 'a', len))
kono
parents:
diff changeset
155 return FAIL;
kono
parents:
diff changeset
156
kono
parents:
diff changeset
157 if (!a)
kono
parents:
diff changeset
158 return OK;
kono
parents:
diff changeset
159
kono
parents:
diff changeset
160 return marshall_array_elmts (conn, len * sizeof (a->elements[0]),
kono
parents:
diff changeset
161 a->elements);
kono
parents:
diff changeset
162 }
kono
parents:
diff changeset
163
kono
parents:
diff changeset
164 cc1_plugin::status
kono
parents:
diff changeset
165 cc1_plugin::unmarshall (connection *conn, gcc_type_array **result)
kono
parents:
diff changeset
166 {
kono
parents:
diff changeset
167 size_t len;
kono
parents:
diff changeset
168
kono
parents:
diff changeset
169 if (!unmarshall_array_start (conn, 'a', &len))
kono
parents:
diff changeset
170 return FAIL;
kono
parents:
diff changeset
171
kono
parents:
diff changeset
172 if (len == (size_t)-1)
kono
parents:
diff changeset
173 {
kono
parents:
diff changeset
174 *result = NULL;
kono
parents:
diff changeset
175 return OK;
kono
parents:
diff changeset
176 }
kono
parents:
diff changeset
177
kono
parents:
diff changeset
178 gcc_type_array *gta = new gcc_type_array;
kono
parents:
diff changeset
179
kono
parents:
diff changeset
180 gta->n_elements = len;
kono
parents:
diff changeset
181 gta->elements = new gcc_type[len];
kono
parents:
diff changeset
182
kono
parents:
diff changeset
183 if (!unmarshall_array_elmts (conn,
kono
parents:
diff changeset
184 len * sizeof (gta->elements[0]),
kono
parents:
diff changeset
185 gta->elements))
kono
parents:
diff changeset
186 {
kono
parents:
diff changeset
187 delete[] gta->elements;
kono
parents:
diff changeset
188 delete *result;
kono
parents:
diff changeset
189 return FAIL;
kono
parents:
diff changeset
190 }
kono
parents:
diff changeset
191
kono
parents:
diff changeset
192 *result = gta;
kono
parents:
diff changeset
193
kono
parents:
diff changeset
194 return OK;
kono
parents:
diff changeset
195 }