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
27static void s_evax_weak PARAMS ((int));
28
29const pseudo_typeS obj_pseudo_table[] =
30{
31  { "weak", s_evax_weak, 0},
32  {0, 0, 0},
33};				/* obj_pseudo_table */
34
35void obj_read_begin_hook () {}
36
37/* Handle the weak specific pseudo-op.  */
38
39static void
40s_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