3 Copyright (C) 1987, 1992, 1993 Free Software Foundation, Inc.
5 This file is part of GAS, the GNU Assembler.
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 2, or (at your option)
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.
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. */
23 #define EXEC_MACHINE_TYPE HP9000S200_ID
28 #ifdef DOT_LABEL_PREFIX
29 #define LOCAL_LABEL(name) (name[0] =='.' \
30 && ( name [1] == 'L' || name [1] == '.' ))
31 #else /* not defined DOT_LABEL_PREFIX */
32 #define LOCAL_LABEL(name) (name [0] == 'L' )
33 #endif /* not defined DOT_LABEL_PREFIX */
34 #endif /* LOCAL_LABEL */
36 #define S_LOCAL_NAME(s) (LOCAL_LABEL(S_GET_NAME(s)))
41 * FixSs may be built up in any order.
46 /* These small fields are grouped together for compactness of
47 this structure, and efficiency of access on some architectures. */
48 char fx_pcrel_adjust; /* pc-relative offset adjust */
49 unsigned fx_pcrel : 1; /* TRUE: pc-relative. */
50 unsigned fx_im_disp : 1; /* TRUE: value is a displacement */
51 unsigned fx_bsr : 1; /* sequent-hack */
52 /* TRUE if target is a 'callj' (used by i960) */
53 unsigned fx_callj : 1;
54 short int fx_size; /* How many bytes are involved? */
56 fragS *fx_frag; /* Which frag? */
57 long fx_where; /* Where is the 1st byte to fix up? */
58 symbolS *fx_addsy; /* NULL or Symbol whose value we add in. */
59 symbolS *fx_subsy; /* NULL or Symbol whose value we subtract. */
60 valueT fx_offset; /* Absolute number we add in. */
61 struct fix *fx_next; /* NULL or -> next fixS. */
62 bit_fixS *fx_bit_fixP; /* IF NULL no bitfix's to do */
64 bfd_reloc_code_real_type fx_r_type;
67 /* Hack for machines where the type of reloc can't be
68 worked out by looking at how big it is. */
73 /* This field is sort of misnamed. It appears to be a sort of random
74 scratch field, for use by the back ends. The main gas code doesn't
75 do anything but initialize it to zero. The use of it does need to
76 be coordinated between the cpu and format files, though. E.g., some
77 coff targets pass the `addend' field from the cpu file via this
78 field. I don't know why the `fx_offset' field above can't be used
79 for that; investigate later and document. KR */
83 typedef struct fix fixS;
86 extern char *next_object_file_charP;
89 COMMON fixS *text_fix_root, *text_fix_tail; /* Chains fixSs. */
90 COMMON fixS *data_fix_root, *data_fix_tail; /* Chains fixSs. */
91 COMMON fixS *bss_fix_root, *bss_fix_tail; /* Chains fixSs. */
93 COMMON fixS **seg_fix_rootP, **seg_fix_tailP; /* -> one of above. */
96 extern long string_byte_count;
97 extern int section_alignment[];
99 bit_fixS *bit_fix_new PARAMS ((int size, int offset, long base_type,
100 long base_adj, long min, long max, long add));
101 void append PARAMS ((char **charPP, char *fromP, unsigned long length));
102 void record_alignment PARAMS ((segT seg, int align));
103 void write_object_file PARAMS ((void));
104 void relax_segment PARAMS ((struct frag * seg_frag_root, segT seg_type));
107 fixS *fix_new PARAMS ((fragS * frag, int where, int size,
108 symbolS * add_symbol, offsetT offset, int pcrel,
109 bfd_reloc_code_real_type r_type));
110 fixS *fix_new_exp PARAMS ((fragS * frag, int where, int size,
111 expressionS *exp, int pcrel,
112 bfd_reloc_code_real_type r_type));
114 fixS *fix_new PARAMS ((fragS * frag, int where, int size,
115 symbolS * add_symbol, offsetT offset, int pcrel,
117 fixS *fix_new_exp PARAMS ((fragS * frag, int where, int size,
118 expressionS *exp, int pcrel, int r_type));