53   char *name;			/* Name of section.  */
57   flagword flags_hassize;	/* Flags we set if the section has a size > 0.  */
142 /* Retrieve bfd section flags by name and size.  */
170 /* Retrieve vms section flags by name and size.  */
264   asection *section;  in _bfd_vms_slurp_gsd()  local
292   /* Calculate base address for each section.  */  in _bfd_vms_slurp_gsd()
317 	    /* Program section definition.  */  in _bfd_vms_slurp_gsd()
323 	    /* If this section isn't a bfd section.  */  in _bfd_vms_slurp_gsd()
326 		/* Check for temporary section from TIR record.  */  in _bfd_vms_slurp_gsd()
334 	    section = bfd_make_section (abfd, name);  in _bfd_vms_slurp_gsd()
335 	    if (!section)  in _bfd_vms_slurp_gsd()
342 	    section->size = bfd_getl32 (vms_rec + 4);  /* allocation */  in _bfd_vms_slurp_gsd()
344 					     section->size > 0);  in _bfd_vms_slurp_gsd()
349 	    if (!bfd_set_section_flags (abfd, section, new_flags))  in _bfd_vms_slurp_gsd()
356 	    section->alignment_power = vms_rec[1];  in _bfd_vms_slurp_gsd()
357 	    align_addr = (1 << section->alignment_power);  in _bfd_vms_slurp_gsd()
360 	    section->vma = (bfd_vma)base_addr;  in _bfd_vms_slurp_gsd()
361 	    base_addr += section->size;  in _bfd_vms_slurp_gsd()
363 	    /* Global section is common symbol.  */  in _bfd_vms_slurp_gsd()
376 		symbol->section = section;  in _bfd_vms_slurp_gsd()
383 		section->contents = old_section->contents;  in _bfd_vms_slurp_gsd()
384 		if (section->size < old_section->size)  in _bfd_vms_slurp_gsd()
387 		      (_("Size mismatch section %s=%lx, %s=%lx"),  in _bfd_vms_slurp_gsd()
390 		       section->name,  in _bfd_vms_slurp_gsd()
391 		       (unsigned long) section->size);  in _bfd_vms_slurp_gsd()
394 		else if (section->size > old_section->size)  in _bfd_vms_slurp_gsd()
396 		    section->contents = bfd_realloc (old_section->contents,  in _bfd_vms_slurp_gsd()
397 						     section->size);  in _bfd_vms_slurp_gsd()
398 		    if (section->contents == NULL)  in _bfd_vms_slurp_gsd()
407 		section->contents = bfd_zmalloc (section->size);  in _bfd_vms_slurp_gsd()
408 		if (section->contents == NULL)  in _bfd_vms_slurp_gsd()
416 		       section->index, name, old_flags, flag2str (gpsflagdesc, old_flags));  in _bfd_vms_slurp_gsd()
418 		       section->size, section->vma, section->contents);  in _bfd_vms_slurp_gsd()
498 		symbol->section = (asection *) (size_t) psect;  in _bfd_vms_slurp_gsd()
501 …symbol->name, (int)symbol->section, symbol->section, old_flags, flag2str (gsyflagdesc, old_flags));  in _bfd_vms_slurp_gsd()
507 		symbol->section = bfd_make_section (abfd, BFD_UND_SECTION_NAME);  in _bfd_vms_slurp_gsd()
510 			   abfd->symcount, symbol->name, symbol->section->name,  in _bfd_vms_slurp_gsd()
511 			   symbol->section, old_flags, flag2str (gsyflagdesc, old_flags));  in _bfd_vms_slurp_gsd()
575 	    /* Program section definition.  */  in _bfd_vms_slurp_gsd()
577 	    section = bfd_make_section (abfd, name);  in _bfd_vms_slurp_gsd()
578 	    if (!section)  in _bfd_vms_slurp_gsd()
581 	    section->size = bfd_getl32 (vms_rec + 8);	/* Allocation.  */  in _bfd_vms_slurp_gsd()
583 					     section->size > 0);  in _bfd_vms_slurp_gsd()
586 	    if (!bfd_set_section_flags (abfd, section, new_flags))  in _bfd_vms_slurp_gsd()
588 	    section->alignment_power = vms_rec[4];  in _bfd_vms_slurp_gsd()
589 	    align_addr = (1 << section->alignment_power);  in _bfd_vms_slurp_gsd()
592 	    section->vma = (bfd_vma)base_addr;  in _bfd_vms_slurp_gsd()
593 	    base_addr += section->size;  in _bfd_vms_slurp_gsd()
594 	    section->contents = bfd_zmalloc (section->size);  in _bfd_vms_slurp_gsd()
595 	    if (section->contents == NULL)  in _bfd_vms_slurp_gsd()
599 		       section->index, name, old_flags, flag2str (gpsflagdesc, old_flags));  in _bfd_vms_slurp_gsd()
601 		       section->size, section->vma, section->contents);  in _bfd_vms_slurp_gsd()
628 		symbol->section = (asection *) ((unsigned long) bfd_getl32 (vms_rec + 28));  in _bfd_vms_slurp_gsd()
631 			   symbol->name, (int) symbol->section, old_flags,  in _bfd_vms_slurp_gsd()
643 		symbol->section = bfd_make_section (abfd, BFD_UND_SECTION_NAME);  in _bfd_vms_slurp_gsd()
695 /* Write section and symbol directory of bfd abfd.  */
700   asection *section;  in _bfd_vms_write_gsd()  local
713   section = abfd->sections;  in _bfd_vms_write_gsd()
726   while (section != 0)  in _bfd_vms_write_gsd()
729 …    vms_debug (3, "Section #%d %s, %d bytes\n", section->index, section->name, (int)section->size);  in _bfd_vms_write_gsd()
744       while (section->index - last_index > 1)  in _bfd_vms_write_gsd()
747 	  vms_debug (3, "index %d, last %d\n", section->index, last_index);  in _bfd_vms_write_gsd()
761       sname = (char *)section->name;  in _bfd_vms_write_gsd()
786       _bfd_vms_output_short (abfd, section->alignment_power & 0xff);  in _bfd_vms_write_gsd()
787       if (bfd_is_com_section (section))  in _bfd_vms_write_gsd()
791 					  section->size > 0);  in _bfd_vms_write_gsd()
794       _bfd_vms_output_long (abfd, (unsigned long) section->size);  in _bfd_vms_write_gsd()
798       last_index = section->index;  in _bfd_vms_write_gsd()
799       section = section->next;  in _bfd_vms_write_gsd()
825 	  && (!bfd_is_und_section (symbol->section)))	/* ...and not xref.  */  in _bfd_vms_write_gsd()
848       if (bfd_is_com_section (symbol->section))  in _bfd_vms_write_gsd()
859 	  if (!bfd_is_abs_section (symbol->section))  in _bfd_vms_write_gsd()
874 	      ca_psindx = ((asymbol *) (symbol->udata.p))->section->index;  in _bfd_vms_write_gsd()
876 	  psindx = symbol->section->index;  in _bfd_vms_write_gsd()