OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

(ASM_OUTPUT_EXTERNAL): Use vms_check_external. 

(ASM_GLOBALIZE_LABEL): New definition; use vms_check_external.

From-SVN: r3526
This commit is contained in:
Richard Stallman 1993-02-25 00:25:31 +00:00
parent 6ec2b050b5
commit 903da76595
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gcc/config/vax/vms.h
View File

@ -121,6 +121,17 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
if (DECL_EXTERNAL (decl) && TREE_PUBLIC (decl)) \ if (DECL_EXTERNAL (decl) && TREE_PUBLIC (decl)) \
SYMBOL_REF_FLAG (XEXP (DECL_RTL (decl), 0)) = 1; 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 /* 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 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 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. */ since the size of its definition was not likewise rounded up. */
#define ASM_OUTPUT_EXTERNAL(FILE,DECL,NAME) \ #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)) \ if (TREE_READONLY (decl) && ! TREE_THIS_VOLATILE (decl)) \
const_section (); \ const_section (); \