diff options
| author | Richard Stallman <rms@gnu.org> | 1993-02-25 00:25:31 +0000 |
|---|---|---|
| committer | Richard Stallman <rms@gnu.org> | 1993-02-25 00:25:31 +0000 |
| commit | 903da7659535bb088b58905c7c0a673e8219af12 (patch) | |
| tree | 7514df08fda406002e78bdfaeaa2c914372d53cb /gcc | |
| parent | 6ec2b050b5485519ccf924ab3c867786b8c30c22 (diff) | |
| download | gcc-903da7659535bb088b58905c7c0a673e8219af12.zip gcc-903da7659535bb088b58905c7c0a673e8219af12.tar.gz gcc-903da7659535bb088b58905c7c0a673e8219af12.tar.bz2 | |
(ASM_OUTPUT_EXTERNAL): Use vms_check_external.
(ASM_GLOBALIZE_LABEL): New definition; use vms_check_external.
From-SVN: r3526
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/config/vax/vms.h | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/gcc/config/vax/vms.h b/gcc/config/vax/vms.h index bc85199..9bdf6c1 100644 --- a/gcc/config/vax/vms.h +++ b/gcc/config/vax/vms.h @@ -121,6 +121,17 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ if (DECL_EXTERNAL (decl) && TREE_PUBLIC (decl)) \ SYMBOL_REF_FLAG (XEXP (DECL_RTL (decl), 0)) = 1; +/* This is how to output a command to make the user-level label named NAME + defined for reference from other files. */ + +#undef ASM_GLOBALIZE_LABEL +#define ASM_GLOBALIZE_LABEL(FILE,NAME) \ + do { fputs (".globl ", FILE); \ + assemble_name (FILE, NAME); \ + fputs ("\n", FILE); \ + vms_check_external (NAME); \ + } while (0) + /* Under VMS we write the actual size of the storage to be allocated even though the symbol is external. Although it is possible to give external symbols a size of 0 (as unix does), the VMS linker does not make the @@ -144,7 +155,8 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ since the size of its definition was not likewise rounded up. */ #define ASM_OUTPUT_EXTERNAL(FILE,DECL,NAME) \ -{ if (DECL_INITIAL (DECL) == 0 && TREE_CODE (DECL) != FUNCTION_DECL) \ +{ if (DECL_INITIAL (DECL) == 0 && TREE_CODE (DECL) != FUNCTION_DECL \ + && ! vms_check_external (NAME)) \ { \ if (TREE_READONLY (decl) && ! TREE_THIS_VOLATILE (decl)) \ const_section (); \ |