1 /* coff object file format
2 Copyright (C) 1989, 1990, 1991, 1992, 1993, 1994
3 Free Software Foundation, Inc.
5 This file is part of GAS.
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. */
25 /* I think this is probably always correct. */
26 #ifndef KEEP_RELOC_INFO
27 #define KEEP_RELOC_INFO
30 const char *s_get_name
PARAMS ((symbolS
* s
));
31 static symbolS
*def_symbol_in_progress
;
37 unsigned long chunk_size
;
38 unsigned long element_size
;
41 unsigned long pointer
;
46 stack_init (chunk_size
, element_size
)
47 unsigned long chunk_size
;
48 unsigned long element_size
;
52 st
= (stack
*) malloc (sizeof (stack
));
55 st
->data
= malloc (chunk_size
);
62 st
->size
= chunk_size
;
63 st
->chunk_size
= chunk_size
;
64 st
->element_size
= element_size
;
69 /* Not currently used. */
80 stack_push (st
, element
)
84 if (st
->pointer
+ st
->element_size
>= st
->size
)
86 st
->size
+= st
->chunk_size
;
87 if ((st
->data
= xrealloc (st
->data
, st
->size
)) == (char *) 0)
90 memcpy (st
->data
+ st
->pointer
, element
, st
->element_size
);
91 st
->pointer
+= st
->element_size
;
92 return st
->data
+ st
->pointer
;
99 if (st
->pointer
< st
->element_size
)
104 st
->pointer
-= st
->element_size
;
105 return st
->data
+ st
->pointer
;
109 * Maintain a list of the tagnames of the structres.
112 static struct hash_control
*tag_hash
;
117 tag_hash
= hash_new ();
121 tag_insert (name
, symbolP
)
125 const char *error_string
;
127 if ((error_string
= hash_jam (tag_hash
, name
, (char *) symbolP
)))
129 as_fatal ("Inserting \"%s\" into structure table failed: %s",
138 #ifdef STRIP_UNDERSCORE
141 #endif /* STRIP_UNDERSCORE */
142 return (symbolS
*) hash_find (tag_hash
, name
);
146 tag_find_or_make (name
)
151 if ((symbolP
= tag_find (name
)) == NULL
)
153 symbolP
= symbol_new (name
, undefined_section
,
154 0, &zero_address_frag
);
156 tag_insert (S_GET_NAME (symbolP
), symbolP
);
158 symbol_table_insert (symbolP
);
169 static void SA_SET_SYM_TAGNDX
PARAMS ((symbolS
*, symbolS
*));
171 #define GET_FILENAME_STRING(X) \
172 ((char*)(&((X)->sy_symbol.ost_auxent->x_file.x_n.x_offset))[1])
176 fetch_coff_debug_section ()
178 static segT debug_section
;
182 s
= bfd_make_debug_symbol (stdoutput
, (char *) 0, 0);
184 debug_section
= s
->section
;
186 return debug_section
;
190 SA_SET_SYM_ENDNDX (sym
, val
)
194 combined_entry_type
*entry
, *p
;
196 entry
= &coffsymbol (sym
->bsym
)->native
[1];
197 p
= coffsymbol (val
->bsym
)->native
;
198 entry
->u
.auxent
.x_sym
.x_fcnary
.x_fcn
.x_endndx
.p
= p
;
203 SA_SET_SYM_TAGNDX (sym
, val
)
207 combined_entry_type
*entry
, *p
;
209 entry
= &coffsymbol (sym
->bsym
)->native
[1];
210 p
= coffsymbol (val
->bsym
)->native
;
211 entry
->u
.auxent
.x_sym
.x_tagndx
.p
= p
;
216 S_GET_DATA_TYPE (sym
)
219 return coffsymbol (sym
->bsym
)->native
->u
.syment
.n_type
;
223 S_SET_DATA_TYPE (sym
, val
)
227 coffsymbol (sym
->bsym
)->native
->u
.syment
.n_type
= val
;
232 S_GET_STORAGE_CLASS (sym
)
235 return coffsymbol (sym
->bsym
)->native
->u
.syment
.n_sclass
;
239 S_SET_STORAGE_CLASS (sym
, val
)
243 coffsymbol (sym
->bsym
)->native
->u
.syment
.n_sclass
= val
;
247 /* Merge a debug symbol containing debug information into a normal symbol. */
250 c_symbol_merge (debug
, normal
)
254 S_SET_DATA_TYPE (normal
, S_GET_DATA_TYPE (debug
));
255 S_SET_STORAGE_CLASS (normal
, S_GET_STORAGE_CLASS (debug
));
257 if (S_GET_NUMBER_AUXILIARY (debug
) > S_GET_NUMBER_AUXILIARY (normal
))
258 /* take the most we have */
259 S_SET_NUMBER_AUXILIARY (normal
, S_GET_NUMBER_AUXILIARY (debug
));
261 if (S_GET_NUMBER_AUXILIARY (debug
) > 0)
263 /* Move all the auxiliary information. */
264 /* @@ How many fields do we want to preserve? Would it make more
265 sense to pick and choose those we want to copy? Should look
266 into this further.... [raeburn:19920512.2209EST] */
268 linenos
= coffsymbol (normal
->bsym
)->lineno
;
269 memcpy ((char *) &coffsymbol (normal
->bsym
)->native
,
270 (char *) &coffsymbol (debug
->bsym
)->native
,
271 S_GET_NUMBER_AUXILIARY(debug
) * AUXESZ
);
272 coffsymbol (normal
->bsym
)->lineno
= linenos
;
275 /* Move the debug flags. */
276 SF_SET_DEBUG_FIELD (normal
, SF_GET_DEBUG_FIELD (debug
));
279 static symbolS
*previous_file_symbol
;
281 c_dot_file_symbol (filename
)
286 symbolP
= symbol_new (filename
, bfd_abs_section_ptr
, 0, &zero_address_frag
);
288 S_SET_STORAGE_CLASS (symbolP
, C_FILE
);
289 S_SET_NUMBER_AUXILIARY (symbolP
, 1);
291 symbolP
->bsym
->flags
= BSF_DEBUGGING
;
298 listing_source_file (filename
);
303 S_SET_VALUE (symbolP
, (long) previous_file_symbol
);
305 previous_file_symbol
= symbolP
;
307 /* Make sure that the symbol is first on the symbol chain */
308 if (symbol_rootP
!= symbolP
)
310 if (symbolP
== symbol_lastP
)
312 symbol_lastP
= symbol_lastP
->sy_previous
;
313 } /* if it was the last thing on the list */
315 symbol_remove (symbolP
, &symbol_rootP
, &symbol_lastP
);
316 symbol_insert (symbolP
, symbol_rootP
, &symbol_rootP
, &symbol_lastP
);
317 symbol_rootP
= symbolP
;
318 } /* if not first on the list */
322 * Build a 'section static' symbol.
326 c_section_symbol (name
, value
, length
, nreloc
, nlnno
)
330 unsigned short nreloc
;
331 unsigned short nlnno
;
335 symbolP
= symbol_new (name
,
344 S_SET_STORAGE_CLASS (symbolP
, C_STAT
);
345 S_SET_NUMBER_AUXILIARY (symbolP
, 1);
347 SA_SET_SCN_SCNLEN (symbolP
, length
);
348 SA_SET_SCN_NRELOC (symbolP
, nreloc
);
349 SA_SET_SCN_NLINNO (symbolP
, nlnno
);
351 SF_SET_STATICS (symbolP
);
353 return (char *) symbolP
;
356 /* Line number handling */
359 struct line_no
*next
;
366 /* Symbol of last function, which we should hang line#s off of. */
367 static symbolS
*line_fsym
;
369 #define in_function() (line_fsym != 0)
370 #define clear_function() (line_fsym = 0)
371 #define set_function(F) (line_fsym = (F), coff_add_linesym (F))
375 obj_symbol_new_hook (symbolP
)
378 char underscore
= 0; /* Symbol has leading _ */
381 long sz
= (OBJ_COFF_MAX_AUXENTRIES
+ 1) * sizeof (combined_entry_type
);
382 char *s
= (char *) bfd_alloc_by_size_t (stdoutput
, sz
);
384 coffsymbol (symbolP
->bsym
)->native
= (combined_entry_type
*) s
;
386 S_SET_DATA_TYPE (symbolP
, T_NULL
);
387 S_SET_STORAGE_CLASS (symbolP
, 0);
388 S_SET_NUMBER_AUXILIARY (symbolP
, 0);
390 if (S_IS_STRING (symbolP
))
391 SF_SET_STRING (symbolP
);
392 if (!underscore
&& S_IS_LOCAL (symbolP
))
393 SF_SET_LOCAL (symbolP
);
398 * Handle .ln directives.
401 static symbolS
*current_lineno_sym
;
402 static struct line_no
*line_nos
;
403 /* @@ Blindly assume all .ln directives will be in the .text section... */
404 static int n_line_nos
;
407 add_lineno (frag
, offset
, num
)
412 struct line_no
*new_line
= (struct line_no
*) bfd_alloc_by_size_t (stdoutput
,
413 sizeof (struct line_no
));
414 if (!current_lineno_sym
)
418 new_line
->next
= line_nos
;
419 new_line
->frag
= frag
;
420 new_line
->l
.line_number
= num
;
421 new_line
->l
.u
.offset
= offset
;
427 coff_add_linesym (sym
)
432 coffsymbol (current_lineno_sym
->bsym
)->lineno
= (alent
*) line_nos
;
436 current_lineno_sym
= sym
;
440 obj_coff_ln (appline
)
445 if (! appline
&& def_symbol_in_progress
!= NULL
)
447 as_warn (".ln pseudo-op inside .def/.endef: ignored.");
448 demand_empty_rest_of_line ();
452 l
= get_absolute_expression ();
455 add_lineno (frag_now
, frag_now_fix (), l
);
465 l
+= coff_line_base
- 1;
466 listing_source_line (l
);
471 demand_empty_rest_of_line ();
477 * Handle .def directives.
479 * One might ask : why can't we symbol_new if the symbol does not
480 * already exist and fill it with debug information. Because of
481 * the C_EFCN special symbol. It would clobber the value of the
482 * function symbol before we have a chance to notice that it is
483 * a C_EFCN. And a second reason is that the code is more clear this
484 * way. (at least I think it is :-).
488 #define SKIP_SEMI_COLON() while (*input_line_pointer++ != ';')
489 #define SKIP_WHITESPACES() while (*input_line_pointer == ' ' || \
490 *input_line_pointer == '\t') \
491 input_line_pointer++;
497 char name_end
; /* Char after the end of name */
498 char *symbol_name
; /* Name of the debug symbol */
499 char *symbol_name_copy
; /* Temporary copy of the name */
500 unsigned int symbol_name_length
;
502 if (def_symbol_in_progress
!= NULL
)
504 as_warn (".def pseudo-op used inside of .def/.endef: ignored.");
505 demand_empty_rest_of_line ();
507 } /* if not inside .def/.endef */
511 symbol_name
= input_line_pointer
;
512 #ifdef STRIP_UNDERSCORE
513 if (symbol_name
[0] == '_' && symbol_name
[1] != 0)
515 #endif /* STRIP_UNDERSCORE */
517 name_end
= get_symbol_end ();
518 symbol_name_length
= strlen (symbol_name
);
519 symbol_name_copy
= xmalloc (symbol_name_length
+ 1);
520 strcpy (symbol_name_copy
, symbol_name
);
522 /* Initialize the new symbol */
523 def_symbol_in_progress
= symbol_make (symbol_name_copy
);
524 def_symbol_in_progress
->sy_frag
= &zero_address_frag
;
525 S_SET_VALUE (def_symbol_in_progress
, 0);
527 if (S_IS_STRING (def_symbol_in_progress
))
528 SF_SET_STRING (def_symbol_in_progress
);
530 *input_line_pointer
= name_end
;
532 demand_empty_rest_of_line ();
535 unsigned int dim_index
;
538 obj_coff_endef (ignore
)
542 /* DIM BUG FIX sac@cygnus.com */
544 if (def_symbol_in_progress
== NULL
)
546 as_warn (".endef pseudo-op used outside of .def/.endef: ignored.");
547 demand_empty_rest_of_line ();
549 } /* if not inside .def/.endef */
551 /* Set the section number according to storage class. */
552 switch (S_GET_STORAGE_CLASS (def_symbol_in_progress
))
557 SF_SET_TAG (def_symbol_in_progress
);
558 /* intentional fallthrough */
561 SF_SET_DEBUG (def_symbol_in_progress
);
562 S_SET_SEGMENT (def_symbol_in_progress
, fetch_coff_debug_section ());
566 SF_SET_LOCAL (def_symbol_in_progress
); /* Do not emit this symbol. */
567 /* intentional fallthrough */
569 SF_SET_PROCESS (def_symbol_in_progress
); /* Will need processing before writing */
570 /* intentional fallthrough */
574 S_SET_SEGMENT (def_symbol_in_progress
, text_section
);
576 name
= bfd_asymbol_name (def_symbol_in_progress
->bsym
);
577 if (name
[1] == 'b' && name
[2] == 'f')
579 if (! in_function ())
580 as_warn ("`%s' symbol without preceding function", name
);
581 /* SA_SET_SYM_LNNO (def_symbol_in_progress, 12345);*/
582 /* Will need relocating */
583 SF_SET_PROCESS (def_symbol_in_progress
);
591 #endif /* C_AUTOARG */
601 SF_SET_DEBUG (def_symbol_in_progress
);
602 S_SET_SEGMENT (def_symbol_in_progress
, absolute_section
);
608 /* Valid but set somewhere else (s_comm, s_lcomm, colon) */
614 as_warn ("unexpected storage class %d",
615 S_GET_STORAGE_CLASS (def_symbol_in_progress
));
617 } /* switch on storage class */
619 /* Now that we have built a debug symbol, try to find if we should
620 merge with an existing symbol or not. If a symbol is C_EFCN or
621 SEG_ABSOLUTE or untagged SEG_DEBUG it never merges. */
623 /* Two cases for functions. Either debug followed by definition or
624 definition followed by debug. For definition first, we will
625 merge the debug symbol into the definition. For debug first, the
626 lineno entry MUST point to the definition function or else it
627 will point off into space when obj_crawl_symbol_chain() merges
628 the debug symbol into the real symbol. Therefor, let's presume
629 the debug symbol is a real function reference. */
631 /* FIXME-SOON If for some reason the definition label/symbol is
632 never seen, this will probably leave an undefined symbol at link
635 if (S_GET_STORAGE_CLASS (def_symbol_in_progress
) == C_EFCN
636 || (!strcmp (bfd_get_section_name (stdoutput
,
637 S_GET_SEGMENT (def_symbol_in_progress
)),
639 && !SF_GET_TAG (def_symbol_in_progress
))
640 || S_GET_SEGMENT (def_symbol_in_progress
) == absolute_section
641 || (symbolP
= symbol_find_base (S_GET_NAME (def_symbol_in_progress
), DO_NOT_STRIP
)) == NULL
)
643 if (def_symbol_in_progress
!= symbol_lastP
)
644 symbol_append (def_symbol_in_progress
, symbol_lastP
, &symbol_rootP
,
649 /* This symbol already exists, merge the newly created symbol
650 into the old one. This is not mandatory. The linker can
651 handle duplicate symbols correctly. But I guess that it save
652 a *lot* of space if the assembly file defines a lot of
655 /* The debug entry (def_symbol_in_progress) is merged into the
656 previous definition. */
658 c_symbol_merge (def_symbol_in_progress
, symbolP
);
659 /* FIXME-SOON Should *def_symbol_in_progress be free'd? xoxorich. */
660 def_symbol_in_progress
= symbolP
;
662 if (SF_GET_FUNCTION (def_symbol_in_progress
)
663 || SF_GET_TAG (def_symbol_in_progress
))
665 /* For functions, and tags, the symbol *must* be where the
666 debug symbol appears. Move the existing symbol to the
668 /* If it already is at the end of the symbol list, do nothing */
669 if (def_symbol_in_progress
!= symbol_lastP
)
671 symbol_remove (def_symbol_in_progress
, &symbol_rootP
, &symbol_lastP
);
672 symbol_append (def_symbol_in_progress
, symbol_lastP
, &symbol_rootP
, &symbol_lastP
);
677 if (SF_GET_TAG (def_symbol_in_progress
)
678 && symbol_find_base (S_GET_NAME (def_symbol_in_progress
), DO_NOT_STRIP
) == NULL
)
680 tag_insert (S_GET_NAME (def_symbol_in_progress
), def_symbol_in_progress
);
683 if (SF_GET_FUNCTION (def_symbol_in_progress
))
685 know (sizeof (def_symbol_in_progress
) <= sizeof (long));
686 set_function (def_symbol_in_progress
);
687 SF_SET_PROCESS (def_symbol_in_progress
);
691 /* That is, if this is the first time we've seen the
693 symbol_table_insert (def_symbol_in_progress
);
694 } /* definition follows debug */
695 } /* Create the line number entry pointing to the function being defined */
697 def_symbol_in_progress
= NULL
;
698 demand_empty_rest_of_line ();
702 obj_coff_dim (ignore
)
707 if (def_symbol_in_progress
== NULL
)
709 as_warn (".dim pseudo-op used outside of .def/.endef: ignored.");
710 demand_empty_rest_of_line ();
712 } /* if not inside .def/.endef */
714 S_SET_NUMBER_AUXILIARY (def_symbol_in_progress
, 1);
716 for (dim_index
= 0; dim_index
< DIMNUM
; dim_index
++)
719 SA_SET_SYM_DIMEN (def_symbol_in_progress
, dim_index
,
720 get_absolute_expression ());
722 switch (*input_line_pointer
)
725 input_line_pointer
++;
729 as_warn ("badly formed .dim directive ignored");
730 /* intentional fallthrough */
738 demand_empty_rest_of_line ();
742 obj_coff_line (ignore
)
747 if (def_symbol_in_progress
== NULL
)
749 /* Probably stabs-style line? */
754 this_base
= get_absolute_expression ();
755 if (!strcmp (".bf", S_GET_NAME (def_symbol_in_progress
)))
756 coff_line_base
= this_base
;
758 S_SET_NUMBER_AUXILIARY (def_symbol_in_progress
, 1);
759 SA_SET_SYM_LNNO (def_symbol_in_progress
, coff_line_base
);
761 demand_empty_rest_of_line ();
765 obj_coff_size (ignore
)
768 if (def_symbol_in_progress
== NULL
)
770 as_warn (".size pseudo-op used outside of .def/.endef ignored.");
771 demand_empty_rest_of_line ();
773 } /* if not inside .def/.endef */
775 S_SET_NUMBER_AUXILIARY (def_symbol_in_progress
, 1);
776 SA_SET_SYM_SIZE (def_symbol_in_progress
, get_absolute_expression ());
777 demand_empty_rest_of_line ();
781 obj_coff_scl (ignore
)
784 if (def_symbol_in_progress
== NULL
)
786 as_warn (".scl pseudo-op used outside of .def/.endef ignored.");
787 demand_empty_rest_of_line ();
789 } /* if not inside .def/.endef */
791 S_SET_STORAGE_CLASS (def_symbol_in_progress
, get_absolute_expression ());
792 demand_empty_rest_of_line ();
796 obj_coff_tag (ignore
)
802 if (def_symbol_in_progress
== NULL
)
804 as_warn (".tag pseudo-op used outside of .def/.endef ignored.");
805 demand_empty_rest_of_line ();
809 S_SET_NUMBER_AUXILIARY (def_symbol_in_progress
, 1);
810 symbol_name
= input_line_pointer
;
811 name_end
= get_symbol_end ();
813 /* Assume that the symbol referred to by .tag is always defined.
814 This was a bad assumption. I've added find_or_make. xoxorich. */
815 SA_SET_SYM_TAGNDX (def_symbol_in_progress
,
816 tag_find_or_make (symbol_name
));
817 if (SA_GET_SYM_TAGNDX (def_symbol_in_progress
) == 0L)
819 as_warn ("tag not found for .tag %s", symbol_name
);
822 SF_SET_TAGGED (def_symbol_in_progress
);
823 *input_line_pointer
= name_end
;
825 demand_empty_rest_of_line ();
829 obj_coff_type (ignore
)
832 if (def_symbol_in_progress
== NULL
)
834 as_warn (".type pseudo-op used outside of .def/.endef ignored.");
835 demand_empty_rest_of_line ();
837 } /* if not inside .def/.endef */
839 S_SET_DATA_TYPE (def_symbol_in_progress
, get_absolute_expression ());
841 if (ISFCN (S_GET_DATA_TYPE (def_symbol_in_progress
)) &&
842 S_GET_STORAGE_CLASS (def_symbol_in_progress
) != C_TPDEF
)
844 SF_SET_FUNCTION (def_symbol_in_progress
);
845 } /* is a function */
847 demand_empty_rest_of_line ();
851 obj_coff_val (ignore
)
854 if (def_symbol_in_progress
== NULL
)
856 as_warn (".val pseudo-op used outside of .def/.endef ignored.");
857 demand_empty_rest_of_line ();
859 } /* if not inside .def/.endef */
861 if (is_name_beginner (*input_line_pointer
))
863 char *symbol_name
= input_line_pointer
;
864 char name_end
= get_symbol_end ();
866 if (!strcmp (symbol_name
, "."))
868 def_symbol_in_progress
->sy_frag
= frag_now
;
869 S_SET_VALUE (def_symbol_in_progress
, (valueT
) frag_now_fix ());
870 /* If the .val is != from the .def (e.g. statics) */
872 else if (strcmp (S_GET_NAME (def_symbol_in_progress
), symbol_name
))
874 def_symbol_in_progress
->sy_value
.X_op
= O_symbol
;
875 def_symbol_in_progress
->sy_value
.X_add_symbol
=
876 symbol_find_or_make (symbol_name
);
877 def_symbol_in_progress
->sy_value
.X_op_symbol
= NULL
;
878 def_symbol_in_progress
->sy_value
.X_add_number
= 0;
880 /* If the segment is undefined when the forward reference is
881 resolved, then copy the segment id from the forward
883 SF_SET_GET_SEGMENT (def_symbol_in_progress
);
885 /* Otherwise, it is the name of a non debug symbol and its value will be calculated later. */
886 *input_line_pointer
= name_end
;
890 S_SET_VALUE (def_symbol_in_progress
, get_absolute_expression ());
891 } /* if symbol based */
893 demand_empty_rest_of_line ();
897 obj_read_begin_hook ()
899 /* These had better be the same. Usually 18 bytes. */
901 know (sizeof (SYMENT
) == sizeof (AUXENT
));
902 know (SYMESZ
== AUXESZ
);
908 symbolS
*coff_last_function
;
911 coff_frob_symbol (symp
, punt
)
915 static symbolS
*last_tagP
;
916 static stack
*block_stack
;
917 static symbolS
*set_end
;
919 if (symp
== &abs_symbol
)
925 if (current_lineno_sym
)
926 coff_add_linesym ((symbolS
*) 0);
929 block_stack
= stack_init (512, sizeof (symbolS
*));
931 if (!S_IS_DEFINED (symp
) && S_GET_STORAGE_CLASS (symp
) != C_STAT
)
932 S_SET_STORAGE_CLASS (symp
, C_EXT
);
934 if (!SF_GET_DEBUG (symp
))
937 if (!SF_GET_LOCAL (symp
)
938 && (real
= symbol_find_base (S_GET_NAME (symp
), DO_NOT_STRIP
))
941 c_symbol_merge (symp
, real
);
944 if (!S_IS_DEFINED (symp
) && !SF_GET_LOCAL (symp
))
946 assert (S_GET_VALUE (symp
) == 0);
947 S_SET_EXTERNAL (symp
);
949 else if (S_GET_STORAGE_CLASS (symp
) == C_NULL
)
951 if (S_GET_SEGMENT (symp
) == text_section
952 && symp
!= seg_info (text_section
)->sym
)
953 S_SET_STORAGE_CLASS (symp
, C_LABEL
);
955 S_SET_STORAGE_CLASS (symp
, C_STAT
);
957 if (SF_GET_PROCESS (symp
))
959 if (S_GET_STORAGE_CLASS (symp
) == C_BLOCK
)
961 if (!strcmp (S_GET_NAME (symp
), ".bb"))
962 stack_push (block_stack
, (char *) &symp
);
966 begin
= *(symbolS
**) stack_pop (block_stack
);
968 as_warn ("mismatched .eb");
973 if (coff_last_function
== 0 && SF_GET_FUNCTION (symp
))
975 union internal_auxent
*auxp
;
976 coff_last_function
= symp
;
977 if (S_GET_NUMBER_AUXILIARY (symp
) < 1)
978 S_SET_NUMBER_AUXILIARY (symp
, 1);
979 auxp
= &coffsymbol (symp
->bsym
)->native
[1].u
.auxent
;
980 memset (auxp
->x_sym
.x_fcnary
.x_ary
.x_dimen
, 0,
981 sizeof (auxp
->x_sym
.x_fcnary
.x_ary
.x_dimen
));
983 if (S_GET_STORAGE_CLASS (symp
) == C_EFCN
)
985 if (coff_last_function
== 0)
986 as_fatal ("C_EFCN symbol out of scope");
987 SA_SET_SYM_FSIZE (coff_last_function
,
988 (long) (S_GET_VALUE (symp
)
989 - S_GET_VALUE (coff_last_function
)));
990 set_end
= coff_last_function
;
991 coff_last_function
= 0;
994 else if (SF_GET_TAG (symp
))
996 else if (S_GET_STORAGE_CLASS (symp
) == C_EOS
)
998 else if (S_GET_STORAGE_CLASS (symp
) == C_FILE
)
1000 if (S_GET_VALUE (symp
))
1002 S_SET_VALUE ((symbolS
*) S_GET_VALUE (symp
), 0xdeadbeef);
1003 S_SET_VALUE (symp
, 0);
1006 if (S_IS_EXTERNAL (symp
))
1007 S_SET_STORAGE_CLASS (symp
, C_EXT
);
1008 else if (SF_GET_LOCAL (symp
))
1013 if (set_end
!= (symbolS
*) NULL
1016 SA_SET_SYM_ENDNDX (set_end
, symp
);
1020 if (coffsymbol (symp
->bsym
)->lineno
)
1023 struct line_no
*lptr
;
1026 lptr
= (struct line_no
*) coffsymbol (symp
->bsym
)->lineno
;
1027 for (i
= 0; lptr
; lptr
= lptr
->next
)
1029 lptr
= (struct line_no
*) coffsymbol (symp
->bsym
)->lineno
;
1031 /* We need i entries for line numbers, plus 1 for the first
1032 entry which BFD will override, plus 1 for the last zero
1033 entry (a marker for BFD). */
1034 l
= (alent
*) bfd_alloc_by_size_t (stdoutput
, (i
+ 2) * sizeof (alent
));
1035 coffsymbol (symp
->bsym
)->lineno
= l
;
1036 l
[i
+ 1].line_number
= 0;
1037 l
[i
+ 1].u
.sym
= NULL
;
1041 lptr
->l
.u
.offset
+= lptr
->frag
->fr_address
;
1049 coff_adjust_section_syms (abfd
, sec
, x
)
1055 segment_info_type
*seginfo
= seg_info (sec
);
1056 int nlnno
, nrelocs
= 0;
1058 /* RS/6000 gas creates a .debug section manually in ppc_frob_file in
1059 tc-ppc.c. Do not get confused by it. */
1060 if (seginfo
== NULL
)
1063 if (!strcmp (sec
->name
, ".text"))
1068 /* @@ Hope that none of the fixups expand to more than one reloc
1070 fixS
*fixp
= seginfo
->fix_root
;
1073 fixp
= fixp
->fx_next
;
1077 if (bfd_get_section_size_before_reloc (sec
) == 0
1078 && nrelocs
== 0 && nlnno
== 0)
1080 secsym
= section_symbol (sec
);
1081 SA_SET_SCN_NRELOC (secsym
, nrelocs
);
1082 SA_SET_SCN_NLINNO (secsym
, nlnno
);
1088 bfd_map_over_sections (stdoutput
, coff_adjust_section_syms
, (char*) 0);
1092 * implement the .section pseudo op:
1093 * .section name {, "flags"}
1095 * | +--- optional flags: 'b' for bss
1097 * +-- section name 'l' for lib
1101 * 'd' (apparently m88k for data)
1103 * But if the argument is not a quoted string, treat it as a
1104 * subsegment number.
1108 obj_coff_section (ignore
)
1111 /* Strip out the section name */
1119 section_name
= input_line_pointer
;
1120 c
= get_symbol_end ();
1122 name
= xmalloc (input_line_pointer
- section_name
+ 1);
1123 strcpy (name
, section_name
);
1125 *input_line_pointer
= c
;
1130 flags
= SEC_NO_FLAGS
;
1132 if (*input_line_pointer
== ',')
1134 ++input_line_pointer
;
1136 if (*input_line_pointer
!= '"')
1137 exp
= get_absolute_expression ();
1140 ++input_line_pointer
;
1141 while (*input_line_pointer
!= '"'
1142 && ! is_end_of_line
[(unsigned char) *input_line_pointer
])
1144 switch (*input_line_pointer
)
1146 case 'b': flags
|= SEC_ALLOC
; flags
&=~ SEC_LOAD
; break;
1147 case 'n': flags
&=~ SEC_LOAD
; break;
1149 case 'w': flags
&=~ SEC_READONLY
; break;
1150 case 'x': flags
|= SEC_CODE
; break;
1152 case 'i': /* STYP_INFO */
1153 case 'l': /* STYP_LIB */
1154 case 'o': /* STYP_OVER */
1155 as_warn ("unsupported section attribute '%c'",
1156 *input_line_pointer
);
1160 as_warn("unknown section attribute '%c'",
1161 *input_line_pointer
);
1164 ++input_line_pointer
;
1166 if (*input_line_pointer
== '"')
1167 ++input_line_pointer
;
1171 sec
= subseg_new (name
, (subsegT
) exp
);
1173 if (flags
!= SEC_NO_FLAGS
)
1175 if (! bfd_set_section_flags (stdoutput
, sec
, flags
))
1176 as_warn ("error setting flags for \"%s\": %s",
1177 bfd_section_name (stdoutput
, sec
),
1178 bfd_errmsg (bfd_get_error ()));
1183 coff_adjust_symtab ()
1185 if (symbol_rootP
== NULL
1186 || S_GET_STORAGE_CLASS (symbol_rootP
) != C_FILE
)
1188 assert (previous_file_symbol
== 0);
1189 c_dot_file_symbol ("fake");
1194 coff_frob_section (sec
)
1200 bfd_vma size
, n_entries
, mask
;
1202 /* The COFF back end in BFD requires that all section sizes be
1203 rounded up to multiples of the corresponding section alignments.
1204 Seems kinda silly to me, but that's the way it is. */
1205 size
= bfd_get_section_size_before_reloc (sec
);
1206 mask
= ((bfd_vma
) 1 << (bfd_vma
) sec
->alignment_power
) - 1;
1209 size
= (size
+ mask
) & ~mask
;
1210 bfd_set_section_size (stdoutput
, sec
, size
);
1213 /* If the section size is non-zero, the section symbol needs an aux
1214 entry associated with it, indicating the size. We don't know
1215 all the values yet; coff_frob_symbol will fill them in later. */
1218 symbolS
*secsym
= section_symbol (sec
);
1220 S_SET_STORAGE_CLASS (secsym
, C_STAT
);
1221 S_SET_NUMBER_AUXILIARY (secsym
, 1);
1222 SF_SET_STATICS (secsym
);
1223 SA_SET_SCN_SCNLEN (secsym
, size
);
1226 /* @@ these should be in a "stabs.h" file, or maybe as.h */
1227 #ifndef STAB_SECTION_NAME
1228 #define STAB_SECTION_NAME ".stab"
1230 #ifndef STAB_STRING_SECTION_NAME
1231 #define STAB_STRING_SECTION_NAME ".stabstr"
1233 if (strcmp (STAB_STRING_SECTION_NAME
, sec
->name
))
1237 sec
= subseg_get (STAB_SECTION_NAME
, 0);
1238 /* size is already rounded up, since other section will be listed first */
1239 size
= bfd_get_section_size_before_reloc (strsec
);
1241 n_entries
= bfd_get_section_size_before_reloc (sec
) / 12 - 1;
1243 /* Find first non-empty frag. It should be large enough. */
1244 fragp
= seg_info (sec
)->frchainP
->frch_root
;
1245 while (fragp
&& fragp
->fr_fix
== 0)
1246 fragp
= fragp
->fr_next
;
1247 assert (fragp
!= 0 && fragp
->fr_fix
>= 12);
1249 /* Store the values. */
1250 p
= fragp
->fr_literal
;
1251 bfd_h_put_16 (stdoutput
, n_entries
, (bfd_byte
*) p
+ 6);
1252 bfd_h_put_32 (stdoutput
, size
, (bfd_byte
*) p
+ 8);
1256 obj_coff_init_stab_section (seg
)
1262 unsigned int stroff
;
1264 /* Make space for this first symbol. */
1268 as_where (&file
, (unsigned int *) NULL
);
1269 stabstr_name
= (char *) alloca (strlen (seg
->name
) + 4);
1270 strcpy (stabstr_name
, seg
->name
);
1271 strcat (stabstr_name
, "str");
1272 stroff
= get_stab_string_offset (file
, stabstr_name
);
1274 md_number_to_chars (p
, stroff
, 4);
1283 return ((s
== NULL
) ? "(NULL)" : S_GET_NAME (s
));
1291 for (symbolP
= symbol_rootP
; symbolP
; symbolP
= symbol_next (symbolP
))
1293 printf("0x%lx: \"%s\" type = %ld, class = %d, segment = %d\n",
1294 (unsigned long) symbolP
,
1295 S_GET_NAME(symbolP
),
1296 (long) S_GET_DATA_TYPE(symbolP
),
1297 S_GET_STORAGE_CLASS(symbolP
),
1298 (int) S_GET_SEGMENT(symbolP
));
1304 #else /* not BFD_ASSEMBLER */
1307 /* This is needed because we include internal bfd things. */
1311 #include "libcoff.h"
1313 /* The NOP_OPCODE is for the alignment fill value. Fill with nop so
1314 that we can stick sections together without causing trouble. */
1316 #define NOP_OPCODE 0x00
1319 /* The zeroes if symbol name is longer than 8 chars */
1320 #define S_SET_ZEROES(s,v) ((s)->sy_symbol.ost_entry.n_zeroes = (v))
1322 #define MIN(a,b) ((a) < (b)? (a) : (b))
1323 /* This vector is used to turn an internal segment into a section #
1324 suitable for insertion into a coff symbol table
1327 const short seg_N_TYPE
[] =
1328 { /* in: segT out: N_TYPE bits */
1340 C_UNDEF_SECTION
, /* SEG_UNKNOWN */
1341 C_UNDEF_SECTION
, /* SEG_GOOF */
1342 C_UNDEF_SECTION
, /* SEG_EXPR */
1343 C_DEBUG_SECTION
, /* SEG_DEBUG */
1344 C_NTV_SECTION
, /* SEG_NTV */
1345 C_PTV_SECTION
, /* SEG_PTV */
1346 C_REGISTER_SECTION
, /* SEG_REGISTER */
1349 int function_lineoff
= -1; /* Offset in line#s where the last function
1350 started (the odd entry for line #0) */
1352 static symbolS
*last_line_symbol
;
1354 /* Add 4 to the real value to get the index and compensate the
1355 negatives. This vector is used by S_GET_SEGMENT to turn a coff
1356 section number into a segment number
1358 static symbolS
*previous_file_symbol
;
1359 void c_symbol_merge ();
1360 static int line_base
;
1362 symbolS
*c_section_symbol ();
1365 static void fixup_segment
PARAMS ((segment_info_type
*segP
,
1366 segT this_segment_type
));
1369 static void fixup_mdeps
PARAMS ((fragS
*,
1374 static void fill_section
PARAMS ((bfd
* abfd
,
1379 static int c_line_new
PARAMS ((symbolS
* symbol
, long paddr
,
1384 static void w_symbols
PARAMS ((bfd
* abfd
, char *where
,
1385 symbolS
* symbol_rootP
));
1387 static void adjust_stab_section
PARAMS ((bfd
*abfd
, segT seg
));
1389 static void obj_coff_lcomm
PARAMS ((int));
1390 static void obj_coff_text
PARAMS ((int));
1391 static void obj_coff_data
PARAMS ((int));
1392 static void obj_coff_bss
PARAMS ((int));
1393 static void obj_coff_ident
PARAMS ((int));
1394 void obj_coff_section
PARAMS ((int));
1398 We allow more than just the standard 3 sections, infact, we allow
1399 10 sections, (though the usual three have to be there).
1401 This structure performs the mappings for us:
1412 static const seg_info_type seg_info_off_by_4
[N_SEG
] =
1443 #define SEG_INFO_FROM_SECTION_NUMBER(x) (seg_info_off_by_4[(x)+4])
1445 static relax_addressT
1446 relax_align (address
, alignment
)
1447 relax_addressT address
;
1450 relax_addressT mask
;
1451 relax_addressT new_address
;
1453 mask
= ~((~0) << alignment
);
1454 new_address
= (address
+ mask
) & (~mask
);
1455 return (new_address
- address
);
1463 return SEG_INFO_FROM_SECTION_NUMBER (x
->sy_symbol
.ost_entry
.n_scnum
).seg_t
;
1468 /* calculate the size of the frag chain and fill in the section header
1469 to contain all of it, also fill in the addr of the sections */
1471 size_section (abfd
, idx
)
1476 unsigned int size
= 0;
1477 fragS
*frag
= segment_info
[idx
].frchainP
->frch_root
;
1480 size
= frag
->fr_address
;
1481 if (frag
->fr_address
!= size
)
1483 fprintf (stderr
, "Out of step\n");
1484 size
= frag
->fr_address
;
1487 switch (frag
->fr_type
)
1489 #ifdef TC_COFF_SIZEMACHDEP
1490 case rs_machine_dependent
:
1491 size
+= TC_COFF_SIZEMACHDEP (frag
);
1495 assert (frag
->fr_symbol
== 0);
1498 size
+= frag
->fr_fix
;
1499 size
+= frag
->fr_offset
* frag
->fr_var
;
1502 size
+= frag
->fr_fix
;
1503 size
+= relax_align (size
, frag
->fr_offset
);
1506 BAD_CASE (frag
->fr_type
);
1509 frag
= frag
->fr_next
;
1511 segment_info
[idx
].scnhdr
.s_size
= size
;
1517 count_entries_in_chain (idx
)
1520 unsigned int nrelocs
;
1523 /* Count the relocations */
1524 fixup_ptr
= segment_info
[idx
].fix_root
;
1526 while (fixup_ptr
!= (fixS
*) NULL
)
1528 if (TC_COUNT_RELOC (fixup_ptr
))
1531 if (fixup_ptr
->fx_r_type
== RELOC_CONSTH
)
1540 fixup_ptr
= fixup_ptr
->fx_next
;
1545 /* output all the relocations for a section */
1547 do_relocs_for (abfd
, h
, file_cursor
)
1550 unsigned long *file_cursor
;
1552 unsigned int nrelocs
;
1554 unsigned long reloc_start
= *file_cursor
;
1556 for (idx
= SEG_E0
; idx
< SEG_E9
; idx
++)
1558 if (segment_info
[idx
].scnhdr
.s_name
[0])
1560 struct external_reloc
*ext_ptr
;
1561 struct external_reloc
*external_reloc_vec
;
1562 unsigned int external_reloc_size
;
1563 unsigned int base
= segment_info
[idx
].scnhdr
.s_paddr
;
1564 fixS
*fix_ptr
= segment_info
[idx
].fix_root
;
1565 nrelocs
= count_entries_in_chain (idx
);
1568 /* Bypass this stuff if no relocs. This also incidentally
1569 avoids a SCO bug, where free(malloc(0)) tends to crash. */
1571 external_reloc_size
= nrelocs
* RELSZ
;
1572 external_reloc_vec
=
1573 (struct external_reloc
*) malloc (external_reloc_size
);
1575 ext_ptr
= external_reloc_vec
;
1577 /* Fill in the internal coff style reloc struct from the
1578 internal fix list. */
1581 struct internal_reloc intr
;
1583 /* Only output some of the relocations */
1584 if (TC_COUNT_RELOC (fix_ptr
))
1586 #ifdef TC_RELOC_MANGLE
1587 TC_RELOC_MANGLE (fix_ptr
, &intr
, base
);
1591 symbolS
*symbol_ptr
= fix_ptr
->fx_addsy
;
1593 intr
.r_type
= TC_COFF_FIX2RTYPE (fix_ptr
);
1595 base
+ fix_ptr
->fx_frag
->fr_address
+ fix_ptr
->fx_where
;
1597 #ifdef TC_KEEP_FX_OFFSET
1598 intr
.r_offset
= fix_ptr
->fx_offset
;
1603 /* Turn the segment of the symbol into an offset. */
1606 dot
= segment_info
[S_GET_SEGMENT (symbol_ptr
)].dot
;
1609 intr
.r_symndx
= dot
->sy_number
;
1613 intr
.r_symndx
= symbol_ptr
->sy_number
;
1623 (void) bfd_coff_swap_reloc_out (abfd
, &intr
, ext_ptr
);
1626 #if defined(TC_A29K)
1628 /* The 29k has a special kludge for the high 16 bit
1629 reloc. Two relocations are emited, R_IHIHALF,
1630 and R_IHCONST. The second one doesn't contain a
1631 symbol, but uses the value for offset. */
1633 if (intr
.r_type
== R_IHIHALF
)
1635 /* now emit the second bit */
1636 intr
.r_type
= R_IHCONST
;
1637 intr
.r_symndx
= fix_ptr
->fx_addnumber
;
1638 (void) bfd_coff_swap_reloc_out (abfd
, &intr
, ext_ptr
);
1644 fix_ptr
= fix_ptr
->fx_next
;
1647 /* Write out the reloc table */
1648 bfd_write ((PTR
) external_reloc_vec
, 1, external_reloc_size
,
1650 free (external_reloc_vec
);
1652 /* Fill in section header info. */
1653 segment_info
[idx
].scnhdr
.s_relptr
= *file_cursor
;
1654 *file_cursor
+= external_reloc_size
;
1655 segment_info
[idx
].scnhdr
.s_nreloc
= nrelocs
;
1660 segment_info
[idx
].scnhdr
.s_relptr
= 0;
1664 /* Set relocation_size field in file headers */
1665 H_SET_RELOCATION_SIZE (h
, *file_cursor
- reloc_start
, 0);
1669 /* run through a frag chain and write out the data to go with it, fill
1670 in the scnhdrs with the info on the file postions
1673 fill_section (abfd
, h
, file_cursor
)
1676 unsigned long *file_cursor
;
1680 unsigned int paddr
= 0;
1682 for (i
= SEG_E0
; i
< SEG_UNKNOWN
; i
++)
1684 unsigned int offset
= 0;
1685 struct internal_scnhdr
*s
= &(segment_info
[i
].scnhdr
);
1691 fragS
*frag
= segment_info
[i
].frchainP
->frch_root
;
1698 buffer
= xmalloc (s
->s_size
);
1699 s
->s_scnptr
= *file_cursor
;
1701 know (s
->s_paddr
== paddr
);
1703 if (strcmp (s
->s_name
, ".text") == 0)
1704 s
->s_flags
|= STYP_TEXT
;
1705 else if (strcmp (s
->s_name
, ".data") == 0)
1706 s
->s_flags
|= STYP_DATA
;
1707 else if (strcmp (s
->s_name
, ".bss") == 0)
1710 s
->s_flags
|= STYP_BSS
;
1712 /* @@ Should make the i386 and a29k coff targets define
1713 COFF_NOLOAD_PROBLEM, and have only one test here. */
1716 #ifndef COFF_NOLOAD_PROBLEM
1717 /* Apparently the SVR3 linker (and exec syscall) and UDI
1718 mondfe progrem are confused by noload sections. */
1719 s
->s_flags
|= STYP_NOLOAD
;
1724 else if (strcmp (s
->s_name
, ".lit") == 0)
1725 s
->s_flags
= STYP_LIT
| STYP_TEXT
;
1726 else if (strcmp (s
->s_name
, ".init") == 0)
1727 s
->s_flags
|= STYP_TEXT
;
1728 else if (strcmp (s
->s_name
, ".fini") == 0)
1729 s
->s_flags
|= STYP_TEXT
;
1730 else if (strncmp (s
->s_name
, ".comment", 8) == 0)
1731 s
->s_flags
|= STYP_INFO
;
1735 unsigned int fill_size
;
1736 switch (frag
->fr_type
)
1738 case rs_machine_dependent
:
1741 memcpy (buffer
+ frag
->fr_address
,
1743 (unsigned int) frag
->fr_fix
);
1744 offset
+= frag
->fr_fix
;
1749 assert (frag
->fr_symbol
== 0);
1755 memcpy (buffer
+ frag
->fr_address
,
1757 (unsigned int) frag
->fr_fix
);
1758 offset
+= frag
->fr_fix
;
1761 fill_size
= frag
->fr_var
;
1762 if (fill_size
&& frag
->fr_offset
> 0)
1765 unsigned int off
= frag
->fr_fix
;
1766 for (count
= frag
->fr_offset
; count
; count
--)
1768 if (fill_size
+ frag
->fr_address
+ off
<= s
->s_size
)
1770 memcpy (buffer
+ frag
->fr_address
+ off
,
1771 frag
->fr_literal
+ frag
->fr_fix
,
1774 offset
+= fill_size
;
1779 case rs_broken_word
:
1784 frag
= frag
->fr_next
;
1789 if (s
->s_scnptr
!= 0)
1791 bfd_write (buffer
, s
->s_size
, 1, abfd
);
1792 *file_cursor
+= s
->s_size
;
1801 /* Coff file generation & utilities */
1804 coff_header_append (abfd
, h
)
1812 bfd_seek (abfd
, 0, 0);
1814 #ifndef OBJ_COFF_OMIT_OPTIONAL_HEADER
1815 H_SET_MAGIC_NUMBER (h
, COFF_MAGIC
);
1816 H_SET_VERSION_STAMP (h
, 0);
1817 H_SET_ENTRY_POINT (h
, 0);
1818 H_SET_TEXT_START (h
, segment_info
[SEG_E0
].frchainP
->frch_root
->fr_address
);
1819 H_SET_DATA_START (h
, segment_info
[SEG_E1
].frchainP
->frch_root
->fr_address
);
1820 H_SET_SIZEOF_OPTIONAL_HEADER (h
, bfd_coff_swap_aouthdr_out(abfd
, &h
->aouthdr
,
1822 #else /* defined (OBJ_COFF_OMIT_OPTIONAL_HEADER) */
1823 H_SET_SIZEOF_OPTIONAL_HEADER (h
, 0);
1824 #endif /* defined (OBJ_COFF_OMIT_OPTIONAL_HEADER) */
1826 i
= bfd_coff_swap_filehdr_out (abfd
, &h
->filehdr
, buffer
);
1828 bfd_write (buffer
, i
, 1, abfd
);
1829 bfd_write (buffero
, H_GET_SIZEOF_OPTIONAL_HEADER (h
), 1, abfd
);
1831 for (i
= SEG_E0
; i
< SEG_E9
; i
++)
1833 if (segment_info
[i
].scnhdr
.s_name
[0])
1836 bfd_coff_swap_scnhdr_out (abfd
,
1837 &(segment_info
[i
].scnhdr
),
1840 as_bad ("bfd_coff_swap_scnhdr_out failed");
1841 bfd_write (buffer
, size
, 1, abfd
);
1848 symbol_to_chars (abfd
, where
, symbolP
)
1853 unsigned int numaux
= symbolP
->sy_symbol
.ost_entry
.n_numaux
;
1857 /* Turn any symbols with register attributes into abs symbols */
1858 if (S_GET_SEGMENT (symbolP
) == reg_section
)
1860 S_SET_SEGMENT (symbolP
, absolute_section
);
1862 /* At the same time, relocate all symbols to their output value */
1864 val
= (segment_info
[S_GET_SEGMENT (symbolP
)].scnhdr
.s_paddr
1865 + S_GET_VALUE (symbolP
));
1867 S_SET_VALUE (symbolP
, val
);
1869 symbolP
->sy_symbol
.ost_entry
.n_value
= val
;
1871 where
+= bfd_coff_swap_sym_out (abfd
, &symbolP
->sy_symbol
.ost_entry
,
1874 for (i
= 0; i
< numaux
; i
++)
1876 where
+= bfd_coff_swap_aux_out (abfd
,
1877 &symbolP
->sy_symbol
.ost_auxent
[i
],
1878 S_GET_DATA_TYPE (symbolP
),
1879 S_GET_STORAGE_CLASS (symbolP
),
1887 obj_symbol_new_hook (symbolP
)
1890 char underscore
= 0; /* Symbol has leading _ */
1892 /* Effective symbol */
1893 /* Store the pointer in the offset. */
1894 S_SET_ZEROES (symbolP
, 0L);
1895 S_SET_DATA_TYPE (symbolP
, T_NULL
);
1896 S_SET_STORAGE_CLASS (symbolP
, 0);
1897 S_SET_NUMBER_AUXILIARY (symbolP
, 0);
1898 /* Additional information */
1899 symbolP
->sy_symbol
.ost_flags
= 0;
1900 /* Auxiliary entries */
1901 memset ((char *) &symbolP
->sy_symbol
.ost_auxent
[0], 0, AUXESZ
);
1903 if (S_IS_STRING (symbolP
))
1904 SF_SET_STRING (symbolP
);
1905 if (!underscore
&& S_IS_LOCAL (symbolP
))
1906 SF_SET_LOCAL (symbolP
);
1910 * Handle .ln directives.
1914 obj_coff_ln (appline
)
1919 if (! appline
&& def_symbol_in_progress
!= NULL
)
1921 as_warn (".ln pseudo-op inside .def/.endef: ignored.");
1922 demand_empty_rest_of_line ();
1924 } /* wrong context */
1926 l
= get_absolute_expression ();
1927 c_line_new (0, frag_now_fix (), l
, frag_now
);
1936 listing_source_line ((unsigned int) l
);
1941 demand_empty_rest_of_line ();
1947 * Handle .def directives.
1949 * One might ask : why can't we symbol_new if the symbol does not
1950 * already exist and fill it with debug information. Because of
1951 * the C_EFCN special symbol. It would clobber the value of the
1952 * function symbol before we have a chance to notice that it is
1953 * a C_EFCN. And a second reason is that the code is more clear this
1954 * way. (at least I think it is :-).
1958 #define SKIP_SEMI_COLON() while (*input_line_pointer++ != ';')
1959 #define SKIP_WHITESPACES() while (*input_line_pointer == ' ' || \
1960 *input_line_pointer == '\t') \
1961 input_line_pointer++;
1967 char name_end
; /* Char after the end of name */
1968 char *symbol_name
; /* Name of the debug symbol */
1969 char *symbol_name_copy
; /* Temporary copy of the name */
1970 unsigned int symbol_name_length
;
1972 if (def_symbol_in_progress
!= NULL
)
1974 as_warn (".def pseudo-op used inside of .def/.endef: ignored.");
1975 demand_empty_rest_of_line ();
1977 } /* if not inside .def/.endef */
1979 SKIP_WHITESPACES ();
1981 def_symbol_in_progress
= (symbolS
*) obstack_alloc (¬es
, sizeof (*def_symbol_in_progress
));
1982 memset (def_symbol_in_progress
, 0, sizeof (*def_symbol_in_progress
));
1984 symbol_name
= input_line_pointer
;
1985 name_end
= get_symbol_end ();
1986 symbol_name_length
= strlen (symbol_name
);
1987 symbol_name_copy
= xmalloc (symbol_name_length
+ 1);
1988 strcpy (symbol_name_copy
, symbol_name
);
1990 /* Initialize the new symbol */
1991 #ifdef STRIP_UNDERSCORE
1992 S_SET_NAME (def_symbol_in_progress
, (*symbol_name_copy
== '_'
1993 ? symbol_name_copy
+ 1
1994 : symbol_name_copy
));
1995 #else /* STRIP_UNDERSCORE */
1996 S_SET_NAME (def_symbol_in_progress
, symbol_name_copy
);
1997 #endif /* STRIP_UNDERSCORE */
1998 /* free(symbol_name_copy); */
1999 def_symbol_in_progress
->sy_name_offset
= (unsigned long) ~0;
2000 def_symbol_in_progress
->sy_number
= ~0;
2001 def_symbol_in_progress
->sy_frag
= &zero_address_frag
;
2002 S_SET_VALUE (def_symbol_in_progress
, 0);
2004 if (S_IS_STRING (def_symbol_in_progress
))
2005 SF_SET_STRING (def_symbol_in_progress
);
2007 *input_line_pointer
= name_end
;
2009 demand_empty_rest_of_line ();
2012 unsigned int dim_index
;
2016 obj_coff_endef (ignore
)
2019 symbolS
*symbolP
= 0;
2020 /* DIM BUG FIX sac@cygnus.com */
2022 if (def_symbol_in_progress
== NULL
)
2024 as_warn (".endef pseudo-op used outside of .def/.endef: ignored.");
2025 demand_empty_rest_of_line ();
2027 } /* if not inside .def/.endef */
2029 /* Set the section number according to storage class. */
2030 switch (S_GET_STORAGE_CLASS (def_symbol_in_progress
))
2035 SF_SET_TAG (def_symbol_in_progress
);
2036 /* intentional fallthrough */
2039 SF_SET_DEBUG (def_symbol_in_progress
);
2040 S_SET_SEGMENT (def_symbol_in_progress
, SEG_DEBUG
);
2044 SF_SET_LOCAL (def_symbol_in_progress
); /* Do not emit this symbol. */
2045 /* intentional fallthrough */
2047 SF_SET_PROCESS (def_symbol_in_progress
); /* Will need processing before writing */
2048 /* intentional fallthrough */
2050 S_SET_SEGMENT (def_symbol_in_progress
, SEG_E0
);
2052 if (strcmp (S_GET_NAME (def_symbol_in_progress
), ".bf") == 0)
2054 if (function_lineoff
< 0)
2056 fprintf (stderr
, "`.bf' symbol without preceding function\n");
2057 } /* missing function symbol */
2058 SA_GET_SYM_LNNOPTR (last_line_symbol
) = function_lineoff
;
2060 SF_SET_PROCESS (last_line_symbol
);
2061 function_lineoff
= -1;
2063 /* Value is always set to . */
2064 def_symbol_in_progress
->sy_frag
= frag_now
;
2065 S_SET_VALUE (def_symbol_in_progress
, (valueT
) frag_now_fix ());
2070 #endif /* C_AUTOARG */
2080 SF_SET_DEBUG (def_symbol_in_progress
);
2081 S_SET_SEGMENT (def_symbol_in_progress
, absolute_section
);
2087 /* Valid but set somewhere else (s_comm, s_lcomm, colon) */
2093 as_warn ("unexpected storage class %d", S_GET_STORAGE_CLASS (def_symbol_in_progress
));
2095 } /* switch on storage class */
2097 /* Now that we have built a debug symbol, try to find if we should
2098 merge with an existing symbol or not. If a symbol is C_EFCN or
2099 absolute_section or untagged SEG_DEBUG it never merges. We also
2100 don't merge labels, which are in a different namespace, nor
2101 symbols which have not yet been defined since they are typically
2102 unique, nor do we merge tags with non-tags. */
2104 /* Two cases for functions. Either debug followed by definition or
2105 definition followed by debug. For definition first, we will
2106 merge the debug symbol into the definition. For debug first, the
2107 lineno entry MUST point to the definition function or else it
2108 will point off into space when crawl_symbols() merges the debug
2109 symbol into the real symbol. Therefor, let's presume the debug
2110 symbol is a real function reference. */
2112 /* FIXME-SOON If for some reason the definition label/symbol is
2113 never seen, this will probably leave an undefined symbol at link
2116 if (S_GET_STORAGE_CLASS (def_symbol_in_progress
) == C_EFCN
2117 || S_GET_STORAGE_CLASS (def_symbol_in_progress
) == C_LABEL
2118 || (S_GET_SEGMENT (def_symbol_in_progress
) == SEG_DEBUG
2119 && !SF_GET_TAG (def_symbol_in_progress
))
2120 || S_GET_SEGMENT (def_symbol_in_progress
) == absolute_section
2121 || def_symbol_in_progress
->sy_value
.X_op
!= O_constant
2122 || (symbolP
= symbol_find_base (S_GET_NAME (def_symbol_in_progress
), DO_NOT_STRIP
)) == NULL
2123 || (SF_GET_TAG (def_symbol_in_progress
) != SF_GET_TAG (symbolP
)))
2125 symbol_append (def_symbol_in_progress
, symbol_lastP
, &symbol_rootP
,
2130 /* This symbol already exists, merge the newly created symbol
2131 into the old one. This is not mandatory. The linker can
2132 handle duplicate symbols correctly. But I guess that it save
2133 a *lot* of space if the assembly file defines a lot of
2136 /* The debug entry (def_symbol_in_progress) is merged into the
2137 previous definition. */
2139 c_symbol_merge (def_symbol_in_progress
, symbolP
);
2140 /* FIXME-SOON Should *def_symbol_in_progress be free'd? xoxorich. */
2141 def_symbol_in_progress
= symbolP
;
2143 if (SF_GET_FUNCTION (def_symbol_in_progress
)
2144 || SF_GET_TAG (def_symbol_in_progress
))
2146 /* For functions, and tags, the symbol *must* be where the
2147 debug symbol appears. Move the existing symbol to the
2149 /* If it already is at the end of the symbol list, do nothing */
2150 if (def_symbol_in_progress
!= symbol_lastP
)
2152 symbol_remove (def_symbol_in_progress
, &symbol_rootP
,
2154 symbol_append (def_symbol_in_progress
, symbol_lastP
,
2155 &symbol_rootP
, &symbol_lastP
);
2156 } /* if not already in place */
2158 } /* normal or mergable */
2160 if (SF_GET_TAG (def_symbol_in_progress
)
2161 && symbol_find_base (S_GET_NAME (def_symbol_in_progress
), DO_NOT_STRIP
) == NULL
)
2163 tag_insert (S_GET_NAME (def_symbol_in_progress
), def_symbol_in_progress
);
2166 if (SF_GET_FUNCTION (def_symbol_in_progress
))
2168 know (sizeof (def_symbol_in_progress
) <= sizeof (long));
2170 = c_line_new (def_symbol_in_progress
, 0, 0, &zero_address_frag
);
2172 SF_SET_PROCESS (def_symbol_in_progress
);
2174 if (symbolP
== NULL
)
2176 /* That is, if this is the first time we've seen the
2178 symbol_table_insert (def_symbol_in_progress
);
2179 } /* definition follows debug */
2180 } /* Create the line number entry pointing to the function being defined */
2182 def_symbol_in_progress
= NULL
;
2183 demand_empty_rest_of_line ();
2187 obj_coff_dim (ignore
)
2192 if (def_symbol_in_progress
== NULL
)
2194 as_warn (".dim pseudo-op used outside of .def/.endef: ignored.");
2195 demand_empty_rest_of_line ();
2197 } /* if not inside .def/.endef */
2199 S_SET_NUMBER_AUXILIARY (def_symbol_in_progress
, 1);
2201 for (dim_index
= 0; dim_index
< DIMNUM
; dim_index
++)
2203 SKIP_WHITESPACES ();
2204 SA_SET_SYM_DIMEN (def_symbol_in_progress
, dim_index
,
2205 get_absolute_expression ());
2207 switch (*input_line_pointer
)
2210 input_line_pointer
++;
2214 as_warn ("badly formed .dim directive ignored");
2215 /* intentional fallthrough */
2223 demand_empty_rest_of_line ();
2227 obj_coff_line (ignore
)
2233 if (def_symbol_in_progress
== NULL
)
2239 name
= S_GET_NAME (def_symbol_in_progress
);
2240 this_base
= get_absolute_expression ();
2242 /* Only .bf symbols indicate the use of a new base line number; the
2243 line numbers associated with .ef, .bb, .eb are relative to the
2244 start of the containing function. */
2245 if (!strcmp (".bf", name
))
2247 #if 0 /* XXX Can we ever have line numbers going backwards? */
2248 if (this_base
> line_base
)
2251 line_base
= this_base
;
2259 listing_source_line ((unsigned int) line_base
);
2265 S_SET_NUMBER_AUXILIARY (def_symbol_in_progress
, 1);
2266 SA_SET_SYM_LNNO (def_symbol_in_progress
, this_base
);
2268 demand_empty_rest_of_line ();
2272 obj_coff_size (ignore
)
2275 if (def_symbol_in_progress
== NULL
)
2277 as_warn (".size pseudo-op used outside of .def/.endef ignored.");
2278 demand_empty_rest_of_line ();
2280 } /* if not inside .def/.endef */
2282 S_SET_NUMBER_AUXILIARY (def_symbol_in_progress
, 1);
2283 SA_SET_SYM_SIZE (def_symbol_in_progress
, get_absolute_expression ());
2284 demand_empty_rest_of_line ();
2288 obj_coff_scl (ignore
)
2291 if (def_symbol_in_progress
== NULL
)
2293 as_warn (".scl pseudo-op used outside of .def/.endef ignored.");
2294 demand_empty_rest_of_line ();
2296 } /* if not inside .def/.endef */
2298 S_SET_STORAGE_CLASS (def_symbol_in_progress
, get_absolute_expression ());
2299 demand_empty_rest_of_line ();
2303 obj_coff_tag (ignore
)
2309 if (def_symbol_in_progress
== NULL
)
2311 as_warn (".tag pseudo-op used outside of .def/.endef ignored.");
2312 demand_empty_rest_of_line ();
2316 S_SET_NUMBER_AUXILIARY (def_symbol_in_progress
, 1);
2317 symbol_name
= input_line_pointer
;
2318 name_end
= get_symbol_end ();
2320 /* Assume that the symbol referred to by .tag is always defined.
2321 This was a bad assumption. I've added find_or_make. xoxorich. */
2322 SA_SET_SYM_TAGNDX (def_symbol_in_progress
,
2323 (long) tag_find_or_make (symbol_name
));
2324 if (SA_GET_SYM_TAGNDX (def_symbol_in_progress
) == 0L)
2326 as_warn ("tag not found for .tag %s", symbol_name
);
2329 SF_SET_TAGGED (def_symbol_in_progress
);
2330 *input_line_pointer
= name_end
;
2332 demand_empty_rest_of_line ();
2336 obj_coff_type (ignore
)
2339 if (def_symbol_in_progress
== NULL
)
2341 as_warn (".type pseudo-op used outside of .def/.endef ignored.");
2342 demand_empty_rest_of_line ();
2344 } /* if not inside .def/.endef */
2346 S_SET_DATA_TYPE (def_symbol_in_progress
, get_absolute_expression ());
2348 if (ISFCN (S_GET_DATA_TYPE (def_symbol_in_progress
)) &&
2349 S_GET_STORAGE_CLASS (def_symbol_in_progress
) != C_TPDEF
)
2351 SF_SET_FUNCTION (def_symbol_in_progress
);
2352 } /* is a function */
2354 demand_empty_rest_of_line ();
2358 obj_coff_val (ignore
)
2361 if (def_symbol_in_progress
== NULL
)
2363 as_warn (".val pseudo-op used outside of .def/.endef ignored.");
2364 demand_empty_rest_of_line ();
2366 } /* if not inside .def/.endef */
2368 if (is_name_beginner (*input_line_pointer
))
2370 char *symbol_name
= input_line_pointer
;
2371 char name_end
= get_symbol_end ();
2373 if (!strcmp (symbol_name
, "."))
2375 def_symbol_in_progress
->sy_frag
= frag_now
;
2376 S_SET_VALUE (def_symbol_in_progress
, (valueT
) frag_now_fix ());
2377 /* If the .val is != from the .def (e.g. statics) */
2379 else if (strcmp (S_GET_NAME (def_symbol_in_progress
), symbol_name
))
2381 def_symbol_in_progress
->sy_value
.X_op
= O_symbol
;
2382 def_symbol_in_progress
->sy_value
.X_add_symbol
=
2383 symbol_find_or_make (symbol_name
);
2384 def_symbol_in_progress
->sy_value
.X_op_symbol
= NULL
;
2385 def_symbol_in_progress
->sy_value
.X_add_number
= 0;
2387 /* If the segment is undefined when the forward reference is
2388 resolved, then copy the segment id from the forward
2390 SF_SET_GET_SEGMENT (def_symbol_in_progress
);
2392 /* FIXME: gcc can generate address expressions
2393 here in unusual cases (search for "obscure"
2394 in sdbout.c). We just ignore the offset
2395 here, thus generating incorrect debugging
2396 information. We ignore the rest of the
2399 /* Otherwise, it is the name of a non debug symbol and
2400 its value will be calculated later. */
2401 *input_line_pointer
= name_end
;
2403 /* FIXME: this is to avoid an error message in the
2404 FIXME case mentioned just above. */
2405 while (! is_end_of_line
[(unsigned char) *input_line_pointer
])
2406 ++input_line_pointer
;
2410 S_SET_VALUE (def_symbol_in_progress
,
2411 (valueT
) get_absolute_expression ());
2412 } /* if symbol based */
2414 demand_empty_rest_of_line ();
2418 obj_read_begin_hook ()
2420 /* These had better be the same. Usually 18 bytes. */
2422 know (sizeof (SYMENT
) == sizeof (AUXENT
));
2423 know (SYMESZ
== AUXESZ
);
2428 /* This function runs through the symbol table and puts all the
2429 externals onto another chain */
2431 /* The chain of externals */
2432 symbolS
*symbol_externP
;
2433 symbolS
*symbol_extern_lastP
;
2436 symbolS
*last_functionP
;
2443 unsigned int symbol_number
= 0;
2444 unsigned int last_file_symno
= 0;
2446 for (symbolP
= symbol_rootP
;
2448 symbolP
= symbolP
? symbol_next (symbolP
) : symbol_rootP
)
2450 if (!SF_GET_DEBUG (symbolP
))
2452 /* Debug symbols do not need all this rubbish */
2453 symbolS
*real_symbolP
;
2455 /* L* and C_EFCN symbols never merge. */
2456 if (!SF_GET_LOCAL (symbolP
)
2457 && S_GET_STORAGE_CLASS (symbolP
) != C_LABEL
2458 && symbolP
->sy_value
.X_op
== O_constant
2459 && (real_symbolP
= symbol_find_base (S_GET_NAME (symbolP
), DO_NOT_STRIP
))
2460 && real_symbolP
!= symbolP
)
2462 /* FIXME-SOON: where do dups come from?
2463 Maybe tag references before definitions? xoxorich. */
2464 /* Move the debug data from the debug symbol to the
2465 real symbol. Do NOT do the oposite (i.e. move from
2466 real symbol to debug symbol and remove real symbol from the
2467 list.) Because some pointers refer to the real symbol
2468 whereas no pointers refer to the debug symbol. */
2469 c_symbol_merge (symbolP
, real_symbolP
);
2470 /* Replace the current symbol by the real one */
2471 /* The symbols will never be the last or the first
2472 because : 1st symbol is .file and 3 last symbols are
2473 .text, .data, .bss */
2474 symbol_remove (real_symbolP
, &symbol_rootP
, &symbol_lastP
);
2475 symbol_insert (real_symbolP
, symbolP
, &symbol_rootP
, &symbol_lastP
);
2476 symbol_remove (symbolP
, &symbol_rootP
, &symbol_lastP
);
2477 symbolP
= real_symbolP
;
2478 } /* if not local but dup'd */
2480 if (flag_readonly_data_in_text
&& (S_GET_SEGMENT (symbolP
) == SEG_E1
))
2482 S_SET_SEGMENT (symbolP
, SEG_E0
);
2483 } /* push data into text */
2485 resolve_symbol_value (symbolP
);
2487 if (S_GET_STORAGE_CLASS (symbolP
) == C_NULL
)
2489 if (!S_IS_DEFINED (symbolP
) && !SF_GET_LOCAL (symbolP
))
2491 S_SET_EXTERNAL (symbolP
);
2493 else if (S_GET_SEGMENT (symbolP
) == SEG_E0
)
2495 S_SET_STORAGE_CLASS (symbolP
, C_LABEL
);
2499 S_SET_STORAGE_CLASS (symbolP
, C_STAT
);
2503 /* Mainly to speed up if not -g */
2504 if (SF_GET_PROCESS (symbolP
))
2506 /* Handle the nested blocks auxiliary info. */
2507 if (S_GET_STORAGE_CLASS (symbolP
) == C_BLOCK
)
2509 if (!strcmp (S_GET_NAME (symbolP
), ".bb"))
2510 stack_push (block_stack
, (char *) &symbolP
);
2513 register symbolS
*begin_symbolP
;
2514 begin_symbolP
= *(symbolS
**) stack_pop (block_stack
);
2515 if (begin_symbolP
== (symbolS
*) 0)
2516 as_warn ("mismatched .eb");
2518 SA_SET_SYM_ENDNDX (begin_symbolP
, symbol_number
+ 2);
2521 /* If we are able to identify the type of a function, and we
2522 are out of a function (last_functionP == 0) then, the
2523 function symbol will be associated with an auxiliary
2525 if (last_functionP
== (symbolS
*) 0 &&
2526 SF_GET_FUNCTION (symbolP
))
2528 last_functionP
= symbolP
;
2530 if (S_GET_NUMBER_AUXILIARY (symbolP
) < 1)
2532 S_SET_NUMBER_AUXILIARY (symbolP
, 1);
2533 } /* make it at least 1 */
2535 /* Clobber possible stale .dim information. */
2537 /* Iffed out by steve - this fries the lnnoptr info too */
2538 bzero (symbolP
->sy_symbol
.ost_auxent
[0].x_sym
.x_fcnary
.x_ary
.x_dimen
,
2539 sizeof (symbolP
->sy_symbol
.ost_auxent
[0].x_sym
.x_fcnary
.x_ary
.x_dimen
));
2542 /* The C_FCN doesn't need any additional information. I
2543 don't even know if this is needed for sdb. But the
2544 standard assembler generates it, so... */
2545 if (S_GET_STORAGE_CLASS (symbolP
) == C_EFCN
)
2547 if (last_functionP
== (symbolS
*) 0)
2548 as_fatal ("C_EFCN symbol out of scope");
2549 SA_SET_SYM_FSIZE (last_functionP
,
2550 (long) (S_GET_VALUE (symbolP
) -
2551 S_GET_VALUE (last_functionP
)));
2552 SA_SET_SYM_ENDNDX (last_functionP
, symbol_number
);
2553 last_functionP
= (symbolS
*) 0;
2557 else if (SF_GET_TAG (symbolP
))
2559 /* First descriptor of a structure must point to
2560 the first slot after the structure description. */
2561 last_tagP
= symbolP
;
2564 else if (S_GET_STORAGE_CLASS (symbolP
) == C_EOS
)
2566 /* +2 take in account the current symbol */
2567 SA_SET_SYM_ENDNDX (last_tagP
, symbol_number
+ 2);
2569 else if (S_GET_STORAGE_CLASS (symbolP
) == C_FILE
)
2571 if (S_GET_VALUE (symbolP
))
2573 S_SET_VALUE (symbolP
, last_file_symno
);
2574 last_file_symno
= symbol_number
;
2575 } /* no one points at the first .file symbol */
2576 } /* if debug or tag or eos or file */
2578 /* We must put the external symbols apart. The loader
2579 does not bomb if we do not. But the references in
2580 the endndx field for a .bb symbol are not corrected
2581 if an external symbol is removed between .bb and .be.
2582 I.e in the following case :
2583 [20] .bb endndx = 22
2586 ld will move the symbol 21 to the end of the list but
2587 endndx will still be 22 instead of 21. */
2590 if (SF_GET_LOCAL (symbolP
))
2592 /* remove C_EFCN and LOCAL (L...) symbols */
2593 /* next pointer remains valid */
2594 symbol_remove (symbolP
, &symbol_rootP
, &symbol_lastP
);
2597 else if (!S_IS_DEFINED (symbolP
)
2598 && !S_IS_DEBUG (symbolP
)
2599 && !SF_GET_STATICS (symbolP
) &&
2600 S_GET_STORAGE_CLASS (symbolP
) == C_EXT
)
2601 { /* C_EXT && !SF_GET_FUNCTION(symbolP)) */
2602 /* if external, Remove from the list */
2603 symbolS
*hold
= symbol_previous (symbolP
);
2605 symbol_remove (symbolP
, &symbol_rootP
, &symbol_lastP
);
2606 symbol_clear_list_pointers (symbolP
);
2607 symbol_append (symbolP
, symbol_extern_lastP
, &symbol_externP
, &symbol_extern_lastP
);
2612 if (SF_GET_STRING (symbolP
))
2614 symbolP
->sy_name_offset
= string_byte_count
;
2615 string_byte_count
+= strlen (S_GET_NAME (symbolP
)) + 1;
2619 symbolP
->sy_name_offset
= 0;
2620 } /* fix "long" names */
2622 symbolP
->sy_number
= symbol_number
;
2623 symbol_number
+= 1 + S_GET_NUMBER_AUXILIARY (symbolP
);
2624 } /* if local symbol */
2625 } /* traverse the symbol list */
2626 return symbol_number
;
2634 unsigned int symbol_number
= 0;
2636 for (symbolP
= symbol_externP
; symbol_externP
;)
2638 symbolS
*tmp
= symbol_externP
;
2641 symbol_remove (tmp
, &symbol_externP
, &symbol_extern_lastP
);
2642 symbol_append (tmp
, symbol_lastP
, &symbol_rootP
, &symbol_lastP
);
2645 if (SF_GET_STRING (tmp
))
2647 tmp
->sy_name_offset
= string_byte_count
;
2648 string_byte_count
+= strlen (S_GET_NAME (tmp
)) + 1;
2652 tmp
->sy_name_offset
= 0;
2653 } /* fix "long" names */
2655 tmp
->sy_number
= symbol_number
;
2656 symbol_number
+= 1 + S_GET_NUMBER_AUXILIARY (tmp
);
2657 } /* append the entire extern chain */
2658 return symbol_number
;
2665 unsigned int symbol_number
= 0;
2668 for (symbolP
= symbol_rootP
; symbolP
; symbolP
=
2669 symbol_next (symbolP
))
2671 symbolP
->sy_number
= symbol_number
;
2675 if (SF_GET_TAGGED (symbolP
))
2679 ((symbolS
*) SA_GET_SYM_TAGNDX (symbolP
))->sy_number
);
2682 symbol_number
+= 1 + S_GET_NUMBER_AUXILIARY (symbolP
);
2684 return symbol_number
;
2689 crawl_symbols (h
, abfd
)
2695 /* Initialize the stack used to keep track of the matching .bb .be */
2697 block_stack
= stack_init (512, sizeof (symbolS
*));
2699 /* The symbol list should be ordered according to the following sequence
2702 * . debug entries for functions
2703 * . fake symbols for the sections, including.text .data and .bss
2705 * . undefined symbols
2706 * But this is not mandatory. The only important point is to put the
2707 * undefined symbols at the end of the list.
2710 if (symbol_rootP
== NULL
2711 || S_GET_STORAGE_CLASS (symbol_rootP
) != C_FILE
)
2713 c_dot_file_symbol ("fake");
2715 /* Is there a .file symbol ? If not insert one at the beginning. */
2718 * Build up static symbols for the sections, they are filled in later
2722 for (i
= SEG_E0
; i
< SEG_E9
; i
++)
2724 if (segment_info
[i
].scnhdr
.s_name
[0])
2728 strncpy (name
, segment_info
[i
].scnhdr
.s_name
, 8);
2730 segment_info
[i
].dot
= c_section_symbol (name
, i
- SEG_E0
+ 1);
2735 /* Take all the externals out and put them into another chain */
2736 H_SET_SYMBOL_TABLE_SIZE (h
, yank_symbols ());
2737 /* Take the externals and glue them onto the end.*/
2738 H_SET_SYMBOL_TABLE_SIZE (h
, H_GET_SYMBOL_COUNT (h
) + glue_symbols ());
2740 H_SET_SYMBOL_TABLE_SIZE (h
, tie_tags ());
2741 know (symbol_externP
== NULL
);
2742 know (symbol_extern_lastP
== NULL
);
2746 * Find strings by crawling along symbol table chain.
2755 /* Gotta do md_ byte-ordering stuff for string_byte_count first - KWK */
2756 md_number_to_chars (where
, (valueT
) string_byte_count
, 4);
2758 for (symbolP
= symbol_rootP
;
2760 symbolP
= symbol_next (symbolP
))
2764 if (SF_GET_STRING (symbolP
))
2766 size
= strlen (S_GET_NAME (symbolP
)) + 1;
2768 memcpy (where
, S_GET_NAME (symbolP
), size
);
2776 do_linenos_for (abfd
, h
, file_cursor
)
2779 unsigned long *file_cursor
;
2782 unsigned long start
= *file_cursor
;
2784 for (idx
= SEG_E0
; idx
< SEG_E9
; idx
++)
2786 segment_info_type
*s
= segment_info
+ idx
;
2789 if (s
->scnhdr
.s_nlnno
!= 0)
2791 struct lineno_list
*line_ptr
;
2793 struct external_lineno
*buffer
=
2794 (struct external_lineno
*) xmalloc (s
->scnhdr
.s_nlnno
* LINESZ
);
2796 struct external_lineno
*dst
= buffer
;
2798 /* Run through the table we've built and turn it into its external
2799 form, take this chance to remove duplicates */
2801 for (line_ptr
= s
->lineno_list_head
;
2802 line_ptr
!= (struct lineno_list
*) NULL
;
2803 line_ptr
= line_ptr
->next
)
2806 if (line_ptr
->line
.l_lnno
== 0)
2808 /* Turn a pointer to a symbol into the symbols' index */
2809 line_ptr
->line
.l_addr
.l_symndx
=
2810 ((symbolS
*) line_ptr
->line
.l_addr
.l_symndx
)->sy_number
;
2814 line_ptr
->line
.l_addr
.l_paddr
+= ((struct frag
*) (line_ptr
->frag
))->fr_address
;
2818 (void) bfd_coff_swap_lineno_out (abfd
, &(line_ptr
->line
), dst
);
2823 s
->scnhdr
.s_lnnoptr
= *file_cursor
;
2825 bfd_write (buffer
, 1, s
->scnhdr
.s_nlnno
* LINESZ
, abfd
);
2828 *file_cursor
+= s
->scnhdr
.s_nlnno
* LINESZ
;
2831 H_SET_LINENO_SIZE (h
, *file_cursor
- start
);
2835 /* Now we run through the list of frag chains in a segment and
2836 make all the subsegment frags appear at the end of the
2837 list, as if the seg 0 was extra long */
2844 for (i
= SEG_E0
; i
< SEG_UNKNOWN
; i
++)
2846 frchainS
*head
= segment_info
[i
].frchainP
;
2848 fragS
*prev_frag
= &dummy
;
2850 while (head
&& head
->frch_seg
== i
)
2852 prev_frag
->fr_next
= head
->frch_root
;
2853 prev_frag
= head
->frch_last
;
2854 head
= head
->frch_next
;
2856 prev_frag
->fr_next
= 0;
2860 unsigned long machine
;
2863 write_object_file ()
2867 struct frchain
*frchain_ptr
;
2869 object_headers headers
;
2870 unsigned long file_cursor
;
2873 abfd
= bfd_openw (out_file_name
, TARGET_FORMAT
);
2878 as_perror ("FATAL: Can't create %s", out_file_name
);
2879 exit (EXIT_FAILURE
);
2881 bfd_set_format (abfd
, bfd_object
);
2882 bfd_set_arch_mach (abfd
, BFD_ARCH
, machine
);
2884 string_byte_count
= 4;
2886 for (frchain_ptr
= frchain_root
;
2887 frchain_ptr
!= (struct frchain
*) NULL
;
2888 frchain_ptr
= frchain_ptr
->frch_next
)
2890 /* Run through all the sub-segments and align them up. Also
2891 close any open frags. We tack a .fill onto the end of the
2892 frag chain so that any .align's size can be worked by looking
2893 at the next frag. */
2895 subseg_set (frchain_ptr
->frch_seg
, frchain_ptr
->frch_subseg
);
2896 #ifndef SUB_SEGMENT_ALIGN
2897 #define SUB_SEGMENT_ALIGN(SEG) 1
2899 frag_align (SUB_SEGMENT_ALIGN (now_seg
), NOP_OPCODE
);
2900 frag_wane (frag_now
);
2901 frag_now
->fr_fix
= 0;
2902 know (frag_now
->fr_next
== NULL
);
2909 for (i
= SEG_E0
; i
< SEG_UNKNOWN
; i
++)
2911 relax_segment (segment_info
[i
].frchainP
->frch_root
, i
);
2914 H_SET_NUMBER_OF_SECTIONS (&headers
, 0);
2916 /* Find out how big the sections are, and set the addresses. */
2918 for (i
= SEG_E0
; i
< SEG_UNKNOWN
; i
++)
2922 segment_info
[i
].scnhdr
.s_paddr
= addr
;
2923 segment_info
[i
].scnhdr
.s_vaddr
= addr
;
2925 if (segment_info
[i
].scnhdr
.s_name
[0])
2927 H_SET_NUMBER_OF_SECTIONS (&headers
,
2928 H_GET_NUMBER_OF_SECTIONS (&headers
) + 1);
2931 size
= size_section (abfd
, (unsigned int) i
);
2934 /* I think the section alignment is only used on the i960; the
2935 i960 needs it, and it should do no harm on other targets. */
2936 segment_info
[i
].scnhdr
.s_align
= section_alignment
[i
];
2939 H_SET_TEXT_SIZE (&headers
, size
);
2940 else if (i
== SEG_E1
)
2941 H_SET_DATA_SIZE (&headers
, size
);
2942 else if (i
== SEG_E2
)
2943 H_SET_BSS_SIZE (&headers
, size
);
2946 /* Turn the gas native symbol table shape into a coff symbol table */
2947 crawl_symbols (&headers
, abfd
);
2949 if (string_byte_count
== 4)
2950 string_byte_count
= 0;
2952 H_SET_STRING_SIZE (&headers
, string_byte_count
);
2954 for (i
= SEG_E0
; i
< SEG_UNKNOWN
; i
++)
2956 fixup_mdeps (segment_info
[i
].frchainP
->frch_root
, &headers
, i
);
2957 fixup_segment (&segment_info
[i
], i
);
2960 /* Look for ".stab" segments and fill in their initial symbols
2962 for (i
= SEG_E0
; i
< SEG_UNKNOWN
; i
++)
2964 name
= segment_info
[i
].scnhdr
.s_name
;
2967 && strncmp (".stab", name
, 5) == 0
2968 && strncmp (".stabstr", name
, 8) != 0)
2969 adjust_stab_section (abfd
, i
);
2972 file_cursor
= H_GET_TEXT_FILE_OFFSET (&headers
);
2974 bfd_seek (abfd
, (file_ptr
) file_cursor
, 0);
2976 /* Plant the data */
2978 fill_section (abfd
, &headers
, &file_cursor
);
2980 do_relocs_for (abfd
, &headers
, &file_cursor
);
2982 do_linenos_for (abfd
, &headers
, &file_cursor
);
2984 H_SET_FILE_MAGIC_NUMBER (&headers
, COFF_MAGIC
);
2985 #ifndef OBJ_COFF_OMIT_TIMESTAMP
2986 H_SET_TIME_STAMP (&headers
, (long)time((long*)0));
2988 H_SET_TIME_STAMP (&headers
, 0);
2990 #ifdef TC_COFF_SET_MACHINE
2991 TC_COFF_SET_MACHINE (&headers
);
2995 #define COFF_FLAGS 0
2998 #ifdef KEEP_RELOC_INFO
2999 H_SET_FLAGS (&headers
, ((H_GET_LINENO_SIZE(&headers
) ? 0 : F_LNNO
) |
3000 COFF_FLAGS
| coff_flags
));
3002 H_SET_FLAGS (&headers
, ((H_GET_LINENO_SIZE(&headers
) ? 0 : F_LNNO
) |
3003 (H_GET_RELOCATION_SIZE(&headers
) ? 0 : F_RELFLG
) |
3004 COFF_FLAGS
| coff_flags
));
3008 unsigned int symtable_size
= H_GET_SYMBOL_TABLE_SIZE (&headers
);
3009 char *buffer1
= xmalloc (symtable_size
+ string_byte_count
+ 1);
3011 H_SET_SYMBOL_TABLE_POINTER (&headers
, bfd_tell (abfd
));
3012 w_symbols (abfd
, buffer1
, symbol_rootP
);
3013 if (string_byte_count
> 0)
3014 w_strings (buffer1
+ symtable_size
);
3015 bfd_write (buffer1
, 1, symtable_size
+ string_byte_count
, abfd
);
3019 coff_header_append (abfd
, &headers
);
3021 /* Recent changes to write need this, but where it should
3022 go is up to Ken.. */
3023 if (bfd_close_all_done (abfd
) == false)
3024 as_fatal ("Can't close %s: %s", out_file_name
,
3025 bfd_errmsg (bfd_get_error ()));
3028 extern bfd
*stdoutput
;
3035 /* Add a new segment. This is called from subseg_new via the
3036 obj_new_segment macro. */
3039 obj_coff_add_segment (name
)
3045 /* Find out if we've already got a section of this name. */
3046 len
= strlen (name
);
3047 if (len
< sizeof (segment_info
[i
].scnhdr
.s_name
))
3050 len
= sizeof (segment_info
[i
].scnhdr
.s_name
);
3051 for (i
= SEG_E0
; i
< SEG_E9
&& segment_info
[i
].scnhdr
.s_name
[0]; i
++)
3052 if (strncmp (segment_info
[i
].scnhdr
.s_name
, name
, len
) == 0
3053 && (len
== sizeof (segment_info
[i
].scnhdr
.s_name
)
3054 || segment_info
[i
].scnhdr
.s_name
[len
] == '\0'))
3059 as_bad ("Too many new sections; can't add \"%s\"", name
);
3063 /* Add a new section. */
3064 strncpy (segment_info
[i
].scnhdr
.s_name
, name
,
3065 sizeof (segment_info
[i
].scnhdr
.s_name
));
3066 segment_info
[i
].scnhdr
.s_flags
= STYP_REG
;
3072 * implement the .section pseudo op:
3073 * .section name {, "flags"}
3075 * | +--- optional flags: 'b' for bss
3077 * +-- section name 'l' for lib
3081 * 'd' (apparently m88k for data)
3083 * But if the argument is not a quoted string, treat it as a
3084 * subsegment number.
3088 obj_coff_section (ignore
)
3091 /* Strip out the section name */
3093 char *section_name_end
;
3100 section_name
= input_line_pointer
;
3101 c
= get_symbol_end ();
3102 section_name_end
= input_line_pointer
;
3104 len
= section_name_end
- section_name
;
3105 input_line_pointer
++;
3111 else if (*input_line_pointer
== ',')
3114 ++input_line_pointer
;
3122 if (*input_line_pointer
!= '"')
3123 exp
= get_absolute_expression ();
3126 ++input_line_pointer
;
3127 while (*input_line_pointer
!= '"'
3128 && ! is_end_of_line
[(unsigned char) *input_line_pointer
])
3130 switch (*input_line_pointer
)
3132 case 'b': flags
|= STYP_BSS
; break;
3133 case 'i': flags
|= STYP_INFO
; break;
3134 case 'l': flags
|= STYP_LIB
; break;
3135 case 'n': flags
|= STYP_NOLOAD
; break;
3136 case 'o': flags
|= STYP_OVER
; break;
3138 case 'w': flags
|= STYP_DATA
; break;
3139 case 'x': flags
|= STYP_TEXT
; break;
3141 as_warn("unknown section attribute '%c'",
3142 *input_line_pointer
);
3145 ++input_line_pointer
;
3147 if (*input_line_pointer
== '"')
3148 ++input_line_pointer
;
3152 subseg_new (section_name
, (subsegT
) exp
);
3154 segment_info
[now_seg
].scnhdr
.s_flags
|= flags
;
3156 *section_name_end
= c
;
3161 obj_coff_text (ignore
)
3164 subseg_new (".text", get_absolute_expression ());
3169 obj_coff_data (ignore
)
3172 if (flag_readonly_data_in_text
)
3173 subseg_new (".text", get_absolute_expression () + 1000);
3175 subseg_new (".data", get_absolute_expression ());
3179 obj_coff_bss (ignore
)
3182 if (*input_line_pointer
== '\n') /* .bss */
3183 subseg_new(".bss", get_absolute_expression());
3184 else /* .bss id,expr */
3189 obj_coff_ident (ignore
)
3192 segT current_seg
= now_seg
; /* save current seg */
3193 subsegT current_subseg
= now_subseg
;
3194 subseg_new (".comment", 0); /* .comment seg */
3195 stringer (1); /* read string */
3196 subseg_set (current_seg
, current_subseg
); /* restore current seg */
3200 c_symbol_merge (debug
, normal
)
3204 S_SET_DATA_TYPE (normal
, S_GET_DATA_TYPE (debug
));
3205 S_SET_STORAGE_CLASS (normal
, S_GET_STORAGE_CLASS (debug
));
3207 if (S_GET_NUMBER_AUXILIARY (debug
) > S_GET_NUMBER_AUXILIARY (normal
))
3209 S_SET_NUMBER_AUXILIARY (normal
, S_GET_NUMBER_AUXILIARY (debug
));
3210 } /* take the most we have */
3212 if (S_GET_NUMBER_AUXILIARY (debug
) > 0)
3214 memcpy ((char *) &normal
->sy_symbol
.ost_auxent
[0],
3215 (char *) &debug
->sy_symbol
.ost_auxent
[0],
3216 (unsigned int) (S_GET_NUMBER_AUXILIARY (debug
) * AUXESZ
));
3217 } /* Move all the auxiliary information */
3219 /* Move the debug flags. */
3220 SF_SET_DEBUG_FIELD (normal
, SF_GET_DEBUG_FIELD (debug
));
3221 } /* c_symbol_merge() */
3224 c_line_new (symbol
, paddr
, line_number
, frag
)
3230 struct lineno_list
*new_line
=
3231 (struct lineno_list
*) xmalloc (sizeof (struct lineno_list
));
3233 segment_info_type
*s
= segment_info
+ now_seg
;
3234 new_line
->line
.l_lnno
= line_number
;
3236 if (line_number
== 0)
3238 last_line_symbol
= symbol
;
3239 new_line
->line
.l_addr
.l_symndx
= (long) symbol
;
3243 new_line
->line
.l_addr
.l_paddr
= paddr
;
3246 new_line
->frag
= (char *) frag
;
3247 new_line
->next
= (struct lineno_list
*) NULL
;
3250 if (s
->lineno_list_head
== (struct lineno_list
*) NULL
)
3252 s
->lineno_list_head
= new_line
;
3256 s
->lineno_list_tail
->next
= new_line
;
3258 s
->lineno_list_tail
= new_line
;
3259 return LINESZ
* s
->scnhdr
.s_nlnno
++;
3263 c_dot_file_symbol (filename
)
3268 symbolP
= symbol_new (".file",
3271 &zero_address_frag
);
3273 S_SET_STORAGE_CLASS (symbolP
, C_FILE
);
3274 S_SET_NUMBER_AUXILIARY (symbolP
, 1);
3275 SA_SET_FILE_FNAME (symbolP
, filename
);
3281 listing_source_file (filename
);
3287 SF_SET_DEBUG (symbolP
);
3288 S_SET_VALUE (symbolP
, (valueT
) previous_file_symbol
);
3290 previous_file_symbol
= symbolP
;
3292 /* Make sure that the symbol is first on the symbol chain */
3293 if (symbol_rootP
!= symbolP
)
3295 if (symbolP
== symbol_lastP
)
3297 symbol_lastP
= symbol_lastP
->sy_previous
;
3298 } /* if it was the last thing on the list */
3300 symbol_remove (symbolP
, &symbol_rootP
, &symbol_lastP
);
3301 symbol_insert (symbolP
, symbol_rootP
, &symbol_rootP
, &symbol_lastP
);
3302 symbol_rootP
= symbolP
;
3303 } /* if not first on the list */
3305 } /* c_dot_file_symbol() */
3308 * Build a 'section static' symbol.
3312 c_section_symbol (name
, idx
)
3318 symbolP
= symbol_new (name
, idx
,
3320 &zero_address_frag
);
3322 S_SET_STORAGE_CLASS (symbolP
, C_STAT
);
3323 S_SET_NUMBER_AUXILIARY (symbolP
, 1);
3325 SF_SET_STATICS (symbolP
);
3328 } /* c_section_symbol() */
3331 w_symbols (abfd
, where
, symbol_rootP
)
3334 symbolS
* symbol_rootP
;
3339 /* First fill in those values we have only just worked out */
3340 for (i
= SEG_E0
; i
< SEG_E9
; i
++)
3342 symbolP
= segment_info
[i
].dot
;
3345 SA_SET_SCN_SCNLEN (symbolP
, segment_info
[i
].scnhdr
.s_size
);
3346 SA_SET_SCN_NRELOC (symbolP
, segment_info
[i
].scnhdr
.s_nreloc
);
3347 SA_SET_SCN_NLINNO (symbolP
, segment_info
[i
].scnhdr
.s_nlnno
);
3352 * Emit all symbols left in the symbol chain.
3354 for (symbolP
= symbol_rootP
; symbolP
; symbolP
= symbol_next (symbolP
))
3356 /* Used to save the offset of the name. It is used to point
3357 to the string in memory but must be a file offset. */
3358 register char *temp
;
3360 tc_coff_symbol_emit_hook (symbolP
);
3362 temp
= S_GET_NAME (symbolP
);
3363 if (SF_GET_STRING (symbolP
))
3365 S_SET_OFFSET (symbolP
, symbolP
->sy_name_offset
);
3366 S_SET_ZEROES (symbolP
, 0);
3370 memset (symbolP
->sy_symbol
.ost_entry
.n_name
, 0, SYMNMLEN
);
3371 strncpy (symbolP
->sy_symbol
.ost_entry
.n_name
, temp
, SYMNMLEN
);
3373 where
= symbol_to_chars (abfd
, where
, symbolP
);
3374 S_SET_NAME (symbolP
, temp
);
3380 obj_coff_lcomm (ignore
)
3393 name
= input_line_pointer
;
3395 c
= get_symbol_end ();
3396 p
= input_line_pointer
;
3399 if (*input_line_pointer
!= ',')
3401 as_bad ("Expected comma after name");
3402 ignore_rest_of_line ();
3405 if (*input_line_pointer
== '\n')
3407 as_bad ("Missing size expression");
3410 input_line_pointer
++;
3411 if ((temp
= get_absolute_expression ()) < 0)
3413 as_warn ("lcomm length (%d.) <0! Ignored.", temp
);
3414 ignore_rest_of_line ();
3419 symbolP
= symbol_find_or_make(name
);
3421 if (S_GET_SEGMENT(symbolP
) == SEG_UNKNOWN
&&
3422 S_GET_VALUE(symbolP
) == 0)
3427 segT current_seg
= now_seg
; /* save current seg */
3428 subsegT current_subseg
= now_subseg
;
3430 subseg_set (SEG_E2
, 1);
3431 symbolP
->sy_frag
= frag_now
;
3432 p
= frag_var(rs_org
, 1, 1, (relax_substateT
)0, symbolP
,
3435 subseg_set (current_seg
, current_subseg
); /* restore current seg */
3436 S_SET_SEGMENT(symbolP
, SEG_E2
);
3437 S_SET_STORAGE_CLASS(symbolP
, C_STAT
);
3441 as_bad("Symbol %s already defined", name
);
3443 demand_empty_rest_of_line();
3448 fixup_mdeps (frags
, h
, this_segment
)
3453 subseg_change (this_segment
, 0);
3456 switch (frags
->fr_type
)
3460 frags
->fr_type
= rs_fill
;
3462 (frags
->fr_next
->fr_address
- frags
->fr_address
- frags
->fr_fix
);
3464 case rs_machine_dependent
:
3465 md_convert_frag (h
, frags
);
3471 frags
= frags
->fr_next
;
3477 fixup_segment (segP
, this_segment_type
)
3478 segment_info_type
* segP
;
3479 segT this_segment_type
;
3481 register fixS
* fixP
;
3482 register symbolS
*add_symbolP
;
3483 register symbolS
*sub_symbolP
;
3484 register long add_number
;
3486 register char *place
;
3487 register long where
;
3488 register char pcrel
;
3489 register fragS
*fragP
;
3490 register segT add_symbol_segment
= absolute_section
;
3495 for (fixP
= segP
->fix_root
; fixP
; fixP
= fixP
->fx_next
)
3497 fragP
= fixP
->fx_frag
;
3499 where
= fixP
->fx_where
;
3500 place
= fragP
->fr_literal
+ where
;
3501 size
= fixP
->fx_size
;
3502 add_symbolP
= fixP
->fx_addsy
;
3504 if (fixP
->fx_tcbit
&& SF_GET_CALLNAME (add_symbolP
))
3506 /* Relocation should be done via the associated 'bal' entry
3509 if (!SF_GET_BALNAME (tc_get_bal_of_call (add_symbolP
)))
3511 as_bad_where (fixP
->fx_file
, fixP
->fx_line
,
3512 "No 'bal' entry point for leafproc %s",
3513 S_GET_NAME (add_symbolP
));
3516 fixP
->fx_addsy
= add_symbolP
= tc_get_bal_of_call (add_symbolP
);
3519 sub_symbolP
= fixP
->fx_subsy
;
3520 add_number
= fixP
->fx_offset
;
3521 pcrel
= fixP
->fx_pcrel
;
3525 add_symbol_segment
= S_GET_SEGMENT (add_symbolP
);
3526 } /* if there is an addend */
3533 if (S_GET_SEGMENT (sub_symbolP
) != absolute_section
)
3535 as_bad_where (fixP
->fx_file
, fixP
->fx_line
,
3536 "Negative of non-absolute symbol %s",
3537 S_GET_NAME (sub_symbolP
));
3538 } /* not absolute */
3540 add_number
-= S_GET_VALUE (sub_symbolP
);
3543 /* if sub_symbol is in the same segment that add_symbol
3544 and add_symbol is either in DATA, TEXT, BSS or ABSOLUTE */
3546 else if ((S_GET_SEGMENT (sub_symbolP
) == add_symbol_segment
)
3547 && (SEG_NORMAL (add_symbol_segment
)
3548 || (add_symbol_segment
== absolute_section
)))
3550 /* Difference of 2 symbols from same segment. Can't
3551 make difference of 2 undefineds: 'value' means
3552 something different for N_UNDF. */
3554 /* Makes no sense to use the difference of 2 arbitrary symbols
3555 as the target of a call instruction. */
3558 as_bad_where (fixP
->fx_file
, fixP
->fx_line
,
3559 "callj to difference of 2 symbols");
3561 #endif /* TC_I960 */
3562 add_number
+= S_GET_VALUE (add_symbolP
) -
3563 S_GET_VALUE (sub_symbolP
);
3566 fixP
->fx_addsy
= NULL
;
3567 fixP
->fx_subsy
= NULL
;
3572 /* Different segments in subtraction. */
3573 know (!(S_IS_EXTERNAL (sub_symbolP
) && (S_GET_SEGMENT (sub_symbolP
) == absolute_section
)));
3575 if ((S_GET_SEGMENT (sub_symbolP
) == absolute_section
))
3577 add_number
-= S_GET_VALUE (sub_symbolP
);
3580 else if (S_GET_SEGMENT (sub_symbolP
) == this_segment_type
3581 #if 0 /* Okay for 68k, at least... */
3586 /* Make it pc-relative. */
3587 add_number
+= (md_pcrel_from (fixP
)
3588 - S_GET_VALUE (sub_symbolP
));
3597 as_bad_where (fixP
->fx_file
, fixP
->fx_line
,
3598 "Can't emit reloc {- %s-seg symbol \"%s\"} @ file address %ld.",
3599 segment_name (S_GET_SEGMENT (sub_symbolP
)),
3600 S_GET_NAME (sub_symbolP
),
3601 (long) (fragP
->fr_address
+ where
));
3604 } /* if sub_symbolP */
3608 if (add_symbol_segment
== this_segment_type
&& pcrel
)
3611 * This fixup was made when the symbol's segment was
3612 * SEG_UNKNOWN, but it is now in the local segment.
3613 * So we know how to do the address without relocation.
3616 /* reloc_callj() may replace a 'call' with a 'calls' or a 'bal',
3617 * in which cases it modifies *fixP as appropriate. In the case
3618 * of a 'calls', no further work is required, and *fixP has been
3619 * set up to make the rest of the code below a no-op.
3622 #endif /* TC_I960 */
3624 add_number
+= S_GET_VALUE (add_symbolP
);
3625 add_number
-= md_pcrel_from (fixP
);
3626 #if defined (TC_I386) || defined (TE_LYNX)
3627 /* On the 386 we must adjust by the segment
3628 vaddr as well. Ian Taylor. */
3629 add_number
-= segP
->scnhdr
.s_vaddr
;
3631 pcrel
= 0; /* Lie. Don't want further pcrel processing. */
3632 fixP
->fx_addsy
= NULL
;
3637 switch (add_symbol_segment
)
3639 case absolute_section
:
3641 reloc_callj (fixP
); /* See comment about reloc_callj() above*/
3642 #endif /* TC_I960 */
3643 add_number
+= S_GET_VALUE (add_symbolP
);
3644 fixP
->fx_addsy
= NULL
;
3651 #if defined(TC_A29K) || (defined(TE_PE) && defined(TC_I386))
3652 /* This really should be handled in the linker, but
3653 backward compatibility forbids. */
3654 add_number
+= S_GET_VALUE (add_symbolP
);
3656 add_number
+= S_GET_VALUE (add_symbolP
) +
3657 segment_info
[S_GET_SEGMENT (add_symbolP
)].scnhdr
.s_paddr
;
3663 if ((int) fixP
->fx_bit_fixP
== 13)
3665 /* This is a COBR instruction. They have only a
3666 * 13-bit displacement and are only to be used
3667 * for local branches: flag as error, don't generate
3670 as_bad_where (fixP
->fx_file
, fixP
->fx_line
,
3671 "can't use COBR format with external label");
3672 fixP
->fx_addsy
= NULL
;
3676 #endif /* TC_I960 */
3677 #if defined (TC_I386) || defined (TE_LYNX)
3678 /* 386 COFF uses a peculiar format in which the
3679 value of a common symbol is stored in the .text
3680 segment (I've checked this on SVR3.2 and SCO
3681 3.2.2) Ian Taylor <ian@cygnus.com>. */
3682 if (S_IS_COMMON (add_symbolP
))
3683 add_number
+= S_GET_VALUE (add_symbolP
);
3688 } /* switch on symbol seg */
3689 } /* if not in local seg */
3690 } /* if there was a + symbol */
3694 #if !defined(TC_M88K) && !(defined(TE_PE) && defined(TC_I386))
3695 /* This adjustment is not correct on the m88k, for which the
3696 linker does all the computation. */
3697 add_number
-= md_pcrel_from (fixP
);
3699 if (add_symbolP
== 0)
3701 fixP
->fx_addsy
= &abs_symbol
;
3702 } /* if there's an add_symbol */
3703 #if defined (TC_I386) || defined (TE_LYNX)
3704 /* On the 386 we must adjust by the segment vaddr
3705 as well. Ian Taylor. */
3706 add_number
-= segP
->scnhdr
.s_vaddr
;
3710 if (!fixP
->fx_bit_fixP
)
3713 /* The m88k uses the offset field of the reloc to get around
3716 && (add_number
& ~0xFF)
3717 && ((add_number
& ~0xFF) != (-1 & ~0xFF)))
3719 && (add_number
& ~0xFFFF)
3720 && ((add_number
& ~0xFFFF) != (-1 & ~0xFFFF))))
3722 as_bad_where (fixP
->fx_file
, fixP
->fx_line
,
3723 "Value of %ld too large for field of %d bytes at 0x%lx",
3724 (long) add_number
, size
,
3725 (unsigned long) (fragP
->fr_address
+ where
));
3728 #ifdef WARN_SIGNED_OVERFLOW_WORD
3729 /* Warn if a .word value is too large when treated as a
3730 signed number. We already know it is not too negative.
3731 This is to catch over-large switches generated by gcc on
3733 if (!flag_signed_overflow_ok
3735 && add_number
> 0x7fff)
3736 as_bad_where (fixP
->fx_file
, fixP
->fx_line
,
3737 "Signed .word overflow; switch may be too large; %ld at 0x%lx",
3739 (unsigned long) (fragP
->fr_address
+ where
));
3741 } /* not a bit fix */
3742 /* Once this fix has been applied, we don't have to output
3743 anything nothing more need be done. */
3744 md_apply_fix (fixP
, add_number
);
3745 } /* For each fixS in this segment. */
3746 } /* fixup_segment() */
3750 /* The first entry in a .stab section is special. */
3753 obj_coff_init_stab_section (seg
)
3759 unsigned int stroff
;
3761 /* Make space for this first symbol. */
3765 as_where (&file
, (unsigned int *) NULL
);
3766 stabstr_name
= (char *) alloca (strlen (segment_info
[seg
].scnhdr
.s_name
) + 4);
3767 strcpy (stabstr_name
, segment_info
[seg
].scnhdr
.s_name
);
3768 strcat (stabstr_name
, "str");
3769 stroff
= get_stab_string_offset (file
, stabstr_name
);
3771 md_number_to_chars (p
, stroff
, 4);
3774 /* Fill in the counts in the first entry in a .stab section. */
3777 adjust_stab_section(abfd
, seg
)
3781 segT stabstrseg
= SEG_UNKNOWN
;
3782 char *secname
, *name
, *name2
;
3784 int i
, strsz
= 0, nsyms
;
3785 fragS
*frag
= segment_info
[seg
].frchainP
->frch_root
;
3787 /* Look for the associated string table section. */
3789 secname
= segment_info
[seg
].scnhdr
.s_name
;
3790 name
= (char *) alloca (strlen (secname
) + 4);
3791 strcpy (name
, secname
);
3792 strcat (name
, "str");
3794 for (i
= SEG_E0
; i
< SEG_UNKNOWN
; i
++)
3796 name2
= segment_info
[i
].scnhdr
.s_name
;
3797 if (name2
!= NULL
&& strncmp(name2
, name
, 8) == 0)
3804 /* If we found the section, get its size. */
3805 if (stabstrseg
!= SEG_UNKNOWN
)
3806 strsz
= size_section (abfd
, stabstrseg
);
3808 nsyms
= size_section (abfd
, seg
) / 12 - 1;
3810 /* Look for the first frag of sufficient size for the initial stab
3811 symbol, and collect a pointer to it. */
3812 while (frag
&& frag
->fr_fix
< 12)
3813 frag
= frag
->fr_next
;
3815 p
= frag
->fr_literal
;
3818 /* Write in the number of stab symbols and the size of the string
3820 bfd_h_put_16 (abfd
, (bfd_vma
) nsyms
, (bfd_byte
*) p
+ 6);
3821 bfd_h_put_32 (abfd
, (bfd_vma
) strsz
, (bfd_byte
*) p
+ 8);
3824 #endif /* not BFD_ASSEMBLER */
3826 const pseudo_typeS obj_pseudo_table
[] =
3828 {"def", obj_coff_def
, 0},
3829 {"dim", obj_coff_dim
, 0},
3830 {"endef", obj_coff_endef
, 0},
3831 {"line", obj_coff_line
, 0},
3832 {"ln", obj_coff_ln
, 0},
3833 {"appline", obj_coff_ln
, 1},
3834 {"scl", obj_coff_scl
, 0},
3835 {"size", obj_coff_size
, 0},
3836 {"tag", obj_coff_tag
, 0},
3837 {"type", obj_coff_type
, 0},
3838 {"val", obj_coff_val
, 0},
3839 {"section", obj_coff_section
, 0},
3840 #ifndef BFD_ASSEMBLER
3841 {"use", obj_coff_section
, 0},
3842 {"sect", obj_coff_section
, 0},
3843 {"text", obj_coff_text
, 0},
3844 {"data", obj_coff_data
, 0},
3845 {"bss", obj_coff_bss
, 0},
3846 {"lcomm", obj_coff_lcomm
, 0},
3847 {"ident", obj_coff_ident
, 0},
3849 {"optim", s_ignore
, 0}, /* For sun386i cc (?) */
3850 {"ident", s_ignore
, 0}, /* we don't yet handle this. */
3852 {"ABORT", s_abort
, 0},
3854 /* The m88k uses sdef instead of def. */
3855 {"sdef", obj_coff_def
, 0},
3857 {NULL
} /* end sentinel */
3858 }; /* obj_pseudo_table */