1 /* obj-evax.c - EVAX (openVMS/Alpha) object file format.
2 Copyright 1996, 1997 Free Software Foundation, Inc.
3 Contributed by Klaus K�mpf (kkaempf@progis.de) of
4 proGIS Software, Aachen, Germany.
5
6 This file is part of GAS, the GNU Assembler
7
8 GAS is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2, or (at your option)
11 any later version.
12
13 GAS is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
17
18 You should have received a copy of the GNU General Public License
19 along with GAS; see the file COPYING. If not, write to
20 the Free Software Foundation, 51 Franklin Street - Fifth Floor, Boston,
21 MA 02110-1301, USA. */
22
23 #define OBJ_HEADER "obj-evax.h"
24
25 #include "as.h"
26
27 static void s_evax_weak PARAMS ((int));
28
29 const pseudo_typeS obj_pseudo_table[] =
30 {
31 { "weak", s_evax_weak, 0},
32 {0, 0, 0},
33 }; /* obj_pseudo_table */
34
obj_read_begin_hook()35 void obj_read_begin_hook () {}
36
37 /* Handle the weak specific pseudo-op. */
38
39 static void
s_evax_weak(ignore)40 s_evax_weak (ignore)
41 int ignore;
42 {
43 char *name;
44 int c;
45 symbolS *symbolP;
46 char *stop = NULL;
47 char stopc;
48
49 if (flag_mri)
50 stop = mri_comment_field (&stopc);
51
52 do
53 {
54 name = input_line_pointer;
55 c = get_symbol_end ();
56 symbolP = symbol_find_or_make (name);
57 *input_line_pointer = c;
58 SKIP_WHITESPACE ();
59 S_SET_WEAK (symbolP);
60 if (c == ',')
61 {
62 input_line_pointer++;
63 SKIP_WHITESPACE ();
64 if (*input_line_pointer == '\n')
65 c = '\n';
66 }
67 }
68 while (c == ',');
69
70 if (flag_mri)
71 mri_comment_end (stop, stopc);
72
73 demand_empty_rest_of_line ();
74 }
75
76 /*
77 * Local Variables:
78 * comment-column: 0
79 * fill-column: 131
80 * End:
81 */
82
83 /* end of obj-evax.c */
84