1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
|
/* SOM object file format.
Copyright (C) 1993-2023 Free Software Foundation, Inc.
This file is part of GAS, the GNU Assembler.
GAS is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as
published by the Free Software Foundation; either version 3,
or (at your option) any later version.
GAS is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
the GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with GAS; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
02110-1301, USA.
Written by the Center for Software Science at the University of Utah
and by Cygnus Support. */
#include "as.h"
#include "subsegs.h"
#include "aout/stab_gnu.h"
static int version_seen = 0;
static int copyright_seen = 0;
static int compiler_seen = 0;
/* Unused by SOM. */
void
obj_read_begin_hook (void)
{
}
/* Handle a .compiler directive. This is intended to create the
compilation unit auxiliary header for MPE such that the linkeditor
can handle SOM extraction from archives. The format of the quoted
string is "sourcefile language version" and is delimited by blanks. */
void
obj_som_compiler (int unused ATTRIBUTE_UNUSED)
{
char *buf;
char c;
char *filename;
char *language_name;
char *p;
char *version_id;
if (compiler_seen)
{
as_bad (_("Only one .compiler pseudo-op per file!"));
ignore_rest_of_line ();
return;
}
SKIP_WHITESPACE ();
if (*input_line_pointer == '\"')
{
buf = input_line_pointer;
++input_line_pointer;
while (is_a_char (next_char_of_string ()))
;
c = *input_line_pointer;
*input_line_pointer = '\000';
}
else
{
as_bad (_("Expected quoted string"));
ignore_rest_of_line ();
return;
}
/* Parse the quoted string into its component parts. Skip the
quote. */
filename = buf + 1;
p = filename;
while (*p != ' ' && *p != '\000')
p++;
if (*p == '\000')
{
as_bad (_(".compiler directive missing language and version"));
return;
}
*p = '\000';
language_name = ++p;
while (*p != ' ' && *p != '\000')
p++;
if (*p == '\000')
{
as_bad (_(".compiler directive missing version"));
return;
}
*p = '\000';
version_id = ++p;
while (*p != '\000')
p++;
/* Remove the trailing quote. */
*(--p) = '\000';
compiler_seen = 1;
if (! bfd_som_attach_compilation_unit (stdoutput, filename, language_name,
"GNU Tools", version_id))
{
bfd_perror (stdoutput->filename);
as_fatal (_("FATAL: Attaching compiler header %s"), stdoutput->filename);
}
*input_line_pointer = c;
demand_empty_rest_of_line ();
}
/* Handle a .version directive. */
void
obj_som_version (int unused ATTRIBUTE_UNUSED)
{
char *version, c;
if (version_seen)
{
as_bad (_("Only one .version pseudo-op per file!"));
ignore_rest_of_line ();
return;
}
SKIP_WHITESPACE ();
if (*input_line_pointer == '\"')
{
version = input_line_pointer;
++input_line_pointer;
while (is_a_char (next_char_of_string ()))
;
c = *input_line_pointer;
*input_line_pointer = '\000';
}
else
{
as_bad (_("Expected quoted string"));
ignore_rest_of_line ();
return;
}
version_seen = 1;
if (!bfd_som_attach_aux_hdr (stdoutput, VERSION_AUX_ID, version))
as_fatal (_("attaching version header %s: %s"),
stdoutput->filename, bfd_errmsg (bfd_get_error ()));
*input_line_pointer = c;
demand_empty_rest_of_line ();
}
/* Handle a .copyright directive. This probably isn't complete, but
it's of dubious value anyway and (IMHO) not worth the time to finish.
If you care about copyright strings that much, you fix it. */
void
obj_som_copyright (int unused ATTRIBUTE_UNUSED)
{
char *copyright, c;
if (copyright_seen)
{
as_bad (_("Only one .copyright pseudo-op per file!"));
ignore_rest_of_line ();
return;
}
SKIP_WHITESPACE ();
if (*input_line_pointer == '\"')
{
copyright = input_line_pointer;
++input_line_pointer;
while (is_a_char (next_char_of_string ()))
;
c = *input_line_pointer;
*input_line_pointer = '\000';
}
else
{
as_bad (_("Expected quoted string"));
ignore_rest_of_line ();
return;
}
copyright_seen = 1;
if (!bfd_som_attach_aux_hdr (stdoutput, COPYRIGHT_AUX_ID, copyright))
as_fatal (_("attaching copyright header %s: %s"),
stdoutput->filename, bfd_errmsg (bfd_get_error ()));
*input_line_pointer = c;
demand_empty_rest_of_line ();
}
/* Perform any initialization necessary for stabs support.
For SOM we need to create the space which will contain the
two stabs subspaces. Additionally we need to set up the
space/subspace relationships and set space/subspace attributes
which BFD does not understand. */
void
obj_som_init_stab_section (segT stab, segT stabstr)
{
segT saved_seg = now_seg;
segT space;
subsegT saved_subseg = now_subseg;
char *p;
const char * file;
unsigned int stroff;
/* Nothing to do if the section has already been created. */
if (bfd_get_section_by_name (stdoutput, "$GDB_DEBUG$"))
return;
/* Make the space which will contain the debug subspaces. */
space = bfd_make_section_old_way (stdoutput, "$GDB_DEBUG$");
/* Set SOM specific attributes for the space. In particular we set
the space "defined", "private", "sort_key", and "spnum" values.
Due to a bug in pxdb (called by hpux linker), the sort keys
of the various stabs spaces/subspaces need to be "small". We
reserve range 72/73 which appear to work well. */
obj_set_section_attributes (space, 1, 1, 72, 2);
bfd_set_section_alignment (space, 2);
/* Set the containing space for both stab sections to be $GDB_DEBUG$
(just created above). Also set some attributes which BFD does
not understand. In particular, access bits, sort keys, and load
quadrant. */
obj_set_subsection_attributes (stab, space, 0x1f, 73, 0, 0, 0, 0);
bfd_set_section_alignment (stab, 2);
/* Make some space for the first special stab entry and zero the memory.
It contains information about the length of this file's
stab string and the like. Using it avoids the need to
relocate the stab strings.
The $GDB_STRINGS$ space will be created as a side effect of
the call to get_stab_string_offset. */
p = frag_more (12);
memset (p, 0, 12);
file = as_where ((unsigned int *) NULL);
stroff = get_stab_string_offset (file, stabstr);
know (stroff == 1);
md_number_to_chars (p, stroff, 4);
seg_info (stab)->stabu.p = p;
/* Set the containing space for both stab sections to be $GDB_DEBUG$
(just created above). Also set some attributes which BFD does
not understand. In particular, access bits, sort keys, and load
quadrant. */
obj_set_subsection_attributes (stabstr, space, 0x1f, 72, 0, 0, 0, 0);
bfd_set_section_alignment (stabstr, 2);
subseg_set (saved_seg, saved_subseg);
}
/* Fill in the counts in the first entry in a .stabs section. */
static void
adjust_stab_sections (bfd *abfd, asection *sec, void *xxx ATTRIBUTE_UNUSED)
{
asection *strsec;
char *p;
int strsz, nsyms;
if (strcmp ("$GDB_SYMBOLS$", sec->name))
return;
strsec = bfd_get_section_by_name (abfd, "$GDB_STRINGS$");
if (strsec)
strsz = bfd_section_size (strsec);
else
strsz = 0;
nsyms = bfd_section_size (sec) / 12 - 1;
p = seg_info (sec)->stabu.p;
gas_assert (p != 0);
bfd_h_put_16 (abfd, (bfd_vma) nsyms, (bfd_byte *) p + 6);
bfd_h_put_32 (abfd, (bfd_vma) strsz, (bfd_byte *) p + 8);
}
/* Called late in the assembly phase to adjust the special
stab entry and to set the starting address for each code subspace. */
void
som_frob_file (void)
{
bfd_map_over_sections (stdoutput, adjust_stab_sections, (void *) 0);
}
static void
obj_som_weak (int ignore ATTRIBUTE_UNUSED)
{
char *name;
int c;
symbolS *symbolP;
do
{
c = get_symbol_name (&name);
symbolP = symbol_find_or_make (name);
*input_line_pointer = c;
SKIP_WHITESPACE_AFTER_NAME ();
S_SET_WEAK (symbolP);
if (c == ',')
{
input_line_pointer++;
SKIP_WHITESPACE ();
if (*input_line_pointer == '\n')
c = '\n';
}
}
while (c == ',');
demand_empty_rest_of_line ();
}
const pseudo_typeS obj_pseudo_table[] =
{
{"weak", obj_som_weak, 0},
{NULL, NULL, 0}
};
|