1999-05-03 09:29:11 +02:00
|
|
|
/* read.h - of read.c
|
2001-03-09 00:24:26 +01:00
|
|
|
Copyright 1986, 1990, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
|
2012-03-13 17:59:57 +01:00
|
|
|
2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009, 2012
|
1999-05-03 09:29:11 +02:00
|
|
|
Free Software Foundation, Inc.
|
|
|
|
|
|
|
|
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
|
2007-07-03 13:01:12 +02:00
|
|
|
the Free Software Foundation; either version 3, or (at your option)
|
1999-05-03 09:29:11 +02:00
|
|
|
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
|
2000-12-14 02:12:43 +01:00
|
|
|
along with GAS; see the file COPYING. If not, write to the Free
|
2005-05-05 11:13:19 +02:00
|
|
|
Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
|
|
|
|
02110-1301, USA. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
2000-12-14 02:12:43 +01:00
|
|
|
extern char *input_line_pointer; /* -> char we are parsing now. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
2000-12-14 02:12:43 +01:00
|
|
|
/* Define to make whitespace be allowed in many syntactically
|
|
|
|
unnecessary places. Normally undefined. For compatibility with
|
|
|
|
ancient GNU cc. */
|
1999-05-03 09:29:11 +02:00
|
|
|
/* #undef PERMIT_WHITESPACE */
|
2000-12-14 02:12:43 +01:00
|
|
|
#define PERMIT_WHITESPACE
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
#ifdef PERMIT_WHITESPACE
|
2000-12-14 02:12:43 +01:00
|
|
|
#define SKIP_WHITESPACE() \
|
2004-02-06 17:00:21 +01:00
|
|
|
((*input_line_pointer == ' ') ? ++input_line_pointer : 0)
|
1999-05-03 09:29:11 +02:00
|
|
|
#else
|
|
|
|
#define SKIP_WHITESPACE() know(*input_line_pointer != ' ' )
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#define LEX_NAME (1) /* may continue a name */
|
|
|
|
#define LEX_BEGIN_NAME (2) /* may begin a name */
|
1999-06-05 20:19:09 +02:00
|
|
|
#define LEX_END_NAME (4) /* ends a name */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
#define is_name_beginner(c) \
|
|
|
|
( lex_type[(unsigned char) (c)] & LEX_BEGIN_NAME )
|
|
|
|
#define is_part_of_name(c) \
|
|
|
|
( lex_type[(unsigned char) (c)] & LEX_NAME )
|
1999-06-05 20:19:09 +02:00
|
|
|
#define is_name_ender(c) \
|
|
|
|
( lex_type[(unsigned char) (c)] & LEX_END_NAME )
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
#ifndef is_a_char
|
|
|
|
#define CHAR_MASK (0xff)
|
|
|
|
#define NOT_A_CHAR (CHAR_MASK+1)
|
2000-12-14 02:12:43 +01:00
|
|
|
#define is_a_char(c) (((unsigned) (c)) <= CHAR_MASK)
|
1999-05-03 09:29:11 +02:00
|
|
|
#endif /* is_a_char() */
|
|
|
|
|
|
|
|
extern char lex_type[];
|
|
|
|
extern char is_end_of_line[];
|
|
|
|
|
2003-11-27 20:14:41 +01:00
|
|
|
extern int is_it_end_of_statement (void);
|
2005-05-17 16:02:30 +02:00
|
|
|
extern char *find_end_of_line (char *, int);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
extern int target_big_endian;
|
|
|
|
|
|
|
|
/* These are initialized by the CPU specific target files (tc-*.c). */
|
|
|
|
extern const char comment_chars[];
|
|
|
|
extern const char line_comment_chars[];
|
|
|
|
extern const char line_separator_chars[];
|
|
|
|
|
|
|
|
/* Table of -I directories. */
|
|
|
|
extern char **include_dirs;
|
|
|
|
extern int include_dir_count;
|
|
|
|
extern int include_dir_maxlen;
|
|
|
|
|
|
|
|
/* The offset in the absolute section. */
|
|
|
|
extern addressT abs_section_offset;
|
|
|
|
|
|
|
|
/* The label on a line, used by some of the pseudo-ops. */
|
|
|
|
extern symbolS *line_label;
|
|
|
|
|
|
|
|
/* This is used to support MRI common sections. */
|
|
|
|
extern symbolS *mri_common_symbol;
|
|
|
|
|
2000-12-05 01:56:09 +01:00
|
|
|
/* True if a stabs line debug statement is currently being emitted. */
|
2000-12-12 22:21:39 +01:00
|
|
|
extern int outputting_stabs_line_debug;
|
2000-12-05 01:56:09 +01:00
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
/* Possible arguments to .linkonce. */
|
2000-12-14 02:12:43 +01:00
|
|
|
enum linkonce_type {
|
1999-05-03 09:29:11 +02:00
|
|
|
LINKONCE_UNSET = 0,
|
|
|
|
LINKONCE_DISCARD,
|
|
|
|
LINKONCE_ONE_ONLY,
|
|
|
|
LINKONCE_SAME_SIZE,
|
|
|
|
LINKONCE_SAME_CONTENTS
|
|
|
|
};
|
|
|
|
|
2004-02-09 13:12:42 +01:00
|
|
|
#ifndef TC_CASE_SENSITIVE
|
2000-11-02 20:32:47 +01:00
|
|
|
extern char original_case_string[];
|
|
|
|
#endif
|
|
|
|
|
2003-11-27 20:14:41 +01:00
|
|
|
extern void pop_insert (const pseudo_typeS *);
|
1999-05-03 09:29:11 +02:00
|
|
|
extern unsigned int get_stab_string_offset
|
2003-11-27 20:14:41 +01:00
|
|
|
(const char *string, const char *stabstr_secname);
|
|
|
|
extern void aout_process_stab (int, const char *, int, int, int);
|
|
|
|
extern char *demand_copy_string (int *lenP);
|
|
|
|
extern char *demand_copy_C_string (int *len_pointer);
|
|
|
|
extern char get_absolute_expression_and_terminator (long *val_pointer);
|
|
|
|
extern offsetT get_absolute_expression (void);
|
|
|
|
extern unsigned int next_char_of_string (void);
|
|
|
|
extern void s_mri_sect (char *);
|
|
|
|
extern char *mri_comment_field (char *);
|
|
|
|
extern void mri_comment_end (char *, int);
|
|
|
|
extern void add_include_dir (char *path);
|
|
|
|
extern void cons (int nbytes);
|
|
|
|
extern void demand_empty_rest_of_line (void);
|
|
|
|
extern void emit_expr (expressionS *exp, unsigned int nbytes);
|
2008-01-09 18:30:59 +01:00
|
|
|
extern void emit_expr_fix (expressionS *, unsigned int, fragS *, char *);
|
2003-11-27 20:14:41 +01:00
|
|
|
extern void equals (char *sym_name, int reassign);
|
|
|
|
extern void float_cons (int float_type);
|
|
|
|
extern void ignore_rest_of_line (void);
|
2005-05-17 16:02:30 +02:00
|
|
|
#define discard_rest_of_line ignore_rest_of_line
|
2003-11-27 20:14:41 +01:00
|
|
|
extern int output_leb128 (char *, valueT, int sign);
|
|
|
|
extern void pseudo_set (symbolS * symbolP);
|
|
|
|
extern void read_a_source_file (char *name);
|
|
|
|
extern void read_begin (void);
|
|
|
|
extern void read_print_statistics (FILE *);
|
|
|
|
extern int sizeof_leb128 (valueT, int sign);
|
|
|
|
extern void stabs_generate_asm_file (void);
|
|
|
|
extern void stabs_generate_asm_lineno (void);
|
|
|
|
extern void stabs_generate_asm_func (const char *, const char *);
|
|
|
|
extern void stabs_generate_asm_endfunc (const char *, const char *);
|
|
|
|
extern void do_repeat (int,const char *,const char *);
|
2009-09-29 16:17:19 +02:00
|
|
|
extern void do_repeat_with_expander (int, const char *, const char *, const char *);
|
2003-11-27 20:14:41 +01:00
|
|
|
extern void end_repeat (int);
|
|
|
|
extern void do_parse_cons_expression (expressionS *, int);
|
|
|
|
|
|
|
|
extern void generate_lineno_debug (void);
|
|
|
|
|
|
|
|
extern void s_abort (int) ATTRIBUTE_NORETURN;
|
|
|
|
extern void s_align_bytes (int arg);
|
|
|
|
extern void s_align_ptwo (int);
|
2003-12-13 09:23:05 +01:00
|
|
|
extern void bss_alloc (symbolS *, addressT, int);
|
|
|
|
extern offsetT parse_align (int);
|
|
|
|
extern symbolS *s_comm_internal (int, symbolS *(*) (int, symbolS *, addressT));
|
2003-12-13 09:59:24 +01:00
|
|
|
extern symbolS *s_lcomm_internal (int, symbolS *, addressT);
|
2004-11-10 04:28:45 +01:00
|
|
|
extern void s_app_file_string (char *, int);
|
2003-11-27 20:14:41 +01:00
|
|
|
extern void s_app_file (int);
|
|
|
|
extern void s_app_line (int);
|
2012-03-13 17:59:57 +01:00
|
|
|
extern void s_bundle_align_mode (int);
|
|
|
|
extern void s_bundle_lock (int);
|
|
|
|
extern void s_bundle_unlock (int);
|
2003-11-27 20:14:41 +01:00
|
|
|
extern void s_comm (int);
|
|
|
|
extern void s_data (int);
|
|
|
|
extern void s_desc (int);
|
|
|
|
extern void s_else (int arg);
|
|
|
|
extern void s_elseif (int arg);
|
|
|
|
extern void s_end (int arg);
|
|
|
|
extern void s_endif (int arg);
|
|
|
|
extern void s_err (int);
|
2004-11-22 14:05:27 +01:00
|
|
|
extern void s_errwarn (int);
|
2003-11-27 20:14:41 +01:00
|
|
|
extern void s_fail (int);
|
|
|
|
extern void s_fill (int);
|
|
|
|
extern void s_float_space (int mult);
|
|
|
|
extern void s_func (int);
|
|
|
|
extern void s_globl (int arg);
|
|
|
|
extern void s_if (int arg);
|
2005-05-06 08:38:11 +02:00
|
|
|
extern void s_ifb (int arg);
|
2003-11-27 20:14:41 +01:00
|
|
|
extern void s_ifc (int arg);
|
|
|
|
extern void s_ifdef (int arg);
|
|
|
|
extern void s_ifeqs (int arg);
|
|
|
|
extern void s_ignore (int arg);
|
|
|
|
extern void s_include (int arg);
|
|
|
|
extern void s_irp (int arg);
|
|
|
|
extern void s_lcomm (int needs_align);
|
|
|
|
extern void s_lcomm_bytes (int needs_align);
|
|
|
|
extern void s_leb128 (int sign);
|
|
|
|
extern void s_linkonce (int);
|
|
|
|
extern void s_lsym (int);
|
|
|
|
extern void s_macro (int);
|
|
|
|
extern void s_mexit (int);
|
|
|
|
extern void s_mri (int);
|
|
|
|
extern void s_mri_common (int);
|
|
|
|
extern void s_org (int);
|
|
|
|
extern void s_print (int);
|
|
|
|
extern void s_purgem (int);
|
|
|
|
extern void s_rept (int);
|
|
|
|
extern void s_set (int);
|
|
|
|
extern void s_space (int mult);
|
|
|
|
extern void s_stab (int what);
|
|
|
|
extern void s_struct (int);
|
|
|
|
extern void s_text (int);
|
|
|
|
extern void stringer (int append_zero);
|
|
|
|
extern void s_xstab (int what);
|
|
|
|
extern void s_rva (int);
|
|
|
|
extern void s_incbin (int);
|
gas/ChangeLog:
* read.c (potable): Add weakref.
(s_weakref): New.
* read.h (s_weakref): Declare.
* struc-symbol.h (struct symbol): Add sy_weakrefr and sy_weakrefd.
* symbols.c (colon): Clear weakrefr.
(symbol_find_exact): Rename to, and reimplement in terms of...
(symbol_find_exact_noref): ... new function.
(symbol_find): Likewise...
(symbol_find_noref): ... ditto.
(resolve_symbol_value): Resolve weakrefr without setting their
values.
(S_SET_WEAK): Call hook.
(S_GET_VALUE): Follow weakref link.
(S_SET_VALUE): Clear weakrefr.
(S_IS_WEAK): Follow weakref link.
(S_IS_WEAKREFR, S_SET_WEAKREFR, S_CLEAR_WEAKREFR): New.
(S_IS_WEAKREFD, S_SET_WEAKREFD, S_CLEAR_WEAKREFD): New.
(symbol_set_value_expression, symbol_set_frag): Clear weakrefr.
(symbol_mark_used): Follow weakref link.
(print_symbol_value_1): Print weak, weakrefr and weakrefd.
* symbols.h (symbol_find_noref, symbol_find_exact_noref): Declare.
(S_IS_WEAKREFR, S_SET_WEAKREFR, S_CLEAR_WEAKREFR): Declare.
(S_IS_WEAKREFD, S_SET_WEAKREFD, S_CLEAR_WEAKREFD): Declare.
* write.c (adust_reloc_syms): Follow weakref link. Do not
complain if target is undefined.
(write_object_file): Likewise. Remove weakrefr symbols. Drop
unreferenced weakrefd symbols.
* config/obj-coff.c (obj_frob_symbol): Do not force WEAKREFD
symbols EXTERNAL.
(pecoff_obj_set_weak_hook, pecoff_obj_clear_weak_hook): New.
* config/obj-coff.h (obj_set_weak_hook, obj_clear_weak_hook): Define.
* doc/as.texinfo: Document weakref.
* doc/internals.texi: Document new struct members, internal
functions and hooks.
gas/testsuite/ChangeLog:
* gas/all/weakref1.s, gas/all/weakref1.d: New test.
* gas/all/weakref1g.d, gas/all/weakref1l.d: New tests.
* gas/all/weakref1u.d, gas/all/weakref1w.d: New tests.
* gas/all/weakref2.s, gas/all/weakref3.s: New tests.
* gas/all/gas.exp: Run new tests.
2005-10-24 19:51:42 +02:00
|
|
|
extern void s_weakref (int);
|