* config/tc-hppa.c (hppa_tc_symbol): Call PA ELF BFD version.
[external/binutils.git] / gas / config / tc-hppa.h
1 /* tc-hppa.h -- Header file for the PA */
2
3 /* Copyright (C) 1989, 1993 Free Software Foundation, Inc.
4
5    This file is part of GAS, the GNU Assembler.
6
7    GAS is free software; you can redistribute it and/or modify
8    it under the terms of the GNU General Public License as published by
9    the Free Software Foundation; either version 1, or (at your option)
10    any later version.
11
12    GAS is distributed in the hope that it will be useful,
13    but WITHOUT ANY WARRANTY; without even the implied warranty of
14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15    GNU General Public License for more details.
16
17    You should have received a copy of the GNU General Public License
18    along with GAS; see the file COPYING.  If not, write to
19    the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
20
21
22 /* HP PA-RISC support was contributed by the Center for Software Science
23    at the University of Utah.  */
24
25 /* Please refrain from exposing the world to the internals of tc-hppa.c
26    when this file is included.  This means only declaring exported functions,
27    (please PARAMize them!) not exporting structures and data items which
28    are used solely within tc-hppa.c, etc.
29
30    Also refrain from adding any more object file dependent code, there is 
31    already far too much object file format dependent code in this file.
32    In theory this file should contain only exported functions, structures
33    and data declarations common to all PA assemblers.  */
34
35 #ifndef _TC_HPPA_H
36 #define _TC_HPPA_H
37
38 #ifndef TC_HPPA
39 #define TC_HPPA 1
40 #endif
41
42 #define TARGET_ARCH bfd_arch_hppa
43
44 /* FIXME.  The lack of a place to put things which are both target cpu
45    and target format dependent makes hacks like this necessary.  */
46 #ifdef OBJ_ELF
47 #include "../bfd/elf32-hppa.h"
48 #define TARGET_FORMAT "elf32-hppa"
49 #endif
50
51 #ifdef OBJ_SOM
52 #include "../bfd/som.h"
53 #define TARGET_FORMAT "som"
54 #endif
55
56 /* FIXME.  Why oh why aren't these defined somewhere globally?  */
57 #ifndef FALSE
58 #define FALSE   (0)
59 #define TRUE    (!FALSE)
60 #endif
61
62 /* Local labels have an "L$" prefix.  */
63 #define LOCAL_LABEL(name) ((name)[0] == 'L' && (name)[1] == '$')
64 #define FAKE_LABEL_NAME "L$0\001"
65 #define ASEC_NULL (asection *)0
66
67 /* Labels are not required to have a colon for a suffix.  */
68 #define LABELS_WITHOUT_COLONS
69
70 extern void hppa_tc_make_sections PARAMS ((bfd *));
71 extern void hppa_tc_symbol PARAMS ((bfd *, elf_symbol_type *, int));
72
73 /* FIXME.  This should be static and declared in tc-hppa.c, but 
74    pa_define_label gets used outside of tc-hppa.c via tc_frob_label.
75    Should also be PARAMized, but symbolS isn't available here.  */
76 extern void pa_define_label ();
77
78 /* FIXME.  Types not available here, so they can't be PARAMized.  */
79 extern void parse_cons_expression_hppa ();
80 extern void cons_fix_new_hppa ();
81 extern int hppa_force_relocation ();
82
83 #define tc_frob_label(sym) pa_define_label (sym)
84
85 /* The PA does not need support for either of these.  */
86 #define tc_crawl_symbol_chain(headers) {;}
87 #define tc_headers_hook(headers) {;}
88
89 #define RELOC_EXPANSION_POSSIBLE
90 #define MAX_RELOC_EXPANSION 5
91
92 /* FIXME.  More things which are both HPPA and ELF specific.  There is 
93    nowhere to put such things.  */
94 #ifdef OBJ_ELF
95 #define elf_tc_symbol           hppa_tc_symbol
96 #define elf_tc_make_sections    hppa_tc_make_sections
97 #define elf_tc_final_processing elf_hppa_final_processing
98 #endif
99
100 /* The PA needs to parse field selectors in .byte, etc.  */
101
102 #define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \
103   parse_cons_expression_hppa (EXP)
104 #define TC_CONS_FIX_NEW cons_fix_new_hppa
105
106 /* On the PA, an equal sign often appears as a condition or nullification
107    completer in an instruction.  This can be detected by checking the
108    previous character, if the character is a comma, then the equal is
109    being used as part of an instruction.  */
110 #define TC_EQUAL_IN_INSN(C, PTR)        ((C) == ',')
111
112 /* Similarly for an exclamation point.  It is used in FP comparison
113    instructions and as an end of line marker.  When used in an instruction
114    it will always follow a comma.  */
115 #define TC_EOL_IN_INSN(PTR)     (is_end_of_line[*(PTR)] && (PTR)[-1] == ',')
116
117 #define tc_fix_adjustable hppa_fix_adjustable
118
119 /* Because of the strange PA calling conventions, it is sometimes
120    necessary to emit a relocation for a call even though it would
121    normally appear safe to handle it completely within GAS.  */
122 #define TC_FORCE_RELOCATION(FIXP) hppa_force_relocation (FIXP)
123
124 /* If a symbol is imported, but never used, then the symbol should
125    *not* end up in the symbol table.  Likewise for absolute symbols
126    with local scope.  */
127 #define tc_frob_symbol(sym,punt) \
128     if ((S_GET_SEGMENT (sym) == &bfd_und_section && sym->sy_used == 0) \
129         || (S_GET_SEGMENT (sym) == &bfd_abs_section \
130             && (sym->bsym->flags & BSF_EXPORT) == 0)) \
131       punt = 1
132
133 #endif /* _TC_HPPA_H */