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