1 /* write.c - emit .o file
2 Copyright 1986, 1987, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997,
3 1998, 1999, 2000, 2001, 2002
4 Free Software Foundation, Inc.
6 This file is part of GAS, the GNU Assembler.
8 GAS is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2, or (at your option)
13 GAS is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GAS; see the file COPYING. If not, write to the Free
20 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
23 /* This thing should be set up to do byteordering correctly. But... */
28 #include "output-file.h"
29 #include "dwarf2dbg.h"
31 #ifndef TC_ADJUST_RELOC_COUNT
32 #define TC_ADJUST_RELOC_COUNT(FIX, COUNT)
35 #ifndef TC_FORCE_RELOCATION
36 #define TC_FORCE_RELOCATION(FIX) \
37 (S_FORCE_RELOC ((FIX)->fx_addsy))
40 #ifndef TC_FORCE_RELOCATION_ABS
41 #define TC_FORCE_RELOCATION_ABS(FIX) \
42 (TC_FORCE_RELOCATION (FIX))
45 #ifndef TC_FORCE_RELOCATION_LOCAL
46 #define TC_FORCE_RELOCATION_LOCAL(FIX) \
49 || TC_FORCE_RELOCATION (FIX))
52 #ifndef TC_FORCE_RELOCATION_SUB_SAME
53 #define TC_FORCE_RELOCATION_SUB_SAME(FIX, SEG) \
57 #ifndef TC_FORCE_RELOCATION_SUB_ABS
58 #define TC_FORCE_RELOCATION_SUB_ABS(FIX) 0
61 #ifndef TC_FORCE_RELOCATION_SUB_LOCAL
63 #define TC_FORCE_RELOCATION_SUB_LOCAL(FIX) 0
65 #define TC_FORCE_RELOCATION_SUB_LOCAL(FIX) 1
69 #ifndef TC_VALIDATE_FIX_SUB
70 #ifdef UNDEFINED_DIFFERENCE_OK
71 /* The PA needs this for PIC code generation. */
72 #define TC_VALIDATE_FIX_SUB(FIX) 1
75 #define TC_VALIDATE_FIX_SUB(FIX) \
76 ((FIX)->fx_r_type == BFD_RELOC_GPREL32 \
77 || (FIX)->fx_r_type == BFD_RELOC_GPREL16)
79 #define TC_VALIDATE_FIX_SUB(FIX) 0
84 #ifndef TC_LINKRELAX_FIXUP
85 #define TC_LINKRELAX_FIXUP(SEG) 1
88 #ifndef MD_APPLY_SYM_VALUE
89 #define MD_APPLY_SYM_VALUE(FIX) 1
92 #ifndef TC_FINALIZE_SYMS_BEFORE_SIZE_SEG
93 #define TC_FINALIZE_SYMS_BEFORE_SIZE_SEG 1
96 #ifndef MD_PCREL_FROM_SECTION
97 #define MD_PCREL_FROM_SECTION(FIX, SEC) md_pcrel_from (FIX)
100 #ifndef WORKING_DOT_WORD
101 extern const int md_short_jump_size
;
102 extern const int md_long_jump_size
;
105 /* Used to control final evaluation of expressions. */
106 int finalize_syms
= 0;
108 int symbol_table_frozen
;
110 symbolS
*abs_section_sym
;
112 /* Remember the value of dot when parsing expressions. */
115 void print_fixup
PARAMS ((fixS
*));
118 static void renumber_sections
PARAMS ((bfd
*, asection
*, PTR
));
120 /* We generally attach relocs to frag chains. However, after we have
121 chained these all together into a segment, any relocs we add after
122 that must be attached to a segment. This will include relocs added
123 in md_estimate_size_for_relax, for example. */
124 static int frags_chained
= 0;
127 #ifndef BFD_ASSEMBLER
129 #ifndef MANY_SEGMENTS
130 struct frag
*text_frag_root
;
131 struct frag
*data_frag_root
;
132 struct frag
*bss_frag_root
;
134 struct frag
*text_last_frag
; /* Last frag in segment. */
135 struct frag
*data_last_frag
; /* Last frag in segment. */
136 static struct frag
*bss_last_frag
; /* Last frag in segment. */
140 static object_headers headers
;
143 long string_byte_count
;
144 char *next_object_file_charP
; /* Tracks object file bytes. */
147 int magic_number_for_object_file
= DEFAULT_MAGIC_NUMBER_FOR_OBJECT_FILE
;
150 #endif /* BFD_ASSEMBLER */
155 #define RELOC_ENUM enum bfd_reloc_code_real
157 #define RELOC_ENUM int
160 static fixS
*fix_new_internal
PARAMS ((fragS
*, int where
, int size
,
161 symbolS
*add
, symbolS
*sub
,
162 offsetT offset
, int pcrel
,
164 #if defined (BFD_ASSEMBLER) || (!defined (BFD) && !defined (OBJ_VMS))
165 static long fixup_segment
PARAMS ((fixS
*, segT
));
167 static relax_addressT relax_align
PARAMS ((relax_addressT addr
, int align
));
168 #if defined (BFD_ASSEMBLER) || ! defined (BFD)
169 static fragS
*chain_frchains_together_1
PARAMS ((segT
, struct frchain
*));
172 static void chain_frchains_together
PARAMS ((bfd
*, segT
, PTR
));
173 static void cvt_frag_to_fill
PARAMS ((segT
, fragS
*));
174 static void adjust_reloc_syms
PARAMS ((bfd
*, asection
*, PTR
));
175 static void fix_segment
PARAMS ((bfd
*, asection
*, PTR
));
176 static void write_relocs
PARAMS ((bfd
*, asection
*, PTR
));
177 static void write_contents
PARAMS ((bfd
*, asection
*, PTR
));
178 static void set_symtab
PARAMS ((void));
180 #if defined (BFD_ASSEMBLER) || (! defined (BFD) && ! defined (OBJ_AOUT))
181 static void merge_data_into_text
PARAMS ((void));
183 #if ! defined (BFD_ASSEMBLER) && ! defined (BFD)
184 static void cvt_frag_to_fill
PARAMS ((object_headers
*, segT
, fragS
*));
185 static void remove_subsegs
PARAMS ((frchainS
*, int, fragS
**, fragS
**));
186 static void relax_and_size_all_segments
PARAMS ((void));
189 /* Create a fixS in obstack 'notes'. */
192 fix_new_internal (frag
, where
, size
, add_symbol
, sub_symbol
, offset
, pcrel
,
194 fragS
*frag
; /* Which frag? */
195 int where
; /* Where in that frag? */
196 int size
; /* 1, 2, or 4 usually. */
197 symbolS
*add_symbol
; /* X_add_symbol. */
198 symbolS
*sub_symbol
; /* X_op_symbol. */
199 offsetT offset
; /* X_add_number. */
200 int pcrel
; /* TRUE if PC-relative relocation. */
201 RELOC_ENUM r_type ATTRIBUTE_UNUSED
; /* Relocation type. */
207 fixP
= (fixS
*) obstack_alloc (¬es
, sizeof (fixS
));
209 fixP
->fx_frag
= frag
;
210 fixP
->fx_where
= where
;
211 fixP
->fx_size
= size
;
212 /* We've made fx_size a narrow field; check that it's wide enough. */
213 if (fixP
->fx_size
!= size
)
215 as_bad (_("field fx_size too small to hold %d"), size
);
218 fixP
->fx_addsy
= add_symbol
;
219 fixP
->fx_subsy
= sub_symbol
;
220 fixP
->fx_offset
= offset
;
221 fixP
->fx_dot_value
= dot_value
;
222 fixP
->fx_pcrel
= pcrel
;
224 #if defined(NEED_FX_R_TYPE) || defined (BFD_ASSEMBLER)
225 fixP
->fx_r_type
= r_type
;
227 fixP
->fx_im_disp
= 0;
228 fixP
->fx_pcrel_adjust
= 0;
229 fixP
->fx_bit_fixP
= 0;
230 fixP
->fx_addnumber
= 0;
233 fixP
->fx_no_overflow
= 0;
237 fixP
->fx_cgen
.insn
= NULL
;
238 fixP
->fx_cgen
.opinfo
= 0;
242 TC_INIT_FIX_DATA (fixP
);
245 as_where (&fixP
->fx_file
, &fixP
->fx_line
);
247 /* Usually, we want relocs sorted numerically, but while
248 comparing to older versions of gas that have relocs
249 reverse sorted, it is convenient to have this compile
250 time option. xoxorich. */
254 fixS
**seg_fix_rootP
= (frags_chained
255 ? &seg_info (now_seg
)->fix_root
256 : &frchain_now
->fix_root
);
257 fixS
**seg_fix_tailP
= (frags_chained
258 ? &seg_info (now_seg
)->fix_tail
259 : &frchain_now
->fix_tail
);
262 #ifdef REVERSE_SORT_RELOCS
264 fixP
->fx_next
= *seg_fix_rootP
;
265 *seg_fix_rootP
= fixP
;
267 #else /* REVERSE_SORT_RELOCS */
269 fixP
->fx_next
= NULL
;
272 (*seg_fix_tailP
)->fx_next
= fixP
;
274 *seg_fix_rootP
= fixP
;
275 *seg_fix_tailP
= fixP
;
277 #endif /* REVERSE_SORT_RELOCS */
283 /* Create a fixup relative to a symbol (plus a constant). */
286 fix_new (frag
, where
, size
, add_symbol
, offset
, pcrel
, r_type
)
287 fragS
*frag
; /* Which frag? */
288 int where
; /* Where in that frag? */
289 int size
; /* 1, 2, or 4 usually. */
290 symbolS
*add_symbol
; /* X_add_symbol. */
291 offsetT offset
; /* X_add_number. */
292 int pcrel
; /* TRUE if PC-relative relocation. */
293 RELOC_ENUM r_type
; /* Relocation type. */
295 return fix_new_internal (frag
, where
, size
, add_symbol
,
296 (symbolS
*) NULL
, offset
, pcrel
, r_type
);
299 /* Create a fixup for an expression. Currently we only support fixups
300 for difference expressions. That is itself more than most object
301 file formats support anyhow. */
304 fix_new_exp (frag
, where
, size
, exp
, pcrel
, r_type
)
305 fragS
*frag
; /* Which frag? */
306 int where
; /* Where in that frag? */
307 int size
; /* 1, 2, or 4 usually. */
308 expressionS
*exp
; /* Expression. */
309 int pcrel
; /* TRUE if PC-relative relocation. */
310 RELOC_ENUM r_type
; /* Relocation type. */
322 as_bad (_("register value used as expression"));
326 /* This comes up when _GLOBAL_OFFSET_TABLE_+(.-L0) is read, if
327 the difference expression cannot immediately be reduced. */
329 symbolS
*stmp
= make_expr_symbol (exp
);
331 exp
->X_op
= O_symbol
;
332 exp
->X_op_symbol
= 0;
333 exp
->X_add_symbol
= stmp
;
334 exp
->X_add_number
= 0;
336 return fix_new_exp (frag
, where
, size
, exp
, pcrel
, r_type
);
340 add
= exp
->X_add_symbol
;
341 off
= exp
->X_add_number
;
343 #if defined(BFD_ASSEMBLER)
344 r_type
= BFD_RELOC_RVA
;
346 #if defined(TC_RVA_RELOC)
347 r_type
= TC_RVA_RELOC
;
349 as_fatal (_("rva not supported"));
355 sub
= exp
->X_add_symbol
;
356 off
= exp
->X_add_number
;
360 sub
= exp
->X_op_symbol
;
363 add
= exp
->X_add_symbol
;
366 off
= exp
->X_add_number
;
370 add
= make_expr_symbol (exp
);
374 return fix_new_internal (frag
, where
, size
, add
, sub
, off
, pcrel
, r_type
);
377 /* Append a string onto another string, bumping the pointer along. */
379 append (charPP
, fromP
, length
)
382 unsigned long length
;
384 /* Don't trust memcpy() of 0 chars. */
388 memcpy (*charPP
, fromP
, length
);
392 #ifndef BFD_ASSEMBLER
393 int section_alignment
[SEG_MAXIMUM_ORDINAL
];
396 /* This routine records the largest alignment seen for each segment.
397 If the beginning of the segment is aligned on the worst-case
398 boundary, all of the other alignments within it will work. At
399 least one object format really uses this info. */
402 record_alignment (seg
, align
)
403 /* Segment to which alignment pertains. */
405 /* Alignment, as a power of 2 (e.g., 1 => 2-byte boundary, 2 => 4-byte
409 if (seg
== absolute_section
)
412 if ((unsigned int) align
> bfd_get_section_alignment (stdoutput
, seg
))
413 bfd_set_section_alignment (stdoutput
, seg
, align
);
415 if (align
> section_alignment
[(int) seg
])
416 section_alignment
[(int) seg
] = align
;
421 get_recorded_alignment (seg
)
424 if (seg
== absolute_section
)
427 return bfd_get_section_alignment (stdoutput
, seg
);
429 return section_alignment
[(int) seg
];
435 /* Reset the section indices after removing the gas created sections. */
438 renumber_sections (abfd
, sec
, countparg
)
439 bfd
*abfd ATTRIBUTE_UNUSED
;
443 int *countp
= (int *) countparg
;
445 sec
->index
= *countp
;
449 #endif /* defined (BFD_ASSEMBLER) */
451 #if defined (BFD_ASSEMBLER) || ! defined (BFD)
454 chain_frchains_together_1 (section
, frchp
)
456 struct frchain
*frchp
;
458 fragS dummy
, *prev_frag
= &dummy
;
460 fixS fix_dummy
, *prev_fix
= &fix_dummy
;
463 for (; frchp
&& frchp
->frch_seg
== section
; frchp
= frchp
->frch_next
)
465 prev_frag
->fr_next
= frchp
->frch_root
;
466 prev_frag
= frchp
->frch_last
;
467 assert (prev_frag
->fr_type
!= 0);
469 if (frchp
->fix_root
!= (fixS
*) NULL
)
471 if (seg_info (section
)->fix_root
== (fixS
*) NULL
)
472 seg_info (section
)->fix_root
= frchp
->fix_root
;
473 prev_fix
->fx_next
= frchp
->fix_root
;
474 seg_info (section
)->fix_tail
= frchp
->fix_tail
;
475 prev_fix
= frchp
->fix_tail
;
479 assert (prev_frag
->fr_type
!= 0);
480 prev_frag
->fr_next
= 0;
489 chain_frchains_together (abfd
, section
, xxx
)
490 bfd
*abfd ATTRIBUTE_UNUSED
;
492 PTR xxx ATTRIBUTE_UNUSED
;
494 segment_info_type
*info
;
496 /* BFD may have introduced its own sections without using
497 subseg_new, so it is possible that seg_info is NULL. */
498 info
= seg_info (section
);
499 if (info
!= (segment_info_type
*) NULL
)
500 info
->frchainP
->frch_last
501 = chain_frchains_together_1 (section
, info
->frchainP
);
503 /* Now that we've chained the frags together, we must add new fixups
504 to the segment, not to the frag chain. */
510 #if !defined (BFD) && !defined (BFD_ASSEMBLER)
513 remove_subsegs (head
, seg
, root
, last
)
519 *root
= head
->frch_root
;
520 *last
= chain_frchains_together_1 (seg
, head
);
525 #if defined (BFD_ASSEMBLER) || !defined (BFD)
529 cvt_frag_to_fill (sec
, fragP
)
530 segT sec ATTRIBUTE_UNUSED
;
534 cvt_frag_to_fill (headersP
, sec
, fragP
)
535 object_headers
*headersP
;
540 switch (fragP
->fr_type
)
548 HANDLE_ALIGN (fragP
);
550 know (fragP
->fr_next
!= NULL
);
551 fragP
->fr_offset
= (fragP
->fr_next
->fr_address
553 - fragP
->fr_fix
) / fragP
->fr_var
;
554 if (fragP
->fr_offset
< 0)
556 as_bad_where (fragP
->fr_file
, fragP
->fr_line
,
557 _("attempt to .org/.space backwards? (%ld)"),
558 (long) fragP
->fr_offset
);
559 fragP
->fr_offset
= 0;
561 fragP
->fr_type
= rs_fill
;
569 valueT value
= S_GET_VALUE (fragP
->fr_symbol
);
572 size
= output_leb128 (fragP
->fr_literal
+ fragP
->fr_fix
, value
,
575 fragP
->fr_fix
+= size
;
576 fragP
->fr_type
= rs_fill
;
578 fragP
->fr_offset
= 0;
579 fragP
->fr_symbol
= NULL
;
584 eh_frame_convert_frag (fragP
);
588 dwarf2dbg_convert_frag (fragP
);
591 case rs_machine_dependent
:
593 md_convert_frag (stdoutput
, sec
, fragP
);
595 md_convert_frag (headersP
, sec
, fragP
);
598 assert (fragP
->fr_next
== NULL
599 || ((offsetT
) (fragP
->fr_next
->fr_address
- fragP
->fr_address
)
602 /* After md_convert_frag, we make the frag into a ".space 0".
603 md_convert_frag() should set up any fixSs and constants
608 #ifndef WORKING_DOT_WORD
611 struct broken_word
*lie
;
613 if (fragP
->fr_subtype
)
615 fragP
->fr_fix
+= md_short_jump_size
;
616 for (lie
= (struct broken_word
*) (fragP
->fr_symbol
);
617 lie
&& lie
->dispfrag
== fragP
;
618 lie
= lie
->next_broken_word
)
620 fragP
->fr_fix
+= md_long_jump_size
;
628 BAD_CASE (fragP
->fr_type
);
633 #endif /* defined (BFD_ASSEMBLER) || !defined (BFD) */
636 static void relax_seg
PARAMS ((bfd
*, asection
*, PTR
));
638 relax_seg (abfd
, sec
, xxx
)
639 bfd
*abfd ATTRIBUTE_UNUSED
;
643 segment_info_type
*seginfo
= seg_info (sec
);
645 if (seginfo
&& seginfo
->frchainP
646 && relax_segment (seginfo
->frchainP
->frch_root
, sec
))
648 int *result
= (int *) xxx
;
653 static void size_seg
PARAMS ((bfd
*, asection
*, PTR
));
655 size_seg (abfd
, sec
, xxx
)
658 PTR xxx ATTRIBUTE_UNUSED
;
662 segment_info_type
*seginfo
;
664 valueT size
, newsize
;
666 subseg_change (sec
, 0);
668 seginfo
= seg_info (sec
);
669 if (seginfo
&& seginfo
->frchainP
)
671 for (fragp
= seginfo
->frchainP
->frch_root
; fragp
; fragp
= fragp
->fr_next
)
672 cvt_frag_to_fill (sec
, fragp
);
673 for (fragp
= seginfo
->frchainP
->frch_root
;
675 fragp
= fragp
->fr_next
)
676 /* Walk to last elt. */
678 size
= fragp
->fr_address
+ fragp
->fr_fix
;
683 flags
= bfd_get_section_flags (abfd
, sec
);
685 if (size
> 0 && ! seginfo
->bss
)
686 flags
|= SEC_HAS_CONTENTS
;
688 /* @@ This is just an approximation. */
689 if (seginfo
&& seginfo
->fix_root
)
693 x
= bfd_set_section_flags (abfd
, sec
, flags
);
696 newsize
= md_section_align (sec
, size
);
697 x
= bfd_set_section_size (abfd
, sec
, newsize
);
700 /* If the size had to be rounded up, add some padding in the last
702 assert (newsize
>= size
);
705 fragS
*last
= seginfo
->frchainP
->frch_last
;
706 fragp
= seginfo
->frchainP
->frch_root
;
707 while (fragp
->fr_next
!= last
)
708 fragp
= fragp
->fr_next
;
709 last
->fr_address
= size
;
710 if ((newsize
- size
) % fragp
->fr_var
== 0)
711 fragp
->fr_offset
+= (newsize
- size
) / fragp
->fr_var
;
713 /* If we hit this abort, it's likely due to subsegs_finish not
714 providing sufficient alignment on the last frag, and the
715 machine dependent code using alignment frags with fr_var
720 #ifdef tc_frob_section
721 tc_frob_section (sec
);
723 #ifdef obj_frob_section
724 obj_frob_section (sec
);
730 dump_section_relocs (abfd
, sec
, stream_
)
731 bfd
*abfd ATTRIBUTE_UNUSED
;
735 FILE *stream
= (FILE *) stream_
;
736 segment_info_type
*seginfo
= seg_info (sec
);
737 fixS
*fixp
= seginfo
->fix_root
;
742 fprintf (stream
, "sec %s relocs:\n", sec
->name
);
745 symbolS
*s
= fixp
->fx_addsy
;
747 fprintf (stream
, " %08lx: type %d ", (unsigned long) fixp
,
748 (int) fixp
->fx_r_type
);
750 fprintf (stream
, "no sym\n");
753 print_symbol_value_1 (stream
, s
);
754 fprintf (stream
, "\n");
756 fixp
= fixp
->fx_next
;
760 #define dump_section_relocs(ABFD,SEC,STREAM) ((void) 0)
763 #ifndef EMIT_SECTION_SYMBOLS
764 #define EMIT_SECTION_SYMBOLS 1
767 /* This pass over fixups decides whether symbols can be replaced with
771 adjust_reloc_syms (abfd
, sec
, xxx
)
772 bfd
*abfd ATTRIBUTE_UNUSED
;
774 PTR xxx ATTRIBUTE_UNUSED
;
776 segment_info_type
*seginfo
= seg_info (sec
);
782 dump_section_relocs (abfd
, sec
, stderr
);
784 for (fixp
= seginfo
->fix_root
; fixp
; fixp
= fixp
->fx_next
)
788 else if (fixp
->fx_addsy
)
794 fprintf (stderr
, "\n\nadjusting fixup:\n");
798 sym
= fixp
->fx_addsy
;
800 /* All symbols should have already been resolved at this
801 point. It is possible to see unresolved expression
802 symbols, though, since they are not in the regular symbol
804 resolve_symbol_value (sym
);
806 if (fixp
->fx_subsy
!= NULL
)
807 resolve_symbol_value (fixp
->fx_subsy
);
809 /* If this symbol is equated to an undefined symbol, convert
810 the fixup to being against that symbol. */
811 if (symbol_equated_reloc_p (sym
))
813 fixp
->fx_offset
+= symbol_get_value_expression (sym
)->X_add_number
;
814 sym
= symbol_get_value_expression (sym
)->X_add_symbol
;
815 fixp
->fx_addsy
= sym
;
818 if (symbol_mri_common_p (sym
))
820 /* These symbols are handled specially in fixup_segment. */
824 /* If the symbol is undefined, common, weak, or global (ELF
825 shared libs), we can't replace it with the section symbol. */
826 if (S_FORCE_RELOC (fixp
->fx_addsy
))
829 /* Is there some other (target cpu dependent) reason we can't adjust
830 this one? (E.g. relocations involving function addresses on
832 #ifdef tc_fix_adjustable
833 if (! tc_fix_adjustable (fixp
))
837 /* Since we're reducing to section symbols, don't attempt to reduce
838 anything that's already using one. */
839 if (symbol_section_p (sym
))
842 symsec
= S_GET_SEGMENT (sym
);
846 if (bfd_is_abs_section (symsec
))
848 /* The fixup_segment routine normally will not use this
849 symbol in a relocation. */
853 /* Don't try to reduce relocs which refer to non-local symbols
854 in .linkonce sections. It can lead to confusion when a
855 debugging section refers to a .linkonce section. I hope
856 this will always be correct. */
857 if (symsec
!= sec
&& ! S_IS_LOCAL (sym
))
859 if ((symsec
->flags
& SEC_LINK_ONCE
) != 0
861 /* The GNU toolchain uses an extension for ELF: a
862 section beginning with the magic string
863 .gnu.linkonce is a linkonce section. */
864 && strncmp (segment_name (symsec
), ".gnu.linkonce",
865 sizeof ".gnu.linkonce" - 1) == 0))
869 /* Never adjust a reloc against local symbol in a merge section
870 with non-zero addend. */
871 if ((symsec
->flags
& SEC_MERGE
) != 0
872 && (fixp
->fx_offset
!= 0 || fixp
->fx_subsy
!= NULL
))
875 /* Never adjust a reloc against TLS local symbol. */
876 if ((symsec
->flags
& SEC_THREAD_LOCAL
) != 0)
879 /* We refetch the segment when calling section_symbol, rather
880 than using symsec, because S_GET_VALUE may wind up changing
881 the section when it calls resolve_symbol_value. */
882 fixp
->fx_offset
+= S_GET_VALUE (sym
);
883 fixp
->fx_addsy
= section_symbol (S_GET_SEGMENT (sym
));
885 fprintf (stderr
, "\nadjusted fixup:\n");
890 dump_section_relocs (abfd
, sec
, stderr
);
894 fix_segment (abfd
, sec
, xxx
)
895 bfd
*abfd ATTRIBUTE_UNUSED
;
897 PTR xxx ATTRIBUTE_UNUSED
;
899 segment_info_type
*seginfo
= seg_info (sec
);
901 fixup_segment (seginfo
->fix_root
, sec
);
905 write_relocs (abfd
, sec
, xxx
)
908 PTR xxx ATTRIBUTE_UNUSED
;
910 segment_info_type
*seginfo
= seg_info (sec
);
917 /* If seginfo is NULL, we did not create this section; don't do
923 for (fixp
= seginfo
->fix_root
; fixp
; fixp
= fixp
->fx_next
)
926 #ifndef RELOC_EXPANSION_POSSIBLE
927 /* Set up reloc information as well. */
928 relocs
= (arelent
**) xmalloc (n
* sizeof (arelent
*));
929 memset ((char *) relocs
, 0, n
* sizeof (arelent
*));
932 for (fixp
= seginfo
->fix_root
; fixp
!= (fixS
*) NULL
; fixp
= fixp
->fx_next
)
935 bfd_reloc_status_type s
;
944 /* If this is an undefined symbol which was equated to another
945 symbol, then generate the reloc against the latter symbol
946 rather than the former. */
947 sym
= fixp
->fx_addsy
;
948 while (symbol_equated_reloc_p (sym
))
952 /* We must avoid looping, as that can occur with a badly
954 n
= symbol_get_value_expression (sym
)->X_add_symbol
;
957 fixp
->fx_offset
+= symbol_get_value_expression (sym
)->X_add_number
;
960 fixp
->fx_addsy
= sym
;
962 reloc
= tc_gen_reloc (sec
, fixp
);
970 /* This test is triggered inappropriately for the SH. */
971 if (fixp
->fx_where
+ fixp
->fx_size
972 > fixp
->fx_frag
->fr_fix
+ fixp
->fx_frag
->fr_offset
)
976 s
= bfd_install_relocation (stdoutput
, reloc
,
977 fixp
->fx_frag
->fr_literal
,
978 fixp
->fx_frag
->fr_address
,
984 case bfd_reloc_overflow
:
985 as_bad_where (fixp
->fx_file
, fixp
->fx_line
,
986 _("relocation overflow"));
988 case bfd_reloc_outofrange
:
989 as_bad_where (fixp
->fx_file
, fixp
->fx_line
,
990 _("relocation out of range"));
993 as_fatal (_("%s:%u: bad return from bfd_install_relocation: %x"),
994 fixp
->fx_file
, fixp
->fx_line
, s
);
999 n
= n
* MAX_RELOC_EXPANSION
;
1000 /* Set up reloc information as well. */
1001 relocs
= (arelent
**) xmalloc (n
* sizeof (arelent
*));
1004 for (fixp
= seginfo
->fix_root
; fixp
!= (fixS
*) NULL
; fixp
= fixp
->fx_next
)
1008 bfd_reloc_status_type s
;
1018 /* If this is an undefined symbol which was equated to another
1019 symbol, then generate the reloc against the latter symbol
1020 rather than the former. */
1021 sym
= fixp
->fx_addsy
;
1022 while (symbol_equated_reloc_p (sym
))
1026 /* We must avoid looping, as that can occur with a badly
1028 n
= symbol_get_value_expression (sym
)->X_add_symbol
;
1031 fixp
->fx_offset
+= symbol_get_value_expression (sym
)->X_add_number
;
1034 fixp
->fx_addsy
= sym
;
1036 reloc
= tc_gen_reloc (sec
, fixp
);
1038 for (j
= 0; reloc
[j
]; j
++)
1040 relocs
[i
++] = reloc
[j
];
1043 data
= fixp
->fx_frag
->fr_literal
+ fixp
->fx_where
;
1044 if (fixp
->fx_where
+ fixp
->fx_size
1045 > fixp
->fx_frag
->fr_fix
+ fixp
->fx_frag
->fr_offset
)
1046 as_bad_where (fixp
->fx_file
, fixp
->fx_line
,
1047 _("internal error: fixup not contained within frag"));
1048 for (j
= 0; reloc
[j
]; j
++)
1050 s
= bfd_install_relocation (stdoutput
, reloc
[j
],
1051 fixp
->fx_frag
->fr_literal
,
1052 fixp
->fx_frag
->fr_address
,
1058 case bfd_reloc_overflow
:
1059 as_bad_where (fixp
->fx_file
, fixp
->fx_line
,
1060 _("relocation overflow"));
1062 case bfd_reloc_outofrange
:
1063 as_bad_where (fixp
->fx_file
, fixp
->fx_line
,
1064 _("relocation out of range"));
1067 as_fatal (_("%s:%u: bad return from bfd_install_relocation: %x"),
1068 fixp
->fx_file
, fixp
->fx_line
, s
);
1079 sympp
= bfd_get_outsymbols (stdoutput
);
1080 nsyms
= bfd_get_symcount (stdoutput
);
1081 for (i
= 0; i
< n
; i
++)
1082 if (((*relocs
[i
]->sym_ptr_ptr
)->flags
& BSF_SECTION_SYM
) == 0)
1084 for (j
= 0; j
< nsyms
; j
++)
1085 if (sympp
[j
] == *relocs
[i
]->sym_ptr_ptr
)
1094 bfd_set_reloc (stdoutput
, sec
, relocs
, n
);
1096 bfd_set_section_flags (abfd
, sec
,
1097 (bfd_get_section_flags (abfd
, sec
)
1098 & (flagword
) ~SEC_RELOC
));
1100 #ifdef SET_SECTION_RELOCS
1101 SET_SECTION_RELOCS (sec
, relocs
, n
);
1109 fprintf (stderr
, "relocs for sec %s\n", sec
->name
);
1110 for (i
= 0; i
< n
; i
++)
1113 s
= *r
->sym_ptr_ptr
;
1114 fprintf (stderr
, " reloc %2d @%08x off %4x : sym %-10s addend %x\n",
1115 i
, r
, r
->address
, s
->name
, r
->addend
);
1122 write_contents (abfd
, sec
, xxx
)
1123 bfd
*abfd ATTRIBUTE_UNUSED
;
1125 PTR xxx ATTRIBUTE_UNUSED
;
1127 segment_info_type
*seginfo
= seg_info (sec
);
1128 unsigned long offset
= 0;
1131 /* Write out the frags. */
1133 || !(bfd_get_section_flags (abfd
, sec
) & SEC_HAS_CONTENTS
))
1136 for (f
= seginfo
->frchainP
->frch_root
;
1141 unsigned long fill_size
;
1145 assert (f
->fr_type
== rs_fill
);
1148 x
= bfd_set_section_contents (stdoutput
, sec
,
1149 f
->fr_literal
, (file_ptr
) offset
,
1150 (bfd_size_type
) f
->fr_fix
);
1153 bfd_perror (stdoutput
->filename
);
1154 as_perror (_("FATAL: Can't write %s"), stdoutput
->filename
);
1155 exit (EXIT_FAILURE
);
1157 offset
+= f
->fr_fix
;
1159 fill_literal
= f
->fr_literal
+ f
->fr_fix
;
1160 fill_size
= f
->fr_var
;
1161 count
= f
->fr_offset
;
1162 assert (count
>= 0);
1163 if (fill_size
&& count
)
1166 if (fill_size
> sizeof (buf
))
1168 /* Do it the old way. Can this ever happen? */
1171 x
= bfd_set_section_contents (stdoutput
, sec
,
1174 (bfd_size_type
) fill_size
);
1177 bfd_perror (stdoutput
->filename
);
1178 as_perror (_("FATAL: Can't write %s"),
1179 stdoutput
->filename
);
1180 exit (EXIT_FAILURE
);
1182 offset
+= fill_size
;
1187 /* Build a buffer full of fill objects and output it as
1188 often as necessary. This saves on the overhead of
1189 potentially lots of bfd_set_section_contents calls. */
1193 n_per_buf
= sizeof (buf
);
1194 memset (buf
, *fill_literal
, n_per_buf
);
1199 n_per_buf
= sizeof (buf
) / fill_size
;
1200 for (i
= n_per_buf
, bufp
= buf
; i
; i
--, bufp
+= fill_size
)
1201 memcpy (bufp
, fill_literal
, fill_size
);
1203 for (; count
> 0; count
-= n_per_buf
)
1205 n_per_buf
= n_per_buf
> count
? count
: n_per_buf
;
1206 x
= bfd_set_section_contents
1207 (stdoutput
, sec
, buf
, (file_ptr
) offset
,
1208 (bfd_size_type
) n_per_buf
* fill_size
);
1210 as_fatal (_("cannot write to output file"));
1211 offset
+= n_per_buf
* fill_size
;
1219 #if defined(BFD_ASSEMBLER) || (!defined (BFD) && !defined(OBJ_AOUT))
1221 merge_data_into_text ()
1223 #if defined(BFD_ASSEMBLER) || defined(MANY_SEGMENTS)
1224 seg_info (text_section
)->frchainP
->frch_last
->fr_next
=
1225 seg_info (data_section
)->frchainP
->frch_root
;
1226 seg_info (text_section
)->frchainP
->frch_last
=
1227 seg_info (data_section
)->frchainP
->frch_last
;
1228 seg_info (data_section
)->frchainP
= 0;
1232 text_last_frag
->fr_next
= data_frag_root
;
1233 text_last_frag
= data_last_frag
;
1234 data_last_frag
= NULL
;
1235 data_frag_root
= NULL
;
1238 for (tmp
= text_fix_root
; tmp
->fx_next
; tmp
= tmp
->fx_next
);;
1239 tmp
->fx_next
= data_fix_root
;
1240 text_fix_tail
= data_fix_tail
;
1243 text_fix_root
= data_fix_root
;
1244 data_fix_root
= NULL
;
1247 #endif /* BFD_ASSEMBLER || (! BFD && ! OBJ_AOUT) */
1249 #if !defined (BFD_ASSEMBLER) && !defined (BFD)
1251 relax_and_size_all_segments ()
1255 relax_segment (text_frag_root
, SEG_TEXT
);
1256 relax_segment (data_frag_root
, SEG_DATA
);
1257 relax_segment (bss_frag_root
, SEG_BSS
);
1259 /* Now the addresses of frags are correct within the segment. */
1260 know (text_last_frag
->fr_type
== rs_fill
&& text_last_frag
->fr_offset
== 0);
1261 H_SET_TEXT_SIZE (&headers
, text_last_frag
->fr_address
);
1262 text_last_frag
->fr_address
= H_GET_TEXT_SIZE (&headers
);
1264 /* Join the 2 segments into 1 huge segment.
1265 To do this, re-compute every rn_address in the SEG_DATA frags.
1266 Then join the data frags after the text frags.
1268 Determine a_data [length of data segment]. */
1271 register relax_addressT slide
;
1273 know ((text_last_frag
->fr_type
== rs_fill
)
1274 && (text_last_frag
->fr_offset
== 0));
1276 H_SET_DATA_SIZE (&headers
, data_last_frag
->fr_address
);
1277 data_last_frag
->fr_address
= H_GET_DATA_SIZE (&headers
);
1278 slide
= H_GET_TEXT_SIZE (&headers
); /* & in file of the data segment. */
1280 #define RoundUp(N,S) (((N)+(S)-1)&-(S))
1281 /* For b.out: If the data section has a strict alignment
1282 requirement, its load address in the .o file will be
1283 rounded up from the size of the text section. These
1284 two values are *not* the same! Similarly for the bss
1286 slide
= RoundUp (slide
, 1 << section_alignment
[SEG_DATA
]);
1289 for (fragP
= data_frag_root
; fragP
; fragP
= fragP
->fr_next
)
1290 fragP
->fr_address
+= slide
;
1292 know (text_last_frag
!= 0);
1293 text_last_frag
->fr_next
= data_frag_root
;
1297 H_SET_DATA_SIZE (&headers
, 0);
1301 /* See above comments on b.out data section address. */
1304 if (data_last_frag
== 0)
1305 bss_vma
= H_GET_TEXT_SIZE (&headers
);
1307 bss_vma
= data_last_frag
->fr_address
;
1308 bss_vma
= RoundUp (bss_vma
, 1 << section_alignment
[SEG_BSS
]);
1309 bss_address_frag
.fr_address
= bss_vma
;
1311 #else /* ! OBJ_BOUT */
1312 bss_address_frag
.fr_address
= (H_GET_TEXT_SIZE (&headers
) +
1313 H_GET_DATA_SIZE (&headers
));
1315 #endif /* ! OBJ_BOUT */
1317 /* Slide all the frags. */
1320 relax_addressT slide
= bss_address_frag
.fr_address
;
1322 for (fragP
= bss_frag_root
; fragP
; fragP
= fragP
->fr_next
)
1323 fragP
->fr_address
+= slide
;
1327 H_SET_BSS_SIZE (&headers
,
1328 bss_last_frag
->fr_address
- bss_frag_root
->fr_address
);
1330 H_SET_BSS_SIZE (&headers
, 0);
1332 #endif /* ! BFD_ASSEMBLER && ! BFD */
1334 #if defined (BFD_ASSEMBLER) || !defined (BFD)
1336 #ifdef BFD_ASSEMBLER
1344 extern PTR bfd_alloc
PARAMS ((bfd
*, bfd_size_type
));
1346 /* Count symbols. We can't rely on a count made by the loop in
1347 write_object_file, because *_frob_file may add a new symbol or
1350 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
1356 bfd_size_type amt
= (bfd_size_type
) nsyms
* sizeof (asymbol
*);
1358 asympp
= (asymbol
**) bfd_alloc (stdoutput
, amt
);
1359 symp
= symbol_rootP
;
1360 for (i
= 0; i
< nsyms
; i
++, symp
= symbol_next (symp
))
1362 asympp
[i
] = symbol_get_bfdsym (symp
);
1363 symbol_mark_written (symp
);
1368 result
= bfd_set_symtab (stdoutput
, asympp
, nsyms
);
1369 assert (result
== true);
1370 symbol_table_frozen
= 1;
1374 /* Finish the subsegments. After every sub-segment, we fake an
1375 ".align ...". This conforms to BSD4.2 brane-damage. We then fake
1376 ".fill 0" because that is the kind of frag that requires least
1377 thought. ".align" frags like to have a following frag since that
1378 makes calculating their intended length trivial. */
1380 #ifndef SUB_SEGMENT_ALIGN
1382 /* The last subsegment gets an aligment corresponding to the alignment
1383 of the section. This allows proper nop-filling at the end of
1384 code-bearing sections. */
1385 #define SUB_SEGMENT_ALIGN(SEG, FRCHAIN) \
1386 (!(FRCHAIN)->frch_next || (FRCHAIN)->frch_next->frch_seg != (SEG) \
1387 ? get_recorded_alignment (SEG) : 0)
1389 #ifdef BFD_ASSEMBLER
1390 #define SUB_SEGMENT_ALIGN(SEG, FRCHAIN) 0
1392 #define SUB_SEGMENT_ALIGN(SEG, FRCHAIN) 2
1400 struct frchain
*frchainP
;
1402 for (frchainP
= frchain_root
; frchainP
; frchainP
= frchainP
->frch_next
)
1406 subseg_set (frchainP
->frch_seg
, frchainP
->frch_subseg
);
1408 /* This now gets called even if we had errors. In that case,
1409 any alignment is meaningless, and, moreover, will look weird
1410 if we are generating a listing. */
1412 alignment
= SUB_SEGMENT_ALIGN (now_seg
, frchainP
);
1414 if (subseg_text_p (now_seg
))
1415 frag_align_code (alignment
, 0);
1417 frag_align (alignment
, 0, 0);
1419 /* frag_align will have left a new frag.
1420 Use this last frag for an empty ".fill".
1422 For this segment ...
1423 Create a last frag. Do not leave a "being filled in frag". */
1424 frag_wane (frag_now
);
1425 frag_now
->fr_fix
= 0;
1426 know (frag_now
->fr_next
== NULL
);
1430 /* Write the object file. */
1433 write_object_file ()
1435 #if ! defined (BFD_ASSEMBLER) || ! defined (WORKING_DOT_WORD)
1436 fragS
*fragP
; /* Track along all frags. */
1439 /* Do we really want to write it? */
1441 int n_warns
, n_errs
;
1442 n_warns
= had_warnings ();
1443 n_errs
= had_errors ();
1444 /* The -Z flag indicates that an object file should be generated,
1445 regardless of warnings and errors. */
1446 if (flag_always_generate_output
)
1448 if (n_warns
|| n_errs
)
1449 as_warn (_("%d error%s, %d warning%s, generating bad object file"),
1450 n_errs
, n_errs
== 1 ? "" : "s",
1451 n_warns
, n_warns
== 1 ? "" : "s");
1456 as_fatal (_("%d error%s, %d warning%s, no object file generated"),
1457 n_errs
, n_errs
== 1 ? "" : "s",
1458 n_warns
, n_warns
== 1 ? "" : "s");
1463 /* Under VMS we try to be compatible with VAX-11 "C". Thus, we call
1464 a routine to check for the definition of the procedure "_main",
1465 and if so -- fix it up so that it can be program entry point. */
1466 vms_check_for_main ();
1467 #endif /* OBJ_VMS */
1469 /* From now on, we don't care about sub-segments. Build one frag chain
1470 for each segment. Linked thru fr_next. */
1472 #ifdef BFD_ASSEMBLER
1473 /* Remove the sections created by gas for its own purposes. */
1478 seclist
= &stdoutput
->sections
;
1481 if (*seclist
== reg_section
|| *seclist
== expr_section
)
1483 bfd_section_list_remove (stdoutput
, seclist
);
1484 stdoutput
->section_count
--;
1487 seclist
= &(*seclist
)->next
;
1490 bfd_map_over_sections (stdoutput
, renumber_sections
, &i
);
1493 bfd_map_over_sections (stdoutput
, chain_frchains_together
, (char *) 0);
1495 remove_subsegs (frchain_root
, SEG_TEXT
, &text_frag_root
, &text_last_frag
);
1496 remove_subsegs (data0_frchainP
, SEG_DATA
, &data_frag_root
, &data_last_frag
);
1497 remove_subsegs (bss0_frchainP
, SEG_BSS
, &bss_frag_root
, &bss_last_frag
);
1500 /* We have two segments. If user gave -R flag, then we must put the
1501 data frags into the text segment. Do this before relaxing so
1502 we know to take advantage of -R and make shorter addresses. */
1503 #if !defined (OBJ_AOUT) || defined (BFD_ASSEMBLER)
1504 if (flag_readonly_data_in_text
)
1506 merge_data_into_text ();
1510 #ifdef BFD_ASSEMBLER
1515 #ifndef WORKING_DOT_WORD
1516 /* We need to reset the markers in the broken word list and
1517 associated frags between calls to relax_segment (via
1518 relax_seg). Since the broken word list is global, we do it
1519 once per round, rather than locally in relax_segment for each
1521 struct broken_word
*brokp
;
1523 for (brokp
= broken_words
;
1524 brokp
!= (struct broken_word
*) NULL
;
1525 brokp
= brokp
->next_broken_word
)
1529 if (brokp
->dispfrag
!= (fragS
*) NULL
1530 && brokp
->dispfrag
->fr_type
== rs_broken_word
)
1531 brokp
->dispfrag
->fr_subtype
= 0;
1536 bfd_map_over_sections (stdoutput
, relax_seg
, &changed
);
1541 /* Note - Most ports will use the default value of
1542 TC_FINALIZE_SYMS_BEFORE_SIZE_SEG, which 1. This will force
1543 local symbols to be resolved, removing their frag information.
1544 Some ports however, will not have finished relaxing all of
1545 their frags and will still need the local symbol frag
1546 information. These ports can set
1547 TC_FINALIZE_SYMS_BEFORE_SIZE_SEG to 0. */
1548 finalize_syms
= TC_FINALIZE_SYMS_BEFORE_SIZE_SEG
;
1550 bfd_map_over_sections (stdoutput
, size_seg
, (char *) 0);
1552 relax_and_size_all_segments ();
1553 #endif /* BFD_ASSEMBLER */
1555 /* Relaxation has completed. Freeze all syms. */
1558 #ifndef BFD_ASSEMBLER
1559 /* Crawl the symbol chain.
1561 For each symbol whose value depends on a frag, take the address of
1562 that frag and subsume it into the value of the symbol.
1563 After this, there is just one way to lookup a symbol value.
1564 Values are left in their final state for object file emission.
1565 We adjust the values of 'L' local symbols, even if we do
1566 not intend to emit them to the object file, because their values
1567 are needed for fix-ups.
1569 Unless we saw a -L flag, remove all symbols that begin with 'L'
1570 from the symbol chain. (They are still pointed to by the fixes.)
1572 Count the remaining symbols.
1573 Assign a symbol number to each symbol.
1574 Count the number of string-table chars we will emit.
1575 Put this info into the headers as appropriate. */
1576 know (zero_address_frag
.fr_address
== 0);
1577 string_byte_count
= sizeof (string_byte_count
);
1579 obj_crawl_symbol_chain (&headers
);
1581 if (string_byte_count
== sizeof (string_byte_count
))
1582 string_byte_count
= 0;
1584 H_SET_STRING_SIZE (&headers
, string_byte_count
);
1586 /* Addresses of frags now reflect addresses we use in the object file.
1587 Symbol values are correct.
1588 Scan the frags, converting any ".org"s and ".align"s to ".fill"s.
1589 Also converting any machine-dependent frags using md_convert_frag(); */
1590 subseg_change (SEG_TEXT
, 0);
1592 for (fragP
= text_frag_root
; fragP
; fragP
= fragP
->fr_next
)
1594 /* At this point we have linked all the frags into a single
1595 chain. However, cvt_frag_to_fill may call md_convert_frag
1596 which may call fix_new. We need to ensure that fix_new adds
1597 the fixup to the right section. */
1598 if (fragP
== data_frag_root
)
1599 subseg_change (SEG_DATA
, 0);
1601 cvt_frag_to_fill (&headers
, SEG_TEXT
, fragP
);
1603 /* Some assert macros don't work with # directives mixed in. */
1605 if (!(fragP
->fr_next
== NULL
1607 || fragP
->fr_next
== data_frag_root
1609 || ((fragP
->fr_next
->fr_address
- fragP
->fr_address
)
1610 == (fragP
->fr_fix
+ fragP
->fr_offset
* fragP
->fr_var
))))
1614 #endif /* ! BFD_ASSEMBLER */
1616 #ifndef WORKING_DOT_WORD
1618 struct broken_word
*lie
;
1619 struct broken_word
**prevP
;
1621 prevP
= &broken_words
;
1622 for (lie
= broken_words
; lie
; lie
= lie
->next_broken_word
)
1627 subseg_change (lie
->seg
, lie
->subseg
);
1628 exp
.X_op
= O_subtract
;
1629 exp
.X_add_symbol
= lie
->add
;
1630 exp
.X_op_symbol
= lie
->sub
;
1631 exp
.X_add_number
= lie
->addnum
;
1632 #ifdef BFD_ASSEMBLER
1633 #ifdef TC_CONS_FIX_NEW
1634 TC_CONS_FIX_NEW (lie
->frag
,
1635 lie
->word_goes_here
- lie
->frag
->fr_literal
,
1638 fix_new_exp (lie
->frag
,
1639 lie
->word_goes_here
- lie
->frag
->fr_literal
,
1640 2, &exp
, 0, BFD_RELOC_16
);
1643 #if defined(TC_SPARC) || defined(TC_A29K) || defined(NEED_FX_R_TYPE)
1644 fix_new_exp (lie
->frag
,
1645 lie
->word_goes_here
- lie
->frag
->fr_literal
,
1646 2, &exp
, 0, NO_RELOC
);
1649 fix_new_ns32k_exp (lie
->frag
,
1650 lie
->word_goes_here
- lie
->frag
->fr_literal
,
1651 2, &exp
, 0, 0, 2, 0, 0);
1653 fix_new_exp (lie
->frag
,
1654 lie
->word_goes_here
- lie
->frag
->fr_literal
,
1656 #endif /* TC_NS32K */
1657 #endif /* TC_SPARC|TC_A29K|NEED_FX_R_TYPE */
1658 #endif /* BFD_ASSEMBLER */
1659 *prevP
= lie
->next_broken_word
;
1662 prevP
= &(lie
->next_broken_word
);
1664 for (lie
= broken_words
; lie
;)
1666 struct broken_word
*untruth
;
1668 addressT table_addr
;
1669 addressT from_addr
, to_addr
;
1672 subseg_change (lie
->seg
, lie
->subseg
);
1673 fragP
= lie
->dispfrag
;
1675 /* Find out how many broken_words go here. */
1678 untruth
&& untruth
->dispfrag
== fragP
;
1679 untruth
= untruth
->next_broken_word
)
1680 if (untruth
->added
== 1)
1683 table_ptr
= lie
->dispfrag
->fr_opcode
;
1684 table_addr
= (lie
->dispfrag
->fr_address
1685 + (table_ptr
- lie
->dispfrag
->fr_literal
));
1686 /* Create the jump around the long jumps. This is a short
1687 jump from table_ptr+0 to table_ptr+n*long_jump_size. */
1688 from_addr
= table_addr
;
1689 to_addr
= table_addr
+ md_short_jump_size
+ n
* md_long_jump_size
;
1690 md_create_short_jump (table_ptr
, from_addr
, to_addr
, lie
->dispfrag
,
1692 table_ptr
+= md_short_jump_size
;
1693 table_addr
+= md_short_jump_size
;
1696 lie
&& lie
->dispfrag
== fragP
;
1697 m
++, lie
= lie
->next_broken_word
)
1699 if (lie
->added
== 2)
1701 /* Patch the jump table. */
1702 /* This is the offset from ??? to table_ptr+0. */
1703 to_addr
= table_addr
- S_GET_VALUE (lie
->sub
);
1704 #ifdef TC_CHECK_ADJUSTED_BROKEN_DOT_WORD
1705 TC_CHECK_ADJUSTED_BROKEN_DOT_WORD (to_addr
, lie
);
1707 md_number_to_chars (lie
->word_goes_here
, to_addr
, 2);
1708 for (untruth
= lie
->next_broken_word
;
1709 untruth
&& untruth
->dispfrag
== fragP
;
1710 untruth
= untruth
->next_broken_word
)
1712 if (untruth
->use_jump
== lie
)
1713 md_number_to_chars (untruth
->word_goes_here
, to_addr
, 2);
1716 /* Install the long jump. */
1717 /* This is a long jump from table_ptr+0 to the final target. */
1718 from_addr
= table_addr
;
1719 to_addr
= S_GET_VALUE (lie
->add
) + lie
->addnum
;
1720 md_create_long_jump (table_ptr
, from_addr
, to_addr
, lie
->dispfrag
,
1722 table_ptr
+= md_long_jump_size
;
1723 table_addr
+= md_long_jump_size
;
1727 #endif /* not WORKING_DOT_WORD */
1729 #ifndef BFD_ASSEMBLER
1732 char *the_object_file
;
1733 long object_file_size
;
1734 /* Scan every FixS performing fixups. We had to wait until now to
1735 do this because md_convert_frag() may have made some fixSs. */
1738 subseg_change (SEG_TEXT
, 0);
1739 trsize
= md_reloc_size
* fixup_segment (text_fix_root
, SEG_TEXT
);
1740 subseg_change (SEG_DATA
, 0);
1741 drsize
= md_reloc_size
* fixup_segment (data_fix_root
, SEG_DATA
);
1742 H_SET_RELOCATION_SIZE (&headers
, trsize
, drsize
);
1744 /* FIXME: Move this stuff into the pre-write-hook. */
1745 H_SET_MAGIC_NUMBER (&headers
, magic_number_for_object_file
);
1746 H_SET_ENTRY_POINT (&headers
, 0);
1748 obj_pre_write_hook (&headers
); /* Extra coff stuff. */
1750 object_file_size
= H_GET_FILE_SIZE (&headers
);
1751 next_object_file_charP
= the_object_file
= xmalloc (object_file_size
);
1753 output_file_create (out_file_name
);
1755 obj_header_append (&next_object_file_charP
, &headers
);
1757 know ((next_object_file_charP
- the_object_file
)
1758 == H_GET_HEADER_SIZE (&headers
));
1761 for (fragP
= text_frag_root
; fragP
; fragP
= fragP
->fr_next
)
1763 register long count
;
1764 register char *fill_literal
;
1765 register long fill_size
;
1768 know (fragP
->fr_type
== rs_fill
);
1769 append (&next_object_file_charP
, fragP
->fr_literal
,
1770 (unsigned long) fragP
->fr_fix
);
1771 fill_literal
= fragP
->fr_literal
+ fragP
->fr_fix
;
1772 fill_size
= fragP
->fr_var
;
1773 know (fragP
->fr_offset
>= 0);
1775 for (count
= fragP
->fr_offset
; count
; count
--)
1776 append (&next_object_file_charP
, fill_literal
,
1777 (unsigned long) fill_size
);
1780 know ((next_object_file_charP
- the_object_file
)
1781 == (H_GET_HEADER_SIZE (&headers
)
1782 + H_GET_TEXT_SIZE (&headers
)
1783 + H_GET_DATA_SIZE (&headers
)));
1785 /* Emit relocations. */
1786 obj_emit_relocations (&next_object_file_charP
, text_fix_root
,
1787 (relax_addressT
) 0);
1788 know ((next_object_file_charP
- the_object_file
)
1789 == (H_GET_HEADER_SIZE (&headers
)
1790 + H_GET_TEXT_SIZE (&headers
)
1791 + H_GET_DATA_SIZE (&headers
)
1792 + H_GET_TEXT_RELOCATION_SIZE (&headers
)));
1794 /* Make addresses in data relocation directives relative to beginning of
1795 first data fragment, not end of last text fragment: alignment of the
1796 start of the data segment may place a gap between the segments. */
1797 obj_emit_relocations (&next_object_file_charP
, data_fix_root
,
1798 data0_frchainP
->frch_root
->fr_address
);
1800 obj_emit_relocations (&next_object_file_charP
, data_fix_root
,
1801 text_last_frag
->fr_address
);
1802 #endif /* TC_I960 */
1804 know ((next_object_file_charP
- the_object_file
)
1805 == (H_GET_HEADER_SIZE (&headers
)
1806 + H_GET_TEXT_SIZE (&headers
)
1807 + H_GET_DATA_SIZE (&headers
)
1808 + H_GET_TEXT_RELOCATION_SIZE (&headers
)
1809 + H_GET_DATA_RELOCATION_SIZE (&headers
)));
1811 /* Emit line number entries. */
1812 OBJ_EMIT_LINENO (&next_object_file_charP
, lineno_rootP
, the_object_file
);
1813 know ((next_object_file_charP
- the_object_file
)
1814 == (H_GET_HEADER_SIZE (&headers
)
1815 + H_GET_TEXT_SIZE (&headers
)
1816 + H_GET_DATA_SIZE (&headers
)
1817 + H_GET_TEXT_RELOCATION_SIZE (&headers
)
1818 + H_GET_DATA_RELOCATION_SIZE (&headers
)
1819 + H_GET_LINENO_SIZE (&headers
)));
1822 obj_emit_symbols (&next_object_file_charP
, symbol_rootP
);
1823 know ((next_object_file_charP
- the_object_file
)
1824 == (H_GET_HEADER_SIZE (&headers
)
1825 + H_GET_TEXT_SIZE (&headers
)
1826 + H_GET_DATA_SIZE (&headers
)
1827 + H_GET_TEXT_RELOCATION_SIZE (&headers
)
1828 + H_GET_DATA_RELOCATION_SIZE (&headers
)
1829 + H_GET_LINENO_SIZE (&headers
)
1830 + H_GET_SYMBOL_TABLE_SIZE (&headers
)));
1833 if (string_byte_count
> 0)
1834 obj_emit_strings (&next_object_file_charP
);
1837 bfd_seek (stdoutput
, (file_ptr
) 0, 0);
1838 bfd_bwrite (the_object_file
, (bfd_size_type
) object_file_size
, stdoutput
);
1841 /* Write the data to the file. */
1842 output_file_append (the_object_file
, object_file_size
, out_file_name
);
1843 free (the_object_file
);
1847 /* Now do the VMS-dependent part of writing the object file. */
1848 vms_write_object_file (H_GET_TEXT_SIZE (&headers
),
1849 H_GET_DATA_SIZE (&headers
),
1850 H_GET_BSS_SIZE (&headers
),
1851 text_frag_root
, data_frag_root
);
1852 #endif /* OBJ_VMS */
1853 #else /* BFD_ASSEMBLER */
1855 /* Resolve symbol values. This needs to be done before processing
1861 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
1862 resolve_symbol_value (symp
);
1864 resolve_local_symbol_values ();
1868 #ifdef tc_frob_file_before_adjust
1869 tc_frob_file_before_adjust ();
1871 #ifdef obj_frob_file_before_adjust
1872 obj_frob_file_before_adjust ();
1875 bfd_map_over_sections (stdoutput
, adjust_reloc_syms
, (char *) 0);
1877 #ifdef tc_frob_file_before_fix
1878 tc_frob_file_before_fix ();
1880 #ifdef obj_frob_file_before_fix
1881 obj_frob_file_before_fix ();
1884 bfd_map_over_sections (stdoutput
, fix_segment
, (char *) 0);
1886 /* Set up symbol table, and write it out. */
1891 for (symp
= symbol_rootP
; symp
; symp
= symbol_next (symp
))
1896 if (symbol_mri_common_p (symp
))
1898 if (S_IS_EXTERNAL (symp
))
1899 as_bad (_("%s: global symbols not supported in common sections"),
1901 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
1905 name
= S_GET_NAME (symp
);
1909 decode_local_label_name ((char *) S_GET_NAME (symp
));
1910 /* They only differ if `name' is a fb or dollar local
1912 if (name2
!= name
&& ! S_IS_DEFINED (symp
))
1913 as_bad (_("local label `%s' is not defined"), name2
);
1916 /* Do it again, because adjust_reloc_syms might introduce
1917 more symbols. They'll probably only be section symbols,
1918 but they'll still need to have the values computed. */
1919 resolve_symbol_value (symp
);
1921 /* Skip symbols which were equated to undefined or common
1923 if (symbol_equated_reloc_p (symp
))
1925 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
1929 /* So far, common symbols have been treated like undefined symbols.
1930 Put them in the common section now. */
1931 if (S_IS_DEFINED (symp
) == 0
1932 && S_GET_VALUE (symp
) != 0)
1933 S_SET_SEGMENT (symp
, bfd_com_section_ptr
);
1935 printf ("symbol `%s'\n\t@%x: value=%d flags=%x seg=%s\n",
1936 S_GET_NAME (symp
), symp
,
1938 symbol_get_bfdsym (symp
)->flags
,
1939 segment_name (S_GET_SEGMENT (symp
)));
1942 #ifdef obj_frob_symbol
1943 obj_frob_symbol (symp
, punt
);
1945 #ifdef tc_frob_symbol
1946 if (! punt
|| symbol_used_in_reloc_p (symp
))
1947 tc_frob_symbol (symp
, punt
);
1950 /* If we don't want to keep this symbol, splice it out of
1951 the chain now. If EMIT_SECTION_SYMBOLS is 0, we never
1952 want section symbols. Otherwise, we skip local symbols
1953 and symbols that the frob_symbol macros told us to punt,
1954 but we keep such symbols if they are used in relocs. */
1955 if (symp
== abs_section_sym
1956 || (! EMIT_SECTION_SYMBOLS
1957 && symbol_section_p (symp
))
1958 /* Note that S_IS_EXTERN and S_IS_LOCAL are not always
1959 opposites. Sometimes the former checks flags and the
1960 latter examines the name... */
1961 || (!S_IS_EXTERN (symp
)
1962 && (punt
|| S_IS_LOCAL (symp
))
1963 && ! symbol_used_in_reloc_p (symp
)))
1965 symbol_remove (symp
, &symbol_rootP
, &symbol_lastP
);
1967 /* After symbol_remove, symbol_next(symp) still returns
1968 the one that came after it in the chain. So we don't
1969 need to do any extra cleanup work here. */
1973 /* Make sure we really got a value for the symbol. */
1974 if (! symbol_resolved_p (symp
))
1976 as_bad (_("can't resolve value for symbol `%s'"),
1978 symbol_mark_resolved (symp
);
1981 /* Set the value into the BFD symbol. Up til now the value
1982 has only been kept in the gas symbolS struct. */
1983 symbol_get_bfdsym (symp
)->value
= S_GET_VALUE (symp
);
1989 /* Now do any format-specific adjustments to the symbol table, such
1990 as adding file symbols. */
1991 #ifdef tc_adjust_symtab
1992 tc_adjust_symtab ();
1994 #ifdef obj_adjust_symtab
1995 obj_adjust_symtab ();
1998 /* Now that all the sizes are known, and contents correct, we can
1999 start writing to the file. */
2002 /* If *_frob_file changes the symbol value at this point, it is
2003 responsible for moving the changed value into symp->bsym->value
2004 as well. Hopefully all symbol value changing can be done in
2009 #ifdef obj_frob_file
2013 bfd_map_over_sections (stdoutput
, write_relocs
, (char *) 0);
2015 #ifdef tc_frob_file_after_relocs
2016 tc_frob_file_after_relocs ();
2018 #ifdef obj_frob_file_after_relocs
2019 obj_frob_file_after_relocs ();
2022 bfd_map_over_sections (stdoutput
, write_contents
, (char *) 0);
2023 #endif /* BFD_ASSEMBLER */
2027 #ifdef TC_GENERIC_RELAX_TABLE
2029 /* Relax a fragment by scanning TC_GENERIC_RELAX_TABLE. */
2032 relax_frag (segment
, fragP
, stretch
)
2037 const relax_typeS
*this_type
;
2038 const relax_typeS
*start_type
;
2039 relax_substateT next_state
;
2040 relax_substateT this_state
;
2046 const relax_typeS
*table
;
2048 target
= fragP
->fr_offset
;
2049 address
= fragP
->fr_address
;
2050 table
= TC_GENERIC_RELAX_TABLE
;
2051 this_state
= fragP
->fr_subtype
;
2052 start_type
= this_type
= table
+ this_state
;
2053 symbolP
= fragP
->fr_symbol
;
2059 sym_frag
= symbol_get_frag (symbolP
);
2061 #ifndef DIFF_EXPR_OK
2062 #if !defined (MANY_SEGMENTS) && !defined (BFD_ASSEMBLER)
2063 know ((S_GET_SEGMENT (symbolP
) == SEG_ABSOLUTE
)
2064 || (S_GET_SEGMENT (symbolP
) == SEG_DATA
)
2065 || (S_GET_SEGMENT (symbolP
) == SEG_BSS
)
2066 || (S_GET_SEGMENT (symbolP
) == SEG_TEXT
));
2068 know (sym_frag
!= NULL
);
2070 know (S_GET_SEGMENT (symbolP
) != absolute_section
2071 || sym_frag
== &zero_address_frag
);
2072 target
+= S_GET_VALUE (symbolP
);
2074 /* If frag has yet to be reached on this pass,
2075 assume it will move by STRETCH just as we did.
2076 If this is not so, it will be because some frag
2077 between grows, and that will force another pass. */
2080 && sym_frag
->relax_marker
!= fragP
->relax_marker
2081 && S_GET_SEGMENT (symbolP
) == segment
)
2087 aim
= target
- address
- fragP
->fr_fix
;
2088 #ifdef TC_PCREL_ADJUST
2089 /* Currently only the ns32k family needs this. */
2090 aim
+= TC_PCREL_ADJUST (fragP
);
2092 /* This machine doesn't want to use pcrel_adjust.
2093 In that case, pcrel_adjust should be zero. */
2095 assert (fragP
->fr_targ
.ns32k
.pcrel_adjust
== 0);
2098 #ifdef md_prepare_relax_scan /* formerly called M68K_AIM_KLUDGE */
2099 md_prepare_relax_scan (fragP
, address
, aim
, this_state
, this_type
);
2104 /* Look backwards. */
2105 for (next_state
= this_type
->rlx_more
; next_state
;)
2106 if (aim
>= this_type
->rlx_backward
)
2110 /* Grow to next state. */
2111 this_state
= next_state
;
2112 this_type
= table
+ this_state
;
2113 next_state
= this_type
->rlx_more
;
2118 /* Look forwards. */
2119 for (next_state
= this_type
->rlx_more
; next_state
;)
2120 if (aim
<= this_type
->rlx_forward
)
2124 /* Grow to next state. */
2125 this_state
= next_state
;
2126 this_type
= table
+ this_state
;
2127 next_state
= this_type
->rlx_more
;
2131 growth
= this_type
->rlx_length
- start_type
->rlx_length
;
2133 fragP
->fr_subtype
= this_state
;
2137 #endif /* defined (TC_GENERIC_RELAX_TABLE) */
2139 /* Relax_align. Advance location counter to next address that has 'alignment'
2140 lowest order bits all 0s, return size of adjustment made. */
2141 static relax_addressT
2142 relax_align (address
, alignment
)
2143 register relax_addressT address
; /* Address now. */
2144 register int alignment
; /* Alignment (binary). */
2146 relax_addressT mask
;
2147 relax_addressT new_address
;
2149 mask
= ~((~0) << alignment
);
2150 new_address
= (address
+ mask
) & (~mask
);
2151 #ifdef LINKER_RELAXING_SHRINKS_ONLY
2153 /* We must provide lots of padding, so the linker can discard it
2154 when needed. The linker will not add extra space, ever. */
2155 new_address
+= (1 << alignment
);
2157 return (new_address
- address
);
2160 /* Now we have a segment, not a crowd of sub-segments, we can make
2165 After this, all frags in this segment have addresses that are correct
2166 within the segment. Since segments live in different file addresses,
2167 these frag addresses may not be the same as final object-file
2171 relax_segment (segment_frag_root
, segment
)
2172 struct frag
*segment_frag_root
;
2175 register struct frag
*fragP
;
2176 register relax_addressT address
;
2179 #if !defined (MANY_SEGMENTS) && !defined (BFD_ASSEMBLER)
2180 know (segment
== SEG_DATA
|| segment
== SEG_TEXT
|| segment
== SEG_BSS
);
2182 /* In case md_estimate_size_before_relax() wants to make fixSs. */
2183 subseg_change (segment
, 0);
2185 /* For each frag in segment: count and store (a 1st guess of)
2188 for (fragP
= segment_frag_root
; fragP
; fragP
= fragP
->fr_next
)
2190 fragP
->relax_marker
= 0;
2191 fragP
->fr_address
= address
;
2192 address
+= fragP
->fr_fix
;
2194 switch (fragP
->fr_type
)
2197 address
+= fragP
->fr_offset
* fragP
->fr_var
;
2204 addressT offset
= relax_align (address
, (int) fragP
->fr_offset
);
2206 if (fragP
->fr_subtype
!= 0 && offset
> fragP
->fr_subtype
)
2209 if (offset
% fragP
->fr_var
!= 0)
2211 as_bad_where (fragP
->fr_file
, fragP
->fr_line
,
2212 _("alignment padding (%lu bytes) not a multiple of %ld"),
2213 (unsigned long) offset
, (long) fragP
->fr_var
);
2214 offset
-= (offset
% fragP
->fr_var
);
2223 /* Assume .org is nugatory. It will grow with 1st relax. */
2226 case rs_machine_dependent
:
2227 /* If fr_symbol is an expression, this call to
2228 resolve_symbol_value sets up the correct segment, which will
2229 likely be needed in md_estimate_size_before_relax. */
2230 if (fragP
->fr_symbol
)
2231 resolve_symbol_value (fragP
->fr_symbol
);
2233 address
+= md_estimate_size_before_relax (fragP
, segment
);
2236 #ifndef WORKING_DOT_WORD
2237 /* Broken words don't concern us yet. */
2238 case rs_broken_word
:
2243 /* Initial guess is always 1; doing otherwise can result in
2244 stable solutions that are larger than the minimum. */
2245 address
+= fragP
->fr_offset
= 1;
2249 address
+= eh_frame_estimate_size_before_relax (fragP
);
2253 address
+= dwarf2dbg_estimate_size_before_relax (fragP
);
2257 BAD_CASE (fragP
->fr_type
);
2264 long stretch
; /* May be any size, 0 or negative. */
2265 /* Cumulative number of addresses we have relaxed this pass.
2266 We may have relaxed more than one address. */
2267 int stretched
; /* Have we stretched on this pass? */
2268 /* This is 'cuz stretch may be zero, when, in fact some piece of code
2269 grew, and another shrank. If a branch instruction doesn't fit anymore,
2270 we could be scrod. */
2277 for (fragP
= segment_frag_root
; fragP
; fragP
= fragP
->fr_next
)
2280 addressT was_address
;
2284 fragP
->relax_marker
^= 1;
2285 was_address
= fragP
->fr_address
;
2286 address
= fragP
->fr_address
+= stretch
;
2287 symbolP
= fragP
->fr_symbol
;
2288 offset
= fragP
->fr_offset
;
2290 switch (fragP
->fr_type
)
2292 case rs_fill
: /* .fill never relaxes. */
2296 #ifndef WORKING_DOT_WORD
2297 /* JF: This is RMS's idea. I do *NOT* want to be blamed
2298 for it I do not want to write it. I do not want to have
2299 anything to do with it. This is not the proper way to
2300 implement this misfeature. */
2301 case rs_broken_word
:
2303 struct broken_word
*lie
;
2304 struct broken_word
*untruth
;
2306 /* Yes this is ugly (storing the broken_word pointer
2307 in the symbol slot). Still, this whole chunk of
2308 code is ugly, and I don't feel like doing anything
2309 about it. Think of it as stubbornness in action. */
2311 for (lie
= (struct broken_word
*) (fragP
->fr_symbol
);
2312 lie
&& lie
->dispfrag
== fragP
;
2313 lie
= lie
->next_broken_word
)
2319 offset
= (S_GET_VALUE (lie
->add
)
2321 - S_GET_VALUE (lie
->sub
));
2322 if (offset
<= -32768 || offset
>= 32767)
2324 if (flag_warn_displacement
)
2327 sprint_value (buf
, (addressT
) lie
->addnum
);
2328 as_warn_where (fragP
->fr_file
, fragP
->fr_line
,
2329 _(".word %s-%s+%s didn't fit"),
2330 S_GET_NAME (lie
->add
),
2331 S_GET_NAME (lie
->sub
),
2335 if (fragP
->fr_subtype
== 0)
2337 fragP
->fr_subtype
++;
2338 growth
+= md_short_jump_size
;
2340 for (untruth
= lie
->next_broken_word
;
2341 untruth
&& untruth
->dispfrag
== lie
->dispfrag
;
2342 untruth
= untruth
->next_broken_word
)
2343 if ((symbol_get_frag (untruth
->add
)
2344 == symbol_get_frag (lie
->add
))
2345 && (S_GET_VALUE (untruth
->add
)
2346 == S_GET_VALUE (lie
->add
)))
2349 untruth
->use_jump
= lie
;
2351 growth
+= md_long_jump_size
;
2356 } /* case rs_broken_word */
2362 addressT oldoff
, newoff
;
2364 oldoff
= relax_align (was_address
+ fragP
->fr_fix
,
2366 newoff
= relax_align (address
+ fragP
->fr_fix
,
2369 if (fragP
->fr_subtype
!= 0)
2371 if (oldoff
> fragP
->fr_subtype
)
2373 if (newoff
> fragP
->fr_subtype
)
2377 growth
= newoff
- oldoff
;
2383 addressT target
= offset
;
2388 #if !defined (MANY_SEGMENTS) && !defined (BFD_ASSEMBLER)
2389 know ((S_GET_SEGMENT (symbolP
) == SEG_ABSOLUTE
)
2390 || (S_GET_SEGMENT (symbolP
) == SEG_DATA
)
2391 || (S_GET_SEGMENT (symbolP
) == SEG_TEXT
)
2392 || S_GET_SEGMENT (symbolP
) == SEG_BSS
);
2393 know (symbolP
->sy_frag
);
2394 know (!(S_GET_SEGMENT (symbolP
) == SEG_ABSOLUTE
)
2395 || (symbolP
->sy_frag
== &zero_address_frag
));
2397 /* Convert from an actual address to an octet offset
2398 into the section. Here it is assumed that the
2399 section's VMA is zero, and can omit subtracting it
2400 from the symbol's value to get the address offset. */
2401 know (S_GET_SECTION (symbolP
)->vma
== 0);
2402 target
+= S_GET_VALUE (symbolP
) * OCTETS_PER_BYTE
;
2405 know (fragP
->fr_next
);
2406 after
= fragP
->fr_next
->fr_address
;
2407 growth
= target
- after
;
2410 /* Growth may be negative, but variable part of frag
2411 cannot have fewer than 0 chars. That is, we can't
2413 as_bad_where (fragP
->fr_file
, fragP
->fr_line
,
2414 _("attempt to .org backwards"));
2416 /* We've issued an error message. Change the
2417 frag to avoid cascading errors. */
2418 fragP
->fr_type
= rs_align
;
2419 fragP
->fr_subtype
= 0;
2420 fragP
->fr_offset
= 0;
2421 fragP
->fr_fix
= after
- address
;
2425 /* This is an absolute growth factor */
2436 amount
= S_GET_VALUE (symbolP
);
2437 if (S_GET_SEGMENT (symbolP
) != absolute_section
2438 || S_IS_COMMON (symbolP
)
2439 || ! S_IS_DEFINED (symbolP
))
2441 as_bad_where (fragP
->fr_file
, fragP
->fr_line
,
2442 _(".space specifies non-absolute value"));
2443 /* Prevent repeat of this error message. */
2444 fragP
->fr_symbol
= 0;
2446 else if (amount
< 0)
2448 as_warn_where (fragP
->fr_file
, fragP
->fr_line
,
2449 _(".space or .fill with negative value, ignored"));
2450 fragP
->fr_symbol
= 0;
2453 growth
= (was_address
+ fragP
->fr_fix
+ amount
2454 - fragP
->fr_next
->fr_address
);
2458 case rs_machine_dependent
:
2459 #ifdef md_relax_frag
2460 growth
= md_relax_frag (segment
, fragP
, stretch
);
2462 #ifdef TC_GENERIC_RELAX_TABLE
2463 /* The default way to relax a frag is to look through
2464 TC_GENERIC_RELAX_TABLE. */
2465 growth
= relax_frag (segment
, fragP
, stretch
);
2466 #endif /* TC_GENERIC_RELAX_TABLE */
2475 value
= resolve_symbol_value (fragP
->fr_symbol
);
2476 size
= sizeof_leb128 (value
, fragP
->fr_subtype
);
2477 growth
= size
- fragP
->fr_offset
;
2478 fragP
->fr_offset
= size
;
2483 growth
= eh_frame_relax_frag (fragP
);
2487 growth
= dwarf2dbg_relax_frag (fragP
);
2491 BAD_CASE (fragP
->fr_type
);
2499 } /* For each frag in the segment. */
2501 while (stretched
); /* Until nothing further to relax. */
2505 for (fragP
= segment_frag_root
; fragP
; fragP
= fragP
->fr_next
)
2506 if (fragP
->last_fr_address
!= fragP
->fr_address
)
2508 fragP
->last_fr_address
= fragP
->fr_address
;
2514 #if defined (BFD_ASSEMBLER) || (!defined (BFD) && !defined (OBJ_VMS))
2518 Go through all the fixS's in a segment and see which ones can be
2519 handled now. (These consist of fixS where we have since discovered
2520 the value of a symbol, or the address of the frag involved.)
2521 For each one, call md_apply_fix3 to put the fix into the frag data.
2523 Result is a count of how many relocation structs will be needed to
2524 handle the remaining fixS's that we couldn't completely handle here.
2525 These will be output later by emit_relocations(). */
2528 fixup_segment (fixP
, this_segment
)
2532 long seg_reloc_count
= 0;
2535 segT add_symbol_segment
= absolute_section
;
2537 if (fixP
!= NULL
&& abs_section_sym
== NULL
)
2539 #ifndef BFD_ASSEMBLER
2540 abs_section_sym
= &abs_symbol
;
2542 abs_section_sym
= section_symbol (absolute_section
);
2546 /* If the linker is doing the relaxing, we must not do any fixups.
2548 Well, strictly speaking that's not true -- we could do any that
2549 are PC-relative and don't cross regions that could change size.
2550 And for the i960 we might be able to turn callx/callj into bal
2551 anyways in cases where we know the maximum displacement. */
2552 if (linkrelax
&& TC_LINKRELAX_FIXUP (this_segment
))
2554 for (; fixP
; fixP
= fixP
->fx_next
)
2557 if (fixP
->fx_addsy
== NULL
)
2559 /* There was no symbol required by this relocation.
2560 However, BFD doesn't really handle relocations
2561 without symbols well. So fake up a local symbol in
2562 the absolute section. */
2563 fixP
->fx_addsy
= abs_section_sym
;
2565 symbol_mark_used_in_reloc (fixP
->fx_addsy
);
2566 if (fixP
->fx_subsy
!= NULL
)
2567 symbol_mark_used_in_reloc (fixP
->fx_subsy
);
2570 TC_ADJUST_RELOC_COUNT (fixP
, seg_reloc_count
);
2571 return seg_reloc_count
;
2574 for (; fixP
; fixP
= fixP
->fx_next
)
2577 fprintf (stderr
, "\nprocessing fixup:\n");
2581 fragP
= fixP
->fx_frag
;
2583 #ifdef TC_VALIDATE_FIX
2584 TC_VALIDATE_FIX (fixP
, this_segment
, skip
);
2586 add_number
= fixP
->fx_offset
;
2588 if (fixP
->fx_addsy
!= NULL
2589 && symbol_mri_common_p (fixP
->fx_addsy
))
2591 know (fixP
->fx_addsy
->sy_value
.X_op
== O_symbol
);
2592 add_number
+= S_GET_VALUE (fixP
->fx_addsy
);
2593 fixP
->fx_offset
= add_number
;
2595 = symbol_get_value_expression (fixP
->fx_addsy
)->X_add_symbol
;
2598 if (fixP
->fx_addsy
!= NULL
)
2599 add_symbol_segment
= S_GET_SEGMENT (fixP
->fx_addsy
);
2601 if (fixP
->fx_subsy
!= NULL
)
2603 segT sub_symbol_segment
;
2604 resolve_symbol_value (fixP
->fx_subsy
);
2605 sub_symbol_segment
= S_GET_SEGMENT (fixP
->fx_subsy
);
2606 if (fixP
->fx_addsy
!= NULL
2607 && sub_symbol_segment
== add_symbol_segment
2608 && !TC_FORCE_RELOCATION_SUB_SAME (fixP
, add_symbol_segment
))
2610 add_number
+= S_GET_VALUE (fixP
->fx_addsy
);
2611 add_number
-= S_GET_VALUE (fixP
->fx_subsy
);
2612 fixP
->fx_offset
= add_number
;
2613 /* If the back-end code has selected a pc-relative
2614 reloc, adjust the value to be pc-relative. */
2617 /* See the comment below about 68k weirdness. */
2621 add_number
-= MD_PCREL_FROM_SECTION (fixP
, this_segment
);
2622 fixP
->fx_addsy
= NULL
;
2623 fixP
->fx_subsy
= NULL
;
2626 else if (sub_symbol_segment
== absolute_section
2627 && !TC_FORCE_RELOCATION_SUB_ABS (fixP
))
2629 add_number
-= S_GET_VALUE (fixP
->fx_subsy
);
2630 fixP
->fx_offset
= add_number
;
2631 fixP
->fx_subsy
= NULL
;
2633 else if (sub_symbol_segment
== this_segment
2634 && !TC_FORCE_RELOCATION_SUB_LOCAL (fixP
))
2636 add_number
-= S_GET_VALUE (fixP
->fx_subsy
);
2637 fixP
->fx_offset
= (add_number
+ fixP
->fx_dot_value
2638 + fixP
->fx_frag
->fr_address
);
2640 /* Make it pc-relative. If the back-end code has not
2641 selected a pc-relative reloc, cancel the adjustment
2642 we do later on all pc-relative relocs. */
2645 /* Do this for m68k even if it's already described
2646 as pc-relative. On the m68k, an operand of
2647 "pc@(foo-.-2)" should address "foo" in a
2648 pc-relative mode. */
2652 add_number
+= MD_PCREL_FROM_SECTION (fixP
, this_segment
);
2653 fixP
->fx_subsy
= NULL
;
2656 else if (!TC_VALIDATE_FIX_SUB (fixP
))
2658 as_bad_where (fixP
->fx_file
, fixP
->fx_line
,
2659 _("can't resolve `%s' {%s section} - `%s' {%s section}"),
2660 fixP
->fx_addsy
? S_GET_NAME (fixP
->fx_addsy
) : "0",
2661 segment_name (add_symbol_segment
),
2662 S_GET_NAME (fixP
->fx_subsy
),
2663 segment_name (sub_symbol_segment
));
2669 if (add_symbol_segment
== this_segment
2670 && !TC_FORCE_RELOCATION_LOCAL (fixP
))
2672 /* This fixup was made when the symbol's segment was
2673 SEG_UNKNOWN, but it is now in the local segment.
2674 So we know how to do the address without relocation. */
2675 add_number
+= S_GET_VALUE (fixP
->fx_addsy
);
2676 fixP
->fx_offset
= add_number
;
2678 add_number
-= MD_PCREL_FROM_SECTION (fixP
, this_segment
);
2679 fixP
->fx_addsy
= NULL
;
2682 else if (add_symbol_segment
== absolute_section
2683 && !TC_FORCE_RELOCATION_ABS (fixP
))
2685 add_number
+= S_GET_VALUE (fixP
->fx_addsy
);
2686 fixP
->fx_offset
= add_number
;
2687 fixP
->fx_addsy
= NULL
;
2689 else if (add_symbol_segment
!= undefined_section
2690 #ifdef BFD_ASSEMBLER
2691 && ! bfd_is_com_section (add_symbol_segment
)
2693 && MD_APPLY_SYM_VALUE (fixP
))
2694 add_number
+= S_GET_VALUE (fixP
->fx_addsy
);
2699 add_number
-= MD_PCREL_FROM_SECTION (fixP
, this_segment
);
2700 if (!fixP
->fx_done
&& fixP
->fx_addsy
== NULL
)
2702 /* There was no symbol required by this relocation.
2703 However, BFD doesn't really handle relocations
2704 without symbols well. So fake up a local symbol in
2705 the absolute section. */
2706 fixP
->fx_addsy
= abs_section_sym
;
2711 md_apply_fix3 (fixP
, &add_number
, this_segment
);
2716 if (fixP
->fx_addsy
== NULL
)
2717 fixP
->fx_addsy
= abs_section_sym
;
2718 symbol_mark_used_in_reloc (fixP
->fx_addsy
);
2719 if (fixP
->fx_subsy
!= NULL
)
2720 symbol_mark_used_in_reloc (fixP
->fx_subsy
);
2723 if (!fixP
->fx_bit_fixP
&& !fixP
->fx_no_overflow
&& fixP
->fx_size
!= 0)
2725 if (fixP
->fx_size
< sizeof (valueT
))
2730 mask
--; /* Set all bits to one. */
2731 mask
<<= fixP
->fx_size
* 8 - (fixP
->fx_signed
? 1 : 0);
2732 if ((add_number
& mask
) != 0 && (add_number
& mask
) != mask
)
2734 char buf
[50], buf2
[50];
2735 sprint_value (buf
, fragP
->fr_address
+ fixP
->fx_where
);
2736 if (add_number
> 1000)
2737 sprint_value (buf2
, add_number
);
2739 sprintf (buf2
, "%ld", (long) add_number
);
2740 as_bad_where (fixP
->fx_file
, fixP
->fx_line
,
2741 _("value of %s too large for field of %d bytes at %s"),
2742 buf2
, fixP
->fx_size
, buf
);
2743 } /* Generic error checking. */
2745 #ifdef WARN_SIGNED_OVERFLOW_WORD
2746 /* Warn if a .word value is too large when treated as a signed
2747 number. We already know it is not too negative. This is to
2748 catch over-large switches generated by gcc on the 68k. */
2749 if (!flag_signed_overflow_ok
2750 && fixP
->fx_size
== 2
2751 && add_number
> 0x7fff)
2752 as_bad_where (fixP
->fx_file
, fixP
->fx_line
,
2753 _("signed .word overflow; switch may be too large; %ld at 0x%lx"),
2755 (long) (fragP
->fr_address
+ fixP
->fx_where
));
2757 } /* Not a bit fix. */
2759 #ifdef TC_VALIDATE_FIX
2760 skip
: ATTRIBUTE_UNUSED_LABEL
2764 fprintf (stderr
, "result:\n");
2767 } /* For each fixS in this segment. */
2769 TC_ADJUST_RELOC_COUNT (fixP
, seg_reloc_count
);
2770 return seg_reloc_count
;
2773 #endif /* defined (BFD_ASSEMBLER) || (!defined (BFD) && !defined (OBJ_VMS)) */
2776 number_to_chars_bigendian (buf
, val
, n
)
2785 buf
[n
] = val
& 0xff;
2791 number_to_chars_littleendian (buf
, val
, n
)
2800 *buf
++ = val
& 0xff;
2806 write_print_statistics (file
)
2809 fprintf (file
, "fixups: %d\n", n_fixups
);
2812 /* For debugging. */
2813 extern int indent_level
;
2820 fprintf (stderr
, "fix %lx %s:%d", (long) fixp
, fixp
->fx_file
, fixp
->fx_line
);
2822 fprintf (stderr
, " pcrel");
2823 if (fixp
->fx_pcrel_adjust
)
2824 fprintf (stderr
, " pcrel_adjust=%d", fixp
->fx_pcrel_adjust
);
2825 if (fixp
->fx_im_disp
)
2828 fprintf (stderr
, " im_disp=%d", fixp
->fx_im_disp
);
2830 fprintf (stderr
, " im_disp");
2834 fprintf (stderr
, " tcbit");
2836 fprintf (stderr
, " done");
2837 fprintf (stderr
, "\n size=%d frag=%lx where=%ld offset=%lx addnumber=%lx",
2838 fixp
->fx_size
, (long) fixp
->fx_frag
, (long) fixp
->fx_where
,
2839 (long) fixp
->fx_offset
, (long) fixp
->fx_addnumber
);
2840 #ifdef BFD_ASSEMBLER
2841 fprintf (stderr
, "\n %s (%d)", bfd_get_reloc_code_name (fixp
->fx_r_type
),
2844 #ifdef NEED_FX_R_TYPE
2845 fprintf (stderr
, " r_type=%d", fixp
->fx_r_type
);
2850 fprintf (stderr
, "\n +<");
2851 print_symbol_value_1 (stderr
, fixp
->fx_addsy
);
2852 fprintf (stderr
, ">");
2856 fprintf (stderr
, "\n -<");
2857 print_symbol_value_1 (stderr
, fixp
->fx_subsy
);
2858 fprintf (stderr
, ">");
2860 fprintf (stderr
, "\n");
2861 #ifdef TC_FIX_DATA_PRINT
2862 TC_FIX_DATA_PRINT (stderr
, fixp
);