Richard Stallman
parent
8ef309962a
commit
4e81a331e8
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,249 @@
|
|||
/* Output variables, constants and external declarations, for GNU compiler.
|
||||
Copyright (C) 1988 Free Software Foundation, Inc.
|
||||
|
||||
This file is part of GNU CC.
|
||||
|
||||
GNU CC is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2, or (at your option)
|
||||
any later version.
|
||||
|
||||
GNU CC is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with GNU CC; see the file COPYING. If not, write to
|
||||
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||
|
||||
/* This enables certain macros in vax.h, which will make an indirect
|
||||
reference to an external symbol an invalid address. This needs to be
|
||||
defined before we include vax.h, since it determines which macros
|
||||
are used for GO_IF_*. */
|
||||
|
||||
#define NO_EXTERNAL_INDIRECT_ADDRESS
|
||||
|
||||
#include "vax.h"
|
||||
|
||||
#undef LIB_SPEC
|
||||
#undef CPP_PREDEFINES
|
||||
#undef TARGET_VERSION
|
||||
#undef TARGET_DEFAULT
|
||||
#undef CALL_USED_REGISTERS
|
||||
#undef MAYBE_VMS_FUNCTION_PROLOGUE
|
||||
|
||||
/* Predefine this in CPP because VMS limits the size of command options
|
||||
and GNU CPP is not used on VMS except with GNU C. */
|
||||
#define CPP_PREDEFINES "-Dvax -Dvms -DVMS -D__GNU__ -D__GNUC__"
|
||||
|
||||
/* Strictly speaking, VMS does not use DBX at all, but the interpreter built
|
||||
into gas only speaks straight DBX. */
|
||||
|
||||
#define DEFAULT_GDB_EXTENSIONS 0
|
||||
|
||||
/* By default, allow $ to be part of an identifier. */
|
||||
#define DOLLARS_IN_IDENTIFIERS 2
|
||||
|
||||
#define TARGET_DEFAULT 1
|
||||
#define TARGET_VERSION fprintf (stderr, " (vax vms)");
|
||||
|
||||
#define CALL_USED_REGISTERS {1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1}
|
||||
|
||||
#define __MAIN_NAME " main ("
|
||||
/*
|
||||
* The MAYBE_VMS_FUNCTION_PROLOGUE macro works for both gcc and g++. It
|
||||
* first checks to see if the current routine is "main", which will only
|
||||
* happen for GCC, and add the jsb if it is. If is not the case then try and
|
||||
* see if __MAIN_NAME is part of current_function_name, which will only happen
|
||||
* if we are running g++, and add the jsb if it is. In gcc there should never
|
||||
* be a space in the function name, and in g++ there is always a "(" in the
|
||||
* function name, thus there should never be any confusion.
|
||||
*/
|
||||
#define MAYBE_VMS_FUNCTION_PROLOGUE(FILE) \
|
||||
{ extern char *current_function_name; \
|
||||
if (!strcmp ("main", current_function_name)) \
|
||||
fprintf(FILE, "\tjsb _c$main_args\n"); \
|
||||
else { \
|
||||
char *p = current_function_name; \
|
||||
while (*p != '\0') \
|
||||
if (*p == *__MAIN_NAME) \
|
||||
if (strncmp(p, __MAIN_NAME, (sizeof __MAIN_NAME)-1) == 0) {\
|
||||
fprintf(FILE, "\tjsb _c$main_args\n");\
|
||||
break; \
|
||||
} else \
|
||||
p++; \
|
||||
else \
|
||||
p++; \
|
||||
}; \
|
||||
}
|
||||
|
||||
/* This macro definition sets up a default value for `main' to return. */
|
||||
#define DEFAULT_MAIN_RETURN c_expand_return (integer_one_node)
|
||||
|
||||
/* This makes use of a hook in varasm.c to mark all external variables
|
||||
for us. We use this to make sure that external variables are correctly
|
||||
addressed. Under VMS there is some brain damage in the linker that requires
|
||||
us to do this. */
|
||||
|
||||
#define ENCODE_SECTION_INFO(decl) \
|
||||
if (TREE_EXTERNAL (decl) && TREE_PUBLIC (decl)) \
|
||||
SYMBOL_REF_FLAG (XEXP (DECL_RTL (decl), 0)) = 1;
|
||||
|
||||
/* 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
|
||||
distinction between a variable definition and an external reference of a
|
||||
variable, and thus the linker will not complain about a missing definition.
|
||||
If we followed the unix example of giving external symbols a size of
|
||||
zero, you tried to link a program where a given variable was externally
|
||||
defined but none of the object modules contained a non-extern definition,
|
||||
the linker would allocate 0 bytes for the variable, and any attempt to
|
||||
use that variable would use the storage allocated to some other variable.
|
||||
|
||||
We must also select either const_section or data_section: this will indicate
|
||||
whether or not the variable will get the readonly bit set. Since the
|
||||
VMS linker does not distinguish between a variable's definition and an
|
||||
external reference, all usages of a given variable must have the readonly
|
||||
bit set the same way, or the linker will get confused and give warning
|
||||
messages. */
|
||||
|
||||
/* We used to round the size up to a multiple of 4,
|
||||
but that causes linker errors sometimes when the variable was initialized
|
||||
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 (TREE_READONLY (decl) && ! TREE_THIS_VOLATILE (decl)) \
|
||||
const_section (); \
|
||||
else \
|
||||
data_section (); \
|
||||
fputs (".comm ", (FILE)); \
|
||||
assemble_name ((FILE), (NAME)); \
|
||||
if (DECL_SIZE (DECL) == 0) \
|
||||
fprintf ((FILE), ",0\n"); \
|
||||
else \
|
||||
{ \
|
||||
tree size_tree; \
|
||||
size_tree = size_binop (CEIL_DIV_EXPR, \
|
||||
DECL_SIZE (DECL), size_int (BITS_PER_UNIT)); \
|
||||
fprintf ((FILE), ",%d\n", TREE_INT_CST_LOW (size_tree)); \
|
||||
} \
|
||||
} \
|
||||
}
|
||||
|
||||
/* Here we redefine ASM_OUTPUT_COMMON to select the data_section or the
|
||||
const_section before writing the ".const" assembler directive.
|
||||
If we were specifying a size of zero for external variables, we would
|
||||
not have to select a section, since the assembler can assume that
|
||||
when the size > 0, the storage is for a non-external, uninitialized
|
||||
variable (for which a "const" declaration would be senseless),
|
||||
and the assembler can make the storage read/write.
|
||||
|
||||
Since the ".const" directive specifies the actual size of the storage used
|
||||
for both external and non-external variables, the assembler cannot
|
||||
make this assumption, and thus it has no way of deciding if storage should
|
||||
be read/write or read-only. To resolve this, we give the assembler some
|
||||
assistance, in the form of a ".const" or a ".data" directive.
|
||||
|
||||
Under GCC 1.40, external variables were declared with a size of zero.
|
||||
The GNU assembler, GAS, will recognize the "-2" switch when built for VMS;
|
||||
when compiling programs with GCC 2.n this switch should be used or the
|
||||
assembler will not give the read-only attribute to external constants.
|
||||
Failure to use this switch will result in linker warning messages about
|
||||
mismatched psect attributes. */
|
||||
|
||||
#undef ASM_OUTPUT_COMMON
|
||||
|
||||
#define ASM_OUTPUT_COMMON(FILE, NAME, SIZE, ROUNDED) \
|
||||
( ((TREE_READONLY (decl) && ! TREE_THIS_VOLATILE (decl)) \
|
||||
? (const_section (), 0) : (data_section (), 0)), \
|
||||
fputs (".comm ", (FILE)), \
|
||||
assemble_name ((FILE), (NAME)), \
|
||||
fprintf ((FILE), ",%u\n", (ROUNDED)))
|
||||
|
||||
/* We define this to prevent the name mangler from putting dollar signs into
|
||||
function names. This isn't really needed, but it has been here for
|
||||
some time and removing it would cause the object files generated by the
|
||||
compiler to be incompatible with the object files from a compiler that
|
||||
had this defined. Since it does no harm, we leave it in. */
|
||||
|
||||
#define NO_DOLLAR_IN_LABEL
|
||||
|
||||
/* Add a "const" section. This is viewed by the assember as being nearly
|
||||
the same as the "data" section, with the only difference being that a
|
||||
flag is set for variables declared while in the const section. This
|
||||
flag is used to determine whether or not the read/write bit should be
|
||||
set in the Psect definition. */
|
||||
|
||||
#define EXTRA_SECTIONS in_const
|
||||
|
||||
#define EXTRA_SECTION_FUNCTIONS \
|
||||
void \
|
||||
const_section () \
|
||||
{ \
|
||||
if (in_section != in_const) { \
|
||||
fprintf(asm_out_file,".const\n"); \
|
||||
in_section = in_const; \
|
||||
} \
|
||||
}
|
||||
|
||||
/* This macro contains the logic to decide which section a variable
|
||||
should be stored in. Static constant variables go in the text_section,
|
||||
non-const variables go in the data_section, and non-static const
|
||||
variables go in the const_section.
|
||||
|
||||
Since this macro is used in a number of places, we must also be able
|
||||
to decide where to place string constants. */
|
||||
|
||||
#define SELECT_SECTION(T,RELOC) \
|
||||
{ \
|
||||
if (TREE_CODE (T) == VAR_DECL) \
|
||||
{ \
|
||||
if (TREE_READONLY (T) && ! TREE_THIS_VOLATILE (T)) \
|
||||
{ \
|
||||
if (TREE_PUBLIC (T)) \
|
||||
const_section (); \
|
||||
else \
|
||||
text_section (); \
|
||||
} \
|
||||
else \
|
||||
data_section (); \
|
||||
} \
|
||||
if (*tree_code_type[(int) TREE_CODE (T)] == 'c') \
|
||||
{ \
|
||||
if ((TREE_CODE (T) == STRING_CST && flag_writable_strings)) \
|
||||
data_section (); \
|
||||
else \
|
||||
text_section (); \
|
||||
} \
|
||||
}
|
||||
|
||||
/* This is used by a hook in varasm.c to write the assembler directives
|
||||
that are needed to tell the startup code which constructors need to
|
||||
be run. */
|
||||
|
||||
#define ASM_OUTPUT_CONSTRUCTOR(FILE,NAME) \
|
||||
{ \
|
||||
fprintf ((FILE),".globl $$PsectAttributes_NOOVR$$__gxx_init_1\n"); \
|
||||
data_section(); \
|
||||
fprintf ((FILE),"$$PsectAttributes_NOOVR$$__gxx_init_1:\n\t.long\t"); \
|
||||
assemble_name ((FILE), (NAME)); \
|
||||
fputc ('\n', (FILE)); \
|
||||
}
|
||||
|
||||
/* This is used by a hook in varasm.c to write the assembler directives
|
||||
that are needed to tell the startup code which destructors need to
|
||||
be run. */
|
||||
|
||||
#define ASM_OUTPUT_DESTRUCTOR(FILE,NAME) \
|
||||
{ \
|
||||
fprintf ((FILE),".globl $$PsectAttributes_NOOVR$$__gxx_clean_1\n"); \
|
||||
data_section(); \
|
||||
fprintf ((FILE),"$$PsectAttributes_NOOVR$$__gxx_clean_1:\n\t.long\t");\
|
||||
assemble_name ((FILE), (NAME)); \
|
||||
fputc ('\n', (FILE)); \
|
||||
}
|
||||
|
||||
|
||||
Loading…
Reference in New Issue