diff options
Diffstat (limited to 'gcc/config')
| -rw-r--r-- | gcc/config/alpha/alpha.c | 11 | ||||
| -rw-r--r-- | gcc/config/alpha/vms.h | 5 |
2 files changed, 15 insertions, 1 deletions
diff --git a/gcc/config/alpha/alpha.c b/gcc/config/alpha/alpha.c index 6a7076db172..a9f5fba7ca5 100644 --- a/gcc/config/alpha/alpha.c +++ b/gcc/config/alpha/alpha.c @@ -7837,6 +7837,17 @@ alpha_start_function (FILE *file, const char *fnname, TREE_ASM_WRITTEN (name_tree) = 1; } +#if TARGET_ABI_OPEN_VMS + if (vms_debug_main + && strncmp (vms_debug_main, fnname, strlen (vms_debug_main)) == 0) + { + targetm.asm_out.globalize_label (asm_out_file, VMS_DEBUG_MAIN_POINTER); + ASM_OUTPUT_DEF (asm_out_file, VMS_DEBUG_MAIN_POINTER, fnname); + switch_to_section (text_section); + vms_debug_main = NULL; + } +#endif + alpha_fnname = fnname; sa_size = alpha_sa_size (); diff --git a/gcc/config/alpha/vms.h b/gcc/config/alpha/vms.h index 4f043a5dc8a..d7a6389512f 100644 --- a/gcc/config/alpha/vms.h +++ b/gcc/config/alpha/vms.h @@ -1,5 +1,6 @@ /* Output variables, constants and external declarations, for GNU compiler. - Copyright (C) 1996, 1997, 1998, 2000, 2001, 2002, 2004, 2005, 2007, 2008 + Copyright (C) 1996, 1997, 1998, 2000, 2001, 2002, 2004, 2005, 2007, 2008, + 2009 Free Software Foundation, Inc. This file is part of GCC. @@ -50,6 +51,8 @@ along with GCC; see the file COPYING3. If not see #undef TARGET_VERSION #define TARGET_VERSION fprintf (stderr, " (%s)", TARGET_NAME); +#define VMS_DEBUG_MAIN_POINTER "TRANSFER$BREAK$GO" + #undef PCC_STATIC_STRUCT_RETURN /* "long" is 32 bits, but 64 bits for Ada. */ |