| /* obj-evax.c - EVAX (openVMS/Alpha) object file format. |
| Copyright 1996, 1997 Free Software Foundation, Inc. |
| Contributed by Klaus Kämpf (kkaempf@progis.de) of |
| proGIS Software, Aachen, Germany. |
| |
| 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 2, 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, 59 Temple Place - Suite 330, Boston, |
| MA 02111-1307, USA. */ |
| |
| #define OBJ_HEADER "obj-evax.h" |
| |
| #include "as.h" |
| |
| static void s_evax_weak PARAMS ((int)); |
| |
| const pseudo_typeS obj_pseudo_table[] = |
| { |
| { "weak", s_evax_weak, 0}, |
| {0, 0, 0}, |
| }; /* obj_pseudo_table */ |
| |
| void obj_read_begin_hook () {} |
| |
| /* Handle the weak specific pseudo-op. */ |
| |
| static void |
| s_evax_weak (ignore) |
| int ignore; |
| { |
| char *name; |
| int c; |
| symbolS *symbolP; |
| char *stop = NULL; |
| char stopc; |
| |
| if (flag_mri) |
| stop = mri_comment_field (&stopc); |
| |
| do |
| { |
| name = input_line_pointer; |
| c = get_symbol_end (); |
| symbolP = symbol_find_or_make (name); |
| *input_line_pointer = c; |
| SKIP_WHITESPACE (); |
| S_SET_WEAK (symbolP); |
| if (c == ',') |
| { |
| input_line_pointer++; |
| SKIP_WHITESPACE (); |
| if (*input_line_pointer == '\n') |
| c = '\n'; |
| } |
| } |
| while (c == ','); |
| |
| if (flag_mri) |
| mri_comment_end (stop, stopc); |
| |
| demand_empty_rest_of_line (); |
| } |
| |
| /* |
| * Local Variables: |
| * comment-column: 0 |
| * fill-column: 131 |
| * End: |
| */ |
| |
| /* end of obj-evax.c */ |