diff options
Diffstat (limited to 'gas')
| -rw-r--r-- | gas/ChangeLog | 15 | ||||
| -rw-r--r-- | gas/config/tc-ppc.c | 121 |
2 files changed, 126 insertions, 10 deletions
diff --git a/gas/ChangeLog b/gas/ChangeLog index 1f4ca514bc..823b942d63 100644 --- a/gas/ChangeLog +++ b/gas/ChangeLog @@ -1,5 +1,20 @@ Sat Oct 28 01:02:05 1995 Ian Lance Taylor <ian@cygnus.com> + * config/tc-ppc.c (md_pseudo_table): Add "data" and "text". + (ppc_csect): Move most of the code to ppc_change_csect, and call + it. + (ppc_change_csect): New static function, taken from ppc_csect. + (ppc_section): New static function. + (ppc_saw_abs): New static varable. + (ppc_frob_symbol): Create aux entry for absolute symbols. Warn if + a symbol has no csect. + (ppc_adjust_symtab): New function. + * config/tc-ppc.h (tc_adjust_symtab): Define if OBJ_XCOFF. + (ppc_adjust_symtab): Declare if OBJ_XCOFF. + + * write.c (write_object_file): If tc_adjust_symtab is defined, + call it just before the call to obj_adjust_symtab. + * symbols.c (symbol_find_or_make): Change name to be const. * symbols.h (symbol_find_or_make): Update declaration. diff --git a/gas/config/tc-ppc.c b/gas/config/tc-ppc.c index f7cf199ad1..773ea5c523 100644 --- a/gas/config/tc-ppc.c +++ b/gas/config/tc-ppc.c @@ -60,9 +60,11 @@ static void ppc_eb PARAMS ((int)); static void ppc_ef PARAMS ((int)); static void ppc_es PARAMS ((int)); static void ppc_csect PARAMS ((int)); +static void ppc_change_csect PARAMS ((symbolS *)); static void ppc_function PARAMS ((int)); static void ppc_extern PARAMS ((int)); static void ppc_lglobl PARAMS ((int)); +static void ppc_section PARAMS ((int)); static void ppc_stabx PARAMS ((int)); static void ppc_rename PARAMS ((int)); static void ppc_toc PARAMS ((int)); @@ -129,6 +131,7 @@ const pseudo_typeS md_pseudo_table[] = { "bi", ppc_biei, 0 }, { "bs", ppc_bs, 0 }, { "csect", ppc_csect, 0 }, + { "data", ppc_section, 'd' }, { "eb", ppc_eb, 0 }, { "ef", ppc_ef, 0 }, { "ei", ppc_biei, 1 }, @@ -138,6 +141,7 @@ const pseudo_typeS md_pseudo_table[] = { "lglobl", ppc_lglobl, 0 }, { "rename", ppc_rename, 0 }, { "stabx", ppc_stabx, 0 }, + { "text", ppc_section, 't' }, { "toc", ppc_toc, 0 }, #endif @@ -1943,6 +1947,23 @@ ppc_csect (ignore) *input_line_pointer = endc; + ppc_change_csect (sym); + + if (*input_line_pointer == ',') + { + ++input_line_pointer; + sym->sy_tc.align = get_absolute_expression (); + } + + demand_empty_rest_of_line (); +} + +/* Change to a different csect. */ + +static void +ppc_change_csect (sym) + symbolS *sym; +{ if (S_IS_DEFINED (sym)) subseg_set (S_GET_SEGMENT (sym), sym->sy_tc.subseg); else @@ -2009,13 +2030,30 @@ ppc_csect (ignore) symbol_append (sym, list->sy_tc.within, &symbol_rootP, &symbol_lastP); } - if (*input_line_pointer == ',') - { - ++input_line_pointer; - sym->sy_tc.align = get_absolute_expression (); - } - ppc_current_csect = sym; +} + +/* This function handles the .text and .data pseudo-ops. These + pseudo-ops aren't really used by XCOFF; we implement them for the + convenience of people who aren't used to XCOFF. */ + +static void +ppc_section (type) + int type; +{ + const char *name; + symbolS *sym; + + if (type == 't') + name = ".text[PR]"; + else if (type == 'd') + name = ".data[RW]"; + else + abort (); + + sym = symbol_find_or_make (name); + + ppc_change_csect (sym); demand_empty_rest_of_line (); } @@ -3356,6 +3394,12 @@ ppc_frob_label (sym) } } +/* This variable is set by ppc_frob_symbol if any absolute symbols are + seen. It tells ppc_adjust_symtab whether it needs to look through + the symbols. */ + +static boolean ppc_saw_abs; + /* Change the name of a symbol just before writing it out. Set the real name if the .rename pseudo-op was used. Otherwise, remove any class suffix. Return 1 if the symbol should not be included in the @@ -3444,9 +3488,8 @@ ppc_frob_symbol (sym) && S_GET_SEGMENT (sym) != ppc_coff_debug_section) S_SET_STORAGE_CLASS (sym, C_HIDEXT); - if ((S_GET_STORAGE_CLASS (sym) == C_EXT - || S_GET_STORAGE_CLASS (sym) == C_HIDEXT) - && S_GET_SEGMENT (sym) != absolute_section) + if (S_GET_STORAGE_CLASS (sym) == C_EXT + || S_GET_STORAGE_CLASS (sym) == C_HIDEXT) { int i; union internal_auxent *a; @@ -3488,6 +3531,15 @@ ppc_frob_symbol (sym) else sym->sy_tc.class = XMC_BS; } + else if (S_GET_SEGMENT (sym) == absolute_section) + { + /* This is an absolute symbol. The csect will be created by + ppc_adjust_symtab. */ + ppc_saw_abs = true; + a->x_csect.x_smtyp = XTY_LD; + if (sym->sy_tc.class == -1) + sym->sy_tc.class = XMC_XO; + } else if (! S_IS_DEFINED (sym)) { /* This is an external symbol. */ @@ -3539,7 +3591,10 @@ ppc_frob_symbol (sym) csect = csect->sy_tc.next; if (csect == (symbolS *) NULL) - a->x_csect.x_scnlen.l = 0; + { + as_warn ("warning: symbol %s has no csect", S_GET_NAME (sym)); + a->x_csect.x_scnlen.l = 0; + } else { while (csect->sy_tc.next != (symbolS *) NULL) @@ -3597,6 +3652,52 @@ ppc_frob_symbol (sym) return 0; } +/* Adjust the symbol table. This creates csect symbols for all + absolute symbols. */ + +void +ppc_adjust_symtab () +{ + symbolS *sym; + + if (! ppc_saw_abs) + return; + + for (sym = symbol_rootP; sym != NULL; sym = symbol_next (sym)) + { + symbolS *csect; + int i; + union internal_auxent *a; + + if (S_GET_SEGMENT (sym) != absolute_section) + continue; + + csect = symbol_create (".abs[XO]", absolute_section, + S_GET_VALUE (sym), &zero_address_frag); + csect->bsym->value = S_GET_VALUE (sym); + S_SET_STORAGE_CLASS (csect, C_HIDEXT); + i = S_GET_NUMBER_AUXILIARY (csect); + S_SET_NUMBER_AUXILIARY (csect, i + 1); + a = &coffsymbol (csect->bsym)->native[i + 1].u.auxent; + a->x_csect.x_scnlen.l = 0; + a->x_csect.x_smtyp = XTY_SD; + a->x_csect.x_parmhash = 0; + a->x_csect.x_snhash = 0; + a->x_csect.x_smclas = XMC_XO; + a->x_csect.x_stab = 0; + a->x_csect.x_snstab = 0; + + symbol_insert (csect, sym, &symbol_rootP, &symbol_lastP); + + i = S_GET_NUMBER_AUXILIARY (sym); + a = &coffsymbol (sym->bsym)->native[i].u.auxent; + a->x_csect.x_scnlen.p = coffsymbol (csect->bsym)->native; + coffsymbol (sym->bsym)->native[i].fix_scnlen = 1; + } + + ppc_saw_abs = false; +} + /* Set the VMA for a section. This is called on all the sections in turn. */ |
