From c068d5be63b558c53cfb79369d225b2d5e87d0c5 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 21 May 2010 13:19:34 +0000 Subject: [PATCH] 2010-05-21 Tristan Gingold * vms-alpha.c (_bfd_vms_slurp_eisd): Set SEC_HAS_CONTENTS and SEC_LOAD if isect has data. (vms_get_symbol_info): Refine the condition for 'T' type. --- bfd/ChangeLog | 6 ++++++ bfd/vms-alpha.c | 13 ++++++++----- 2 files changed, 14 insertions(+), 5 deletions(-) diff --git a/bfd/ChangeLog b/bfd/ChangeLog index 2b81809a19c..167e8c6f062 100644 --- a/bfd/ChangeLog +++ b/bfd/ChangeLog @@ -1,3 +1,9 @@ +2010-05-21 Tristan Gingold + + * vms-alpha.c (_bfd_vms_slurp_eisd): Set SEC_HAS_CONTENTS and + SEC_LOAD if isect has data. + (vms_get_symbol_info): Refine the condition for 'T' type. + 2010-05-18 Tristan Gingold * vms-alpha.c (_bfd_vms_write_emh): New function. diff --git a/bfd/vms-alpha.c b/bfd/vms-alpha.c index 8d1d7cbf088..2c6a19c600f 100644 --- a/bfd/vms-alpha.c +++ b/bfd/vms-alpha.c @@ -547,12 +547,14 @@ _bfd_vms_slurp_eisd (bfd *abfd, unsigned int offset) what's in each section without examining the data. This is especially true of DWARF debug sections. */ bfd_flags = SEC_ALLOC; + if (vbn != 0) + bfd_flags |= SEC_HAS_CONTENTS | SEC_LOAD; if (flags & EISD__M_EXE) - bfd_flags |= SEC_CODE | SEC_HAS_CONTENTS | SEC_LOAD; + bfd_flags |= SEC_CODE; if (flags & EISD__M_NONSHRADR) - bfd_flags |= SEC_DATA | SEC_HAS_CONTENTS | SEC_LOAD; + bfd_flags |= SEC_DATA; if (!(flags & EISD__M_WRT)) bfd_flags |= SEC_READONLY; @@ -561,10 +563,10 @@ _bfd_vms_slurp_eisd (bfd *abfd, unsigned int offset) bfd_flags |= SEC_DATA; if (flags & EISD__M_FIXUPVEC) - bfd_flags |= SEC_DATA | SEC_HAS_CONTENTS | SEC_LOAD; + bfd_flags |= SEC_DATA; if (flags & EISD__M_CRF) - bfd_flags |= SEC_HAS_CONTENTS | SEC_LOAD; + bfd_flags |= SEC_DATA; if (flags & EISD__M_GBL) { @@ -8944,7 +8946,8 @@ vms_get_symbol_info (bfd * abfd ATTRIBUTE_UNUSED, ret->type = 'U'; else if (bfd_is_ind_section (sec)) ret->type = 'I'; - else if (bfd_get_section_flags (abfd, sec) & SEC_CODE) + else if ((symbol->flags & BSF_FUNCTION) + || (bfd_get_section_flags (abfd, sec) & SEC_CODE)) ret->type = 'T'; else if (bfd_get_section_flags (abfd, sec) & SEC_DATA) ret->type = 'D'; -- 2.30.2