diff options
| author | Alan Modra <amodra@bigpond.net.au> | 2002-10-04 03:19:32 +0000 |
|---|---|---|
| committer | Alan Modra <amodra@gcc.gnu.org> | 2002-10-04 12:49:32 +0930 |
| commit | 69c75916740ba75141accc68df66e17a486c11d1 (patch) | |
| tree | f6dd85b0a09052e992e48fc03ab268c6a92bfa81 /gcc | |
| parent | adf2ac37137aa5a76823cc24ae5dbebab4e587f5 (diff) | |
| download | gcc-69c75916740ba75141accc68df66e17a486c11d1.zip gcc-69c75916740ba75141accc68df66e17a486c11d1.tar.gz gcc-69c75916740ba75141accc68df66e17a486c11d1.tar.bz2 | |
rs6000.c (rs6000_output_function_epilogue): Use a name for the tbtab label that depends on the function asm name.
* config/rs6000/rs6000.c (rs6000_output_function_epilogue): Use a
name for the tbtab label that depends on the function asm name.
Don't output tbtab label unless optional_tbtab.
(output_mi_thunk): Formatting.
From-SVN: r57798
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/config/rs6000/rs6000.c | 25 |
2 files changed, 21 insertions, 11 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index c15ccb7..ffd1b53 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,10 @@ +2002-10-04 Alan Modra <amodra@bigpond.net.au> + + * config/rs6000/rs6000.c (rs6000_output_function_epilogue): Use a + name for the tbtab label that depends on the function asm name. + Don't output tbtab label unless optional_tbtab. + (output_mi_thunk): Formatting. + 2002-10-03 Richard Henderson <rth@redhat.com> * config/m68k/m68k.h (OVERRIDE_OPTIONS): Move additional code ... diff --git a/gcc/config/rs6000/rs6000.c b/gcc/config/rs6000/rs6000.c index 666c6af..b293cc2 100644 --- a/gcc/config/rs6000/rs6000.c +++ b/gcc/config/rs6000/rs6000.c @@ -10967,7 +10967,7 @@ rs6000_output_function_epilogue (file, size) if (DEFAULT_ABI == ABI_AIX && ! flag_inhibit_size_directive && rs6000_traceback != traceback_none) { - const char *fname = XSTR (XEXP (DECL_RTL (current_function_decl), 0), 0); + const char *fname = NULL; const char *language_string = lang_hooks.name; int fixed_parms = 0, float_parms = 0, parm_info = 0; int i; @@ -10980,15 +10980,17 @@ rs6000_output_function_epilogue (file, size) else optional_tbtab = !optimize_size && !TARGET_ELF; - while (*fname == '.') /* V.4 encodes . in the name */ - fname++; + if (optional_tbtab) + { + fname = XSTR (XEXP (DECL_RTL (current_function_decl), 0), 0); + while (*fname == '.') /* V.4 encodes . in the name */ + fname++; - /* Need label immediately before tbtab, so we can compute its offset - from the function start. */ - if (*fname == '*') - ++fname; - ASM_OUTPUT_INTERNAL_LABEL_PREFIX (file, "LT"); - ASM_OUTPUT_LABEL (file, fname); + /* Need label immediately before tbtab, so we can compute + its offset from the function start. */ + ASM_OUTPUT_INTERNAL_LABEL_PREFIX (file, "LT"); + ASM_OUTPUT_LABEL (file, fname); + } /* The .tbtab pseudo-op can only be used for the first eight expressions, since it can't handle the possibly variable @@ -11160,6 +11162,8 @@ rs6000_output_function_epilogue (file, size) /* Omit this list of longs, because there are no CTL anchors. */ /* Length of function name. */ + if (*fname == '*') + ++fname; fprintf (file, "\t.short %d\n", (int) strlen (fname)); /* Function name. */ @@ -11285,7 +11289,6 @@ output_mi_thunk (file, thunk_fndecl, delta, function) TYPE_ATTRIBUTES (TREE_TYPE (function))) || lookup_attribute ("shortcall", TYPE_ATTRIBUTES (TREE_TYPE (function))))) - { fprintf (file, "\tb %s", prefix); assemble_name (file, fname); @@ -11320,7 +11323,7 @@ output_mi_thunk (file, thunk_fndecl, delta, function) if (TARGET_ELF) function_section (current_function_decl); else - text_section(); + text_section (); if (TARGET_MINIMAL_TOC) asm_fprintf (file, (TARGET_32BIT) ? "\t{l|lwz} %s,%s(%s)\n" : "\tld %s,%s(%s)\n", r12, |