1 /* AMD 29000 COFF back-end for BFD.
2 Copyright (C) 1990-1991 Free Software Foundation, Inc.
3 Contributed by David Wood at New York University 7/8/91.
5 This file is part of BFD, the Binary File Descriptor library.
7 This program 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 of the License, or
10 (at your option) any later version.
12 This program 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 this program; if not, write to the Free Software
19 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
29 #include "coff/a29k.h"
30 #include "coff/internal.h"
33 #define INSERT_HWORD(WORD,HWORD) \
34 (((WORD) & 0xff00ff00) | (((HWORD) & 0xff00) << 8) | ((HWORD)& 0xff))
35 #define EXTRACT_HWORD(WORD) \
36 (((WORD) & 0x00ff0000) >> 8) | ((WORD)& 0xff)
37 #define SIGN_EXTEND_HWORD(HWORD) \
38 ((HWORD) & 0x8000 ? (HWORD)|0xffff0000 : (HWORD))
40 /* Provided the symbol, returns the value reffed */
42 get_symbol_value(symbol
)
47 if (symbol
!= (asymbol
*)NULL
) {
48 if (symbol
->section
== &bfd_com_section
)
53 relocation
= symbol
->value
;
55 if (symbol
->section
!= (asection
*)NULL
) {
56 relocation
+= symbol
->section
->output_section
->vma
+
57 symbol
->section
->output_offset
;
63 /* this function is in charge of performing all the 29k relocations */
65 static bfd_reloc_status_type
66 DEFUN(a29k_reloc
,(abfd
, reloc_entry
, symbol_in
, data
, input_section
),
68 arelent
*reloc_entry AND
69 asymbol
*symbol_in AND
71 asection
*input_section
)
73 /* the consth relocation comes in two parts, we have to remember
74 the state between calls, in these variables */
75 static boolean part1_consth_active
= false;
76 static unsigned long part1_consth_value
;
79 unsigned long sym_value
;
80 unsigned long unsigned_value
;
81 unsigned short r_type
;
85 r_type
= reloc_entry
->howto
->type
;
87 /* FIXME: Do we need to check for partial linking here */
88 if (symbol_in
&& (symbol_in
->section
== &bfd_und_section
))
90 /* Keep the state machine happy in case we're called again */
91 if (r_type
== R_IHIHALF
)
93 part1_consth_active
= true;
94 part1_consth_value
= 0;
96 return(bfd_reloc_undefined
);
99 if ((part1_consth_active
) && (r_type
!= R_IHCONST
))
101 fprintf(stderr
,"Relocation problem : ");
102 fprintf(stderr
,"Missing IHCONST in module %s\n",abfd
->filename
);
103 part1_consth_active
= false;
104 return(bfd_reloc_dangerous
);
107 insn
= bfd_get_32(abfd
, (bfd_byte
*)data
+ reloc_entry
->address
);
108 sym_value
= get_symbol_value(symbol_in
);
113 /* Take the value in the field and sign extend it */
114 signed_value
= EXTRACT_HWORD(insn
) << 2;
115 signed_value
= SIGN_EXTEND_HWORD(signed_value
);
116 signed_value
+= sym_value
+ reloc_entry
->addend
;
117 if ((signed_value
&~0x3ffff) == 0)
118 { /* Absolute jmp/call */
119 insn
|= (1<<24); /* Make it absolute */
120 /* FIXME: Should we change r_type to R_IABS */
125 /* Relative jmp/call, so subtract from the value the
126 address of the place we're coming from */
127 signed_value
-= reloc_entry
->address
+
128 input_section
->output_section
->vma
+
129 input_section
->output_offset
;
130 if (signed_value
>0x1ffff || signed_value
<-0x20000)
131 return(bfd_reloc_outofrange
);
135 insn
= INSERT_HWORD(insn
, signed_value
);
138 unsigned_value
= EXTRACT_HWORD(insn
);
139 unsigned_value
+= sym_value
+ reloc_entry
->addend
;
140 insn
= INSERT_HWORD(insn
, unsigned_value
);
144 Just get the symbol value that is referenced */
145 part1_consth_active
= true;
146 part1_consth_value
= sym_value
+ reloc_entry
->addend
;
147 /* Don't modify insn until R_IHCONST */
148 return(bfd_reloc_ok
);
152 Now relocate the reference */
153 if (part1_consth_active
== false) {
154 fprintf(stderr
,"Relocation problem : ");
155 fprintf(stderr
,"IHIHALF missing in module %s\n",
157 return(bfd_reloc_dangerous
);
159 /* sym_ptr_ptr = r_symndx, in coff_slurp_reloc_table() */
160 unsigned_value
= 0; /*EXTRACT_HWORD(insn) << 16;*/
161 unsigned_value
+= reloc_entry
->addend
; /* r_symndx */
162 unsigned_value
+= part1_consth_value
;
163 unsigned_value
= unsigned_value
>> 16;
164 insn
= INSERT_HWORD(insn
, unsigned_value
);
165 part1_consth_active
= false;
168 unsigned_value
= (insn
>> 24) + sym_value
+ reloc_entry
->addend
;
169 if (unsigned_value
& 0xffffff00) {
170 fprintf(stderr
,"Relocation problem : ");
171 fprintf(stderr
,"byte value too large in module %s\n",
173 return(bfd_reloc_overflow
);
175 insn
= (insn
& 0x00ffffff) | (unsigned_value
<< 24);
178 unsigned_value
= (insn
>> 16) + sym_value
+ reloc_entry
->addend
;
179 if (unsigned_value
& 0xffff0000) {
180 fprintf(stderr
,"Relocation problem : ");
181 fprintf(stderr
,"hword value too large in module %s\n",
183 return(bfd_reloc_overflow
);
185 insn
= (insn
& 0x0000ffff) | (unsigned_value
<<16);
188 insn
+= sym_value
+ reloc_entry
->addend
;
191 fprintf(stderr
,"Relocation problem : ");
192 fprintf(stderr
,"Unrecognized reloc type %d, in module %s\n",
193 r_type
,abfd
->filename
);
194 return (bfd_reloc_dangerous
);
197 bfd_put_32(abfd
, insn
, (bfd_byte
*)data
+ reloc_entry
->address
);
198 return(bfd_reloc_ok
);
214 /*FIXME: I'm not real sure about this table */
215 #define NA 0 /* Obsolete fields, via the documentation */
217 static reloc_howto_type howto_table
[] =
219 {R_ABS
, 0, 3, NA
, false, NA
, NAB
, true,a29k_reloc
,"ABS", true, 0xffffffff,0xffffffff, false},
220 {1}, {2}, {3}, {4}, {5}, {6}, {7}, {8}, {9}, {10},
221 {11}, {12}, {13}, {14}, {15}, {16}, {17}, {18}, {19}, {20},
223 {R_IREL
, 0, 3, NA
, true, NA
, NAB
, true,a29k_reloc
,"IREL", true, 0xffffffff,0xffffffff, false},
224 {R_IABS
, 0, 3, NA
, false, NA
, NAB
, true,a29k_reloc
,"IABS", true, 0xffffffff,0xffffffff, false},
225 {R_ILOHALF
, 0, 3, NA
, true, NA
, NAB
, true,a29k_reloc
,"ILOHALF", true, 0x0000ffff,0x0000ffff, false},
226 {R_IHIHALF
, 0, 3, NA
, true, NA
, NAB
, true,a29k_reloc
,"IHIHALF", true, 0xffff0000,0xffff0000, false},
227 {R_IHCONST
, 0, 3, NA
, true, NA
, NAB
, true,a29k_reloc
,"IHCONST", true, 0xffff0000,0xffff0000, false},
228 {R_BYTE
, 0, 0, NA
, false, NA
, NAB
, true,a29k_reloc
,"BYTE", true, 0x000000ff,0x000000ff, false},
229 {R_HWORD
, 0, 1, NA
, false, NA
, NAB
, true,a29k_reloc
,"HWORD", true, 0x0000ffff,0x0000ffff, false},
230 {R_WORD
, 0, 2, NA
, false, NA
, NAB
, true,a29k_reloc
,"WORD", true, 0xffffffff,0xffffffff, false},
234 #define BADMAG(x) A29KBADMAG(x)
236 #define RELOC_PROCESSING(relent, reloc, symbols, abfd, section) \
237 reloc_processing(relent, reloc, symbols, abfd, section)
239 static void DEFUN(reloc_processing
,(relent
,reloc
, symbols
, abfd
, section
) ,
241 struct internal_reloc
*reloc AND
242 asymbol
**symbols AND
246 relent
->address
= reloc
->r_vaddr
;
247 relent
->howto
= howto_table
+ reloc
->r_type
;
248 if (reloc
->r_type
== R_IHCONST
)
250 relent
->addend
= reloc
->r_symndx
;
251 relent
->sym_ptr_ptr
= bfd_abs_section
.symbol_ptr_ptr
;
256 relent
->sym_ptr_ptr
= symbols
+ obj_convert(abfd
)[reloc
->r_symndx
];
258 ptr
= *(relent
->sym_ptr_ptr
);
261 && ptr
->the_bfd
== abfd
262 && ptr
->section
!= (asection
*) NULL
263 && ((ptr
->flags
& BSF_OLD_COMMON
)== 0))
265 relent
->addend
= -(ptr
->section
->vma
+ ptr
->value
);
271 relent
->address
-= section
->vma
;
272 /* relent->section = 0;*/
276 #include "coffcode.h"
278 bfd_target a29kcoff_big_vec
=
280 "coff-a29k-big", /* name */
281 bfd_target_coff_flavour
,
282 true, /* data byte order is big */
283 true, /* header byte order is big */
285 (HAS_RELOC
| EXEC_P
| /* object flags */
286 HAS_LINENO
| HAS_DEBUG
|
287 HAS_SYMS
| HAS_LOCALS
| DYNAMIC
| WP_TEXT
),
289 (SEC_HAS_CONTENTS
| SEC_ALLOC
/* section flags */
290 | SEC_LOAD
| SEC_RELOC
292 '/', /* ar_pad_char */
293 15, /* ar_max_namelen */
294 2, /* minimum section alignment */
296 _do_getb64
, _do_putb64
, _do_getb32
,
297 _do_putb32
, _do_getb16
, _do_putb16
,
299 _do_getb64
, _do_putb64
, _do_getb32
,
300 _do_putb32
, _do_getb16
, _do_putb16
,
306 bfd_generic_archive_p
,
312 _bfd_generic_mkarchive
,
317 coff_write_object_contents
,
318 _bfd_write_archive_contents
,