mirror of
https://gcc.gnu.org/git/gcc.git
synced 2024-11-30 15:24:07 +08:00
vms.h (LINK_SPEC): Simplify.
libgcc/ 2012-03-26 Tristan Gingold <gingold@adacore.com> * config/alpha/vms.h (LINK_SPEC): Simplify. (STARTFILE_SPEC): Remove -mvms-return-codes handling. (NAME__MAIN, SYMBOL__MAIN): Remove. (VMS_DEBUG_MAIN_POINTER): Remove. * config/ia64/vms.h: Likewise. * config/alpha/alpha.c (alpha_start_function): Move vms_debug_main code to vms.c. Call vms_start_function. * config/ia64/ia64.c (ia64_start_function): Likewise. * config/vms/vms-protos.h (vms_start_function): Declare. * config/vms/vms.c (vms_start_function): New function. * config/vms/vms.h (MATH_LIBRARY): Define. (VMS_DEBUG_MAIN_POINTER): Define. gcc/ 2012-03-26 Tristan Gingold <gingold@adacore.com> * config/alpha/vms.h (LINK_SPEC): Simplify. (STARTFILE_SPEC): Remove -mvms-return-codes handling. (NAME__MAIN, SYMBOL__MAIN): Remove. (VMS_DEBUG_MAIN_POINTER): Remove. * config/ia64/vms.h: Likewise. * config/alpha/alpha.c (alpha_start_function): Move vms_debug_main code to vms.c. Call vms_start_function. * config/ia64/ia64.c (ia64_start_function): Likewise. * config/vms/vms-protos.h (vms_start_function): Declare. * config/vms/vms.c (vms_start_function): New function. * config/vms/vms.h (MATH_LIBRARY): Define. (VMS_DEBUG_MAIN_POINTER): Define. From-SVN: r185791
This commit is contained in:
Tristan Gingold
Tristan Gingold
parent
db9f46a927
commit
4b12e93df8
@ -1,3 +1,18 @@
|
||||
2012-03-26 Tristan Gingold <gingold@adacore.com>
|
||||
|
||||
* config/alpha/vms.h (LINK_SPEC): Simplify.
|
||||
(STARTFILE_SPEC): Remove -mvms-return-codes handling.
|
||||
(NAME__MAIN, SYMBOL__MAIN): Remove.
|
||||
(VMS_DEBUG_MAIN_POINTER): Remove.
|
||||
* config/ia64/vms.h: Likewise.
|
||||
* config/alpha/alpha.c (alpha_start_function): Move vms_debug_main
|
||||
code to vms.c. Call vms_start_function.
|
||||
* config/ia64/ia64.c (ia64_start_function): Likewise.
|
||||
* config/vms/vms-protos.h (vms_start_function): Declare.
|
||||
* config/vms/vms.c (vms_start_function): New function.
|
||||
* config/vms/vms.h (MATH_LIBRARY): Define.
|
||||
(VMS_DEBUG_MAIN_POINTER): Define.
|
||||
|
||||
2012-03-26 Eric Botcazou <ebotcazou@adacore.com>
|
||||
|
||||
PR rtl-optimization/52629
|
||||
|
||||
@ -7866,14 +7866,7 @@ alpha_start_function (FILE *file, const char *fnname,
|
||||
int i;
|
||||
|
||||
#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;
|
||||
}
|
||||
vms_start_function (fnname);
|
||||
#endif
|
||||
|
||||
alpha_fnname = fnname;
|
||||
|
||||
@ -43,8 +43,6 @@ along with GCC; see the file COPYING3. If not see
|
||||
builtin_define ("__IEEE_FLOAT"); \
|
||||
} while (0)
|
||||
|
||||
#define VMS_DEBUG_MAIN_POINTER "TRANSFER$BREAK$GO"
|
||||
|
||||
#undef PCC_STATIC_STRUCT_RETURN
|
||||
|
||||
#define MAX_OFILE_ALIGNMENT 524288 /* 8 x 2^16 by DEC Ada Test CD40VRA */
|
||||
@ -279,21 +277,14 @@ do { \
|
||||
#else
|
||||
/* Link with vms-dwarf2.o if -g (except -g0). This causes the
|
||||
VMS link to pull all the dwarf2 debug sections together. */
|
||||
#define LINK_SPEC "%{g:-g vms-dwarf2.o%s} %{g0} %{g1:-g1 vms-dwarf2.o%s} \
|
||||
%{g2:-g2 vms-dwarf2.o%s} %{g3:-g3 vms-dwarf2.o%s} %{shared} %{v} %{map}"
|
||||
#define LINK_SPEC "%{g0} %{g*:-g vms-dwarf2.o%s} %{shared} %{v} %{map}"
|
||||
#endif
|
||||
|
||||
#undef STARTFILE_SPEC
|
||||
#define STARTFILE_SPEC \
|
||||
"%{!shared:%{mvms-return-codes:vcrt0.o%s} %{!mvms-return-codes:pcrt0.o%s} \
|
||||
crtbegin.o%s} \
|
||||
#define STARTFILE_SPEC "%{!shared:crt0.o%s crtbegin.o%s} \
|
||||
%{!static:%{shared:crtbeginS.o%s}}"
|
||||
|
||||
#define ENDFILE_SPEC \
|
||||
"%{!shared:crtend.o%s} %{!static:%{shared:crtendS.o%s}}"
|
||||
|
||||
#define NAME__MAIN "__gccmain"
|
||||
#define SYMBOL__MAIN __gccmain
|
||||
#define ENDFILE_SPEC "%{!shared:crtend.o%s} %{!static:%{shared:crtendS.o%s}}"
|
||||
|
||||
#define INIT_SECTION_ASM_OP "\t.section LIB$INITIALIZE,GBL,NOWRT"
|
||||
|
||||
|
||||
@ -3649,16 +3649,8 @@ void
|
||||
ia64_start_function (FILE *file, const char *fnname,
|
||||
tree decl ATTRIBUTE_UNUSED)
|
||||
{
|
||||
#if VMS_DEBUGGING_INFO
|
||||
if (vms_debug_main
|
||||
&& debug_info_level > DINFO_LEVEL_NONE
|
||||
&& 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);
|
||||
dwarf2out_vms_debug_main_pointer ();
|
||||
vms_debug_main = 0;
|
||||
}
|
||||
#if TARGET_ABI_OPEN_VMS
|
||||
vms_start_function (fnname);
|
||||
#endif
|
||||
|
||||
fputs ("\t.proc ", file);
|
||||
|
||||
@ -30,8 +30,6 @@ along with GCC; see the file COPYING3. If not see
|
||||
#undef TARGET_DEFAULT
|
||||
#define TARGET_DEFAULT (MASK_DWARF2_ASM | MASK_GNU_AS)
|
||||
|
||||
#define VMS_DEBUG_MAIN_POINTER "TRANSFER$BREAK$GO"
|
||||
|
||||
#undef MAX_OFILE_ALIGNMENT
|
||||
#define MAX_OFILE_ALIGNMENT 524288 /* 8 x 2^16 by DEC Ada Test CD40VRA */
|
||||
|
||||
@ -55,19 +53,16 @@ do { \
|
||||
} while (0)
|
||||
|
||||
#undef STARTFILE_SPEC
|
||||
#define STARTFILE_SPEC \
|
||||
"%{!shared:%{mvms-return-codes:vcrt0.o%s} %{!mvms-return-codes:pcrt0.o%s} \
|
||||
crtbegin.o%s} \
|
||||
#define STARTFILE_SPEC "%{!shared:crt0.o%s crtbegin.o%s} \
|
||||
%{!static:%{shared:crtinitS.o%s crtbeginS.o%s}}"
|
||||
|
||||
#undef ENDFILE_SPEC
|
||||
#define ENDFILE_SPEC \
|
||||
"%{!shared:crtend.o%s} %{!static:%{shared:crtendS.o%s}}"
|
||||
#define ENDFILE_SPEC "%{!shared:crtend.o%s} %{!static:%{shared:crtendS.o%s}}"
|
||||
|
||||
#define LINK_GCC_C_SEQUENCE_SPEC "%G"
|
||||
|
||||
#undef LINK_SPEC
|
||||
#define LINK_SPEC "%{g*} %{map} %{save-temps} %{shared} %{v}"
|
||||
#define LINK_SPEC "%{g0} %{g*:-g} %{map} %{save-temps} %{shared} %{v}"
|
||||
|
||||
#undef LIB_SPEC
|
||||
#define LIB_SPEC ""
|
||||
@ -89,9 +84,6 @@ do { \
|
||||
#undef TARGET_INIT_LIBFUNCS
|
||||
#define TARGET_INIT_LIBFUNCS ia64_vms_init_libfuncs
|
||||
|
||||
#define NAME__MAIN "__gccmain"
|
||||
#define SYMBOL__MAIN __gccmain
|
||||
|
||||
#define CTOR_LIST_BEGIN asm (".global\tLIB$INITIALIZE#\n"); \
|
||||
STATIC func_ptr __CTOR_LIST__[1] \
|
||||
__attribute__ ((__unused__, section(".ctors"), aligned(sizeof(func_ptr)))) \
|
||||
|
||||
@ -31,4 +31,5 @@ extern section *vms_function_section (tree decl ATTRIBUTE_UNUSED,
|
||||
enum node_frequency freq ATTRIBUTE_UNUSED,
|
||||
bool startup ATTRIBUTE_UNUSED,
|
||||
bool exit ATTRIBUTE_UNUSED);
|
||||
extern void vms_start_function (const char *fname);
|
||||
#endif /* TREE_CODE */
|
||||
|
||||
@ -23,8 +23,9 @@ along with GCC; see the file COPYING3. If not see
|
||||
#include "coretypes.h"
|
||||
#include "tree.h"
|
||||
#include "vms-protos.h"
|
||||
#include "tm.h"
|
||||
#include "ggc.h"
|
||||
#include "target.h"
|
||||
#include "output.h"
|
||||
|
||||
/* Correlation of standard CRTL names with DECCRTL function names. */
|
||||
|
||||
@ -194,4 +195,43 @@ vms_function_section (tree decl ATTRIBUTE_UNUSED,
|
||||
return NULL;
|
||||
}
|
||||
|
||||
/* Additionnal VMS specific code for start_function. */
|
||||
|
||||
/* Must be kept in sync with libgcc/config/vms/vms-ucrt0.c */
|
||||
#define VMS_MAIN_FLAGS_SYMBOL "__gcc_main_flags"
|
||||
#define MAIN_FLAG_64BIT (1 << 0)
|
||||
#define MAIN_FLAG_POSIX (1 << 1)
|
||||
|
||||
void
|
||||
vms_start_function (const char *fnname)
|
||||
{
|
||||
#if VMS_DEBUGGING_INFO
|
||||
if (vms_debug_main
|
||||
&& debug_info_level > DINFO_LEVEL_NONE
|
||||
&& 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);
|
||||
dwarf2out_vms_debug_main_pointer ();
|
||||
vms_debug_main = 0;
|
||||
}
|
||||
#endif
|
||||
|
||||
/* Registers flags used for function main. This is necessary for
|
||||
crt0 code. */
|
||||
if (strcmp (fnname, "main") == 0)
|
||||
{
|
||||
unsigned int flags = 0;
|
||||
|
||||
if (flag_vms_pointer_size == VMS_POINTER_SIZE_64)
|
||||
flags |= MAIN_FLAG_64BIT;
|
||||
if (!flag_vms_return_codes)
|
||||
flags |= MAIN_FLAG_POSIX;
|
||||
|
||||
targetm.asm_out.globalize_label (asm_out_file, VMS_MAIN_FLAGS_SYMBOL);
|
||||
assemble_name (asm_out_file, VMS_MAIN_FLAGS_SYMBOL);
|
||||
fprintf (asm_out_file, " = %u\n", flags);
|
||||
}
|
||||
}
|
||||
|
||||
#include "gt-vms.h"
|
||||
|
||||
@ -75,10 +75,15 @@ extern void vms_c_register_includes (const char *, const char *, int);
|
||||
#define C_COMMON_OVERRIDE_OPTIONS vms_c_common_override_options ()
|
||||
|
||||
/* VMS doesn't support other sections than .text for code. */
|
||||
|
||||
#define TARGET_ASM_FUNCTION_SECTION vms_function_section
|
||||
|
||||
/* Always use 8 bytes addresses in dwarf2 debug info. The default value doesn't
|
||||
work as it may be 4 bytes, which won't match gas default (8 bytes for ia64),
|
||||
and will thus produce incorrect values. */
|
||||
#define DWARF2_ADDR_SIZE 8
|
||||
|
||||
/* No libm on VMS. */
|
||||
#define MATH_LIBRARY ""
|
||||
|
||||
/* Special VMS debugger symbol to record the entry point. */
|
||||
#define VMS_DEBUG_MAIN_POINTER "TRANSFER$BREAK$GO"
|
||||
|
||||
@ -1,3 +1,13 @@
|
||||
2012-03-26 Tristan Gingold <gingold@adacore.com>
|
||||
|
||||
* config/vms/vms-ucrt0.c: Update copyright years.
|
||||
Add a sanity check.
|
||||
(___gcc_main_flags): Declare.
|
||||
(__main): Check flags to remap argv and exit code.
|
||||
* config.host (*-*-*vms*): Adjust extra_parts.
|
||||
* config/vms/t-vms (vcrt0.o, pcrt0.o): Remove.
|
||||
(crt0.o): Add.
|
||||
|
||||
2012-03-22 Richard Earnshaw <rearnsha@arm.com>
|
||||
|
||||
* arm/lib1funcs.asm (ctzsi2): New function.
|
||||
|
||||
@ -255,7 +255,7 @@ case ${host} in
|
||||
;;
|
||||
*-*-*vms*)
|
||||
tmake_file="vms/t-vms"
|
||||
extra_parts="vcrt0.o pcrt0.o crtbegin.o crtbeginS.o crtend.o crtendS.o"
|
||||
extra_parts="crt0.o crtbegin.o crtbeginS.o crtend.o crtendS.o"
|
||||
;;
|
||||
*-*-vxworks*)
|
||||
tmake_file=t-vxworks
|
||||
|
||||
@ -1,6 +1,3 @@
|
||||
# Assemble startup files.
|
||||
vcrt0.o: $(srcdir)/config/vms/vms-ucrt0.c
|
||||
$(gcc_compile) -c $<
|
||||
|
||||
pcrt0.o: $(srcdir)/config/vms/vms-ucrt0.c
|
||||
$(gcc_compile) -c -DCRT0_POSIX_EXIT $<
|
||||
# Assemble startup file.
|
||||
crt0.o: $(srcdir)/config/vms/vms-ucrt0.c
|
||||
$(gcc_compile) -mpointer-size=64 -c $<
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
/* VMS crt0 returning Unix style condition codes.
|
||||
Copyright (C) 2001, 2009, 2010 Free Software Foundation, Inc.
|
||||
Copyright (C) 2001, 2009, 2010, 2012 Free Software Foundation, Inc.
|
||||
Contributed by Douglas B. Rupp (rupp@gnat.com).
|
||||
|
||||
This file is part of GCC.
|
||||
@ -25,12 +25,16 @@
|
||||
|
||||
#include <stdlib.h>
|
||||
|
||||
/* Sanity check. */
|
||||
#if __INITIAL_POINTER_SIZE != 64
|
||||
#error "vms-ucrt0.c must be compiled with -mpointer-size=64"
|
||||
#endif
|
||||
|
||||
/* Lots of cheat to handle 32bits/64bits pointer conversions.
|
||||
We use 'long long' for 64 bits pointers and 'int' for 32 bits pointers. */
|
||||
|
||||
extern void decc$main (void *arg1, void *arg2, void *arg3,
|
||||
void *image_file_desc, void *arg5, void *arg6,
|
||||
int *, int *, int *);
|
||||
extern void decc$main (void *, void *, void *, void *, unsigned int,
|
||||
unsigned int, int *, int *, int *);
|
||||
extern int main (int, char **, char **);
|
||||
extern int _malloc32 (int);
|
||||
|
||||
@ -40,8 +44,8 @@ extern int _malloc32 (int);
|
||||
#define MAIN_ASM_NAME
|
||||
#endif
|
||||
|
||||
int __main (void *arg1, void *arg2, void *arg3,
|
||||
void *image_file_desc, void *arg5, void *arg6) MAIN_ASM_NAME;
|
||||
int __main (void *, void *, void *, void *,
|
||||
unsigned int, unsigned int) MAIN_ASM_NAME;
|
||||
|
||||
/* From errnodef.h, but we need to emulate the globalval. */
|
||||
extern int C$_EXIT1;
|
||||
@ -49,79 +53,90 @@ extern int C$_EXIT1;
|
||||
/* From stsdef.h */
|
||||
#define STS$V_MSG_NO 0x03
|
||||
#define STS$M_INHIB_MSG 0x10000000
|
||||
/* Symbol defined while main() is compiled to record the flags used.
|
||||
(Note that the symbol defines the value, ie extract the bits from the
|
||||
address).
|
||||
bit 0 set for 64 bit pointers
|
||||
bit 1 set for posix return value. */
|
||||
extern char __gcc_main_flags;
|
||||
|
||||
/* From ssdef.h */
|
||||
#define SS$_NORMAL 1
|
||||
#define MAIN_FLAG_64BIT (1 << 0)
|
||||
#define MAIN_FLAG_POSIX (1 << 1)
|
||||
|
||||
int
|
||||
__main (void *arg1, void *arg2, void *arg3,
|
||||
void *image_file_desc, void *arg5, void *arg6)
|
||||
__main (void *progxfer, void *cli_util, void *imghdr, void *image_file_desc,
|
||||
unsigned int linkflag, unsigned int cliflag)
|
||||
{
|
||||
int argc;
|
||||
int argv;
|
||||
int envp;
|
||||
int status;
|
||||
int i;
|
||||
long long *long_argv;
|
||||
long long *long_envp;
|
||||
char **argv64;
|
||||
char **envp64;
|
||||
unsigned int flags = (unsigned __int64)&__gcc_main_flags;
|
||||
|
||||
/* The argv and envp arrays are 32 bits pointers to 32 bits pointers. */
|
||||
decc$main (arg1, arg2, arg3, image_file_desc,
|
||||
arg5, arg6, &argc, &argv, &envp);
|
||||
decc$main (progxfer, cli_util, imghdr, image_file_desc,
|
||||
linkflag, cliflag, &argc, &argv, &envp);
|
||||
|
||||
if (sizeof (void *) == 8)
|
||||
if (flags & MAIN_FLAG_64BIT)
|
||||
{
|
||||
int i;
|
||||
|
||||
/* Reallocate argv and envp with 64 bit pointers. */
|
||||
long_argv = (long long *)
|
||||
(long long) _malloc32 (sizeof (long long) * (argc + 1));
|
||||
argv64 = (char **) _malloc32 (sizeof (char *) * (argc + 1));
|
||||
|
||||
for (i = 0; i < argc; i++)
|
||||
long_argv[i] = ((int *) (long long) argv)[i];
|
||||
argv64[i] = (char *) (__int64)(((int *) (__int64) argv)[i]);
|
||||
|
||||
long_argv[argc] = 0;
|
||||
argv64[argc] = NULL;
|
||||
|
||||
for (i = 0; ((int *) (long long) envp)[i]; i++)
|
||||
for (i = 0; ((int *) (__int64) envp)[i]; i++)
|
||||
;
|
||||
long_envp = (long long *)
|
||||
(long long) _malloc32 (sizeof (long long) * (i + 1));
|
||||
envp64 = (char **) _malloc32 (sizeof (char *) * (i + 1));
|
||||
|
||||
for (i = 0; ((int *) (long long) envp)[i]; i++)
|
||||
long_envp[i] = ((int *) (long long) envp)[i];
|
||||
for (i = 0; ((int *) (__int64) envp)[i]; i++)
|
||||
envp64[i] = (char *)(__int64)(((int *) (__int64) envp)[i]);
|
||||
|
||||
long_envp[i] = 0;
|
||||
envp64[i] = NULL;
|
||||
}
|
||||
else
|
||||
{
|
||||
long_argv = (long long *) argv;
|
||||
long_envp = (long long *) envp;
|
||||
argv64 = (char **)(__int64)argv;
|
||||
envp64 = (char **)(__int64)envp;
|
||||
}
|
||||
status = main (argc, (char **)long_argv, (char **)long_envp);
|
||||
|
||||
#ifdef CRT0_POSIX_EXIT
|
||||
/* Map into a range of 0 - 255. */
|
||||
status = status & 255;
|
||||
status = main (argc, argv64, envp64);
|
||||
|
||||
if (status > 0)
|
||||
if (flags & MAIN_FLAG_POSIX)
|
||||
{
|
||||
int save_status = status;
|
||||
/* Map into a range of 0 - 255. */
|
||||
status &= 255;
|
||||
|
||||
status = (long) &C$_EXIT1 + ((status - 1) << STS$V_MSG_NO);
|
||||
|
||||
/* An exit failure status requires a "severe" error. All status values
|
||||
are defined in errno with a successful (1) severity but can be
|
||||
changed to an error (2) severity by adding 1. In addition for
|
||||
compatibility with UNIX exit() routines we inhibit a run-time error
|
||||
message from being generated on exit(1). */
|
||||
|
||||
if (save_status == 1)
|
||||
if (status != 0)
|
||||
{
|
||||
status++;
|
||||
status |= STS$M_INHIB_MSG;
|
||||
int save_status = status;
|
||||
|
||||
status = (__int64) &C$_EXIT1 + ((status - 1) << STS$V_MSG_NO);
|
||||
|
||||
/* An exit failure status requires a "severe" error. All
|
||||
status values are defined in errno with a successful (1)
|
||||
severity but can be changed to an error (2) severity by
|
||||
adding 1. In addition for compatibility with UNIX exit()
|
||||
routines we inhibit a run-time error message from being
|
||||
generated on exit(1). */
|
||||
|
||||
if (save_status == 1)
|
||||
{
|
||||
status++;
|
||||
status |= STS$M_INHIB_MSG;
|
||||
}
|
||||
}
|
||||
else
|
||||
status = SS$_NORMAL;
|
||||
}
|
||||
else
|
||||
status = SS$_NORMAL;
|
||||
#endif /* CRT0_POSIX_EXIT */
|
||||
|
||||
return status;
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user