/* obj-evax.c - EVAX (openVMS/Alpha) object file format.
|
/* obj-evax.c - EVAX (openVMS/Alpha) object file format.
|
Copyright 1996, 1997, 2007 Free Software Foundation, Inc.
|
Copyright 1996, 1997, 2007 Free Software Foundation, Inc.
|
Contributed by Klaus Kämpf (kkaempf@progis.de) of
|
Contributed by Klaus Kämpf (kkaempf@progis.de) of
|
proGIS Software, Aachen, Germany.
|
proGIS Software, Aachen, Germany.
|
|
|
This file is part of GAS, the GNU Assembler
|
This file is part of GAS, the GNU Assembler
|
|
|
GAS is free software; you can redistribute it and/or modify
|
GAS is free software; you can redistribute it and/or modify
|
it under the terms of the GNU General Public License as published by
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 3, or (at your option)
|
the Free Software Foundation; either version 3, or (at your option)
|
any later version.
|
any later version.
|
|
|
GAS is distributed in the hope that it will be useful,
|
GAS is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with GAS; see the file COPYING. If not, write to
|
along with GAS; see the file COPYING. If not, write to
|
the Free Software Foundation, 51 Franklin Street - Fifth Floor, Boston,
|
the Free Software Foundation, 51 Franklin Street - Fifth Floor, Boston,
|
MA 02110-1301, USA. */
|
MA 02110-1301, USA. */
|
|
|
#define OBJ_HEADER "obj-evax.h"
|
#define OBJ_HEADER "obj-evax.h"
|
|
|
#include "as.h"
|
#include "as.h"
|
|
|
static void s_evax_weak PARAMS ((int));
|
static void s_evax_weak PARAMS ((int));
|
|
|
const pseudo_typeS obj_pseudo_table[] =
|
const pseudo_typeS obj_pseudo_table[] =
|
{
|
{
|
{ "weak", s_evax_weak, 0},
|
{ "weak", s_evax_weak, 0},
|
{0, 0, 0},
|
{0, 0, 0},
|
}; /* obj_pseudo_table */
|
}; /* obj_pseudo_table */
|
|
|
void obj_read_begin_hook () {}
|
void obj_read_begin_hook () {}
|
|
|
/* Handle the weak specific pseudo-op. */
|
/* Handle the weak specific pseudo-op. */
|
|
|
static void
|
static void
|
s_evax_weak (ignore)
|
s_evax_weak (ignore)
|
int ignore;
|
int ignore;
|
{
|
{
|
char *name;
|
char *name;
|
int c;
|
int c;
|
symbolS *symbolP;
|
symbolS *symbolP;
|
char *stop = NULL;
|
char *stop = NULL;
|
char stopc;
|
char stopc;
|
|
|
if (flag_mri)
|
if (flag_mri)
|
stop = mri_comment_field (&stopc);
|
stop = mri_comment_field (&stopc);
|
|
|
do
|
do
|
{
|
{
|
name = input_line_pointer;
|
name = input_line_pointer;
|
c = get_symbol_end ();
|
c = get_symbol_end ();
|
symbolP = symbol_find_or_make (name);
|
symbolP = symbol_find_or_make (name);
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
S_SET_WEAK (symbolP);
|
S_SET_WEAK (symbolP);
|
if (c == ',')
|
if (c == ',')
|
{
|
{
|
input_line_pointer++;
|
input_line_pointer++;
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
if (*input_line_pointer == '\n')
|
if (*input_line_pointer == '\n')
|
c = '\n';
|
c = '\n';
|
}
|
}
|
}
|
}
|
while (c == ',');
|
while (c == ',');
|
|
|
if (flag_mri)
|
if (flag_mri)
|
mri_comment_end (stop, stopc);
|
mri_comment_end (stop, stopc);
|
|
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
/*
|
/*
|
* Local Variables:
|
* Local Variables:
|
* comment-column: 0
|
* comment-column: 0
|
* fill-column: 131
|
* fill-column: 131
|
* End:
|
* End:
|
*/
|
*/
|
|
|
/* end of obj-evax.c */
|
/* end of obj-evax.c */
|
|
|