Subversion Repositories openrisc_me

/* obj-evax.c - EVAX (openVMS/Alpha) object file format.

   Copyright 1996, 1997, 2007 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 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.  */

#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 */