git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

config.gcc (*-*-*vms*): Set c_target_objs, cxx_target_objs. 

2011-11-07  Tristan Gingold  <gingold@adacore.com>

	* config.gcc (*-*-*vms*): Set c_target_objs, cxx_target_objs.
	* config/vms/t-vms: Add vms-c.o rule.
	* config/vms/vms-c.c: New file.
	* config/vms/vms-protos.h (vms_c_register_pragma): New prototype.
	* config/vms/vms.h (REGISTER_TARGET_PRAGMAS): Define.

From-SVN: r181079
This commit is contained in:
Tristan Gingold 2011-11-07 10:17:44 +00:00 committed by Tristan Gingold
parent ba89fcb672
commit c750e76857
6 changed files with 270 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ChangeLog
View File

@ -1,3 +1,11 @@
2011-11-07 Tristan Gingold <gingold@adacore.com>
* config.gcc (*-*-*vms*): Set c_target_objs, cxx_target_objs.
* config/vms/t-vms: Add vms-c.o rule.
* config/vms/vms-c.c: New file.
* config/vms/vms-protos.h (vms_c_register_pragma): New prototype.
* config/vms/vms.h (REGISTER_TARGET_PRAGMAS): Define.
2011-11-07 Tristan Gingold <gingold@adacore.com>
* config/alpha/vms.h (TARGET_OBJECT_SUFFIX,

2
gcc/config.gcc
View File

@ -717,6 +717,8 @@ case ${target} in
extra_objs="vms.o"
target_gtfiles="$target_gtfiles \$(srcdir)/config/vms/vms.c"
tm_p_file="${tm_p_file} vms/vms-protos.h"
c_target_objs="vms-c.o"
cxx_target_objs="vms-c.o"
if test x$gnu_ld != xyes; then
# Build wrappers for native case.
extra_programs="ld\$(exeext) ar\$(exeext)"

6
gcc/config/vms/t-vms
View File

@ -32,3 +32,9 @@ vms-crtlmap.h: $(srcdir)/config/vms/vms-crtlmap.map \
vms.o: $(srcdir)/config/vms/vms.c $(TREE_H) $(CONFIG_H) $(SYSTEM_H) \
coretypes.h $(TM_P_H) vms-crtlmap.h
$(COMPILER) -c $(ALL_COMPILERFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) $<
vms-c.o: $(srcdir)/config/vms/vms-c.c $(CONFIG_H) $(SYSTEM_H) coretypes.h \
$(TM_H) $(CPPLIB_H) $(TREE_H) c-family/c-pragma.h toplev.h $(GGC_H) \
$(TM_P_H)
$(COMPILER) -c $(ALL_COMPILERFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
$(PREPROCESSOR_DEFINES) \$<

248
gcc/config/vms/vms-c.c Normal file
View File

@ -0,0 +1,248 @@
/* VMS specific, C compiler specific functions.
Copyright (C) 2011
Free Software Foundation, Inc.
Contributed by Tristan Gingold (gingold@adacore.com).
This file is part of GCC.
GCC 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 3, or (at your option)
any later version.
GCC 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 GCC; see the file COPYING3. If not see
<http://www.gnu.org/licenses/>. */
#include "config.h"
#include "system.h"
#include "coretypes.h"
#include "tm.h"
#include "cpplib.h"
#include "tree.h"
#include "c-family/c-pragma.h"
#include "c-family/c-common.h"
#include "toplev.h"
#include "ggc.h"
#include "tm_p.h"
#include "incpath.h"
#include "diagnostic.h"
/* '#pragma __nostandard' is simply ignored. */
static void
vms_pragma_nostandard (cpp_reader *pfile ATTRIBUTE_UNUSED)
{
tree x;
if (pragma_lex (&x) != CPP_EOF)
warning (OPT_Wpragmas, "junk at end of #pragma __nostandard");
}
/* '#pragma __standard' is simply ignored. */
static void
vms_pragma_standard (cpp_reader *pfile ATTRIBUTE_UNUSED)
{
tree x;
if (pragma_lex (&x) != CPP_EOF)
warning (OPT_Wpragmas, "junk at end of #pragma __standard");
}
/* Saved member alignment. */
static int saved_member_alignment;
/* Handle '#pragma member_alignment'. */
static void
vms_pragma_member_alignment (cpp_reader *pfile ATTRIBUTE_UNUSED)
{
tree x;
int tok;
const char *arg;
tok = pragma_lex (&x);
if (tok == CPP_EOF)
{
/* Disable packing. */
maximum_field_alignment = initial_max_fld_align;
return;
}
if (tok != CPP_NAME)
{
warning (OPT_Wpragmas, "malformed '#pragma member_alignment', ignoring");
return;
}
arg = IDENTIFIER_POINTER (x);
/* Accept '__' prefix. */
if (arg[0] == '_' && arg[1] == '_')
arg += 2;
if (strcmp (arg, "save") == 0)
saved_member_alignment = maximum_field_alignment;
else if (strcmp (arg, "restore") == 0)
maximum_field_alignment = saved_member_alignment;
else
{
error ("unknown '#pragma member_alignment' name %s", arg);
return;
}
if (pragma_lex (&x) != CPP_EOF)
{
error ("malformed '#pragma member_alignment'");
return;
}
}
/* Handle '#pragma nomember_alignment'. */
static void
vms_pragma_nomember_alignment (cpp_reader *pfile ATTRIBUTE_UNUSED)
{
tree x;
int tok;
tok = pragma_lex (&x);
if (tok == CPP_NAME)
{
const char *arg = IDENTIFIER_POINTER (x);
/* Accept '__' prefix. */
if (arg[0] == '_' && arg[1] == '_')
arg += 2;
if (strcmp (arg, "word") == 0)
maximum_field_alignment = 2 * BITS_PER_UNIT;
else if (strcmp (arg, "longword") == 0)
maximum_field_alignment = 4 * BITS_PER_UNIT;
else if (strcmp (arg, "quadword") == 0)
maximum_field_alignment = 8 * BITS_PER_UNIT;
else
{
error ("unhandled alignment for '#pragma nomember_alignment'");
}
tok = pragma_lex (&x);
}
else
{
/* Enable packing. */
maximum_field_alignment = BITS_PER_UNIT;
}
if (tok != CPP_EOF)
{
error ("garbage at end of '#pragma nomember_alignment'");
return;
}
}
/* The 'extern model' for public data. */
enum extern_model_kind
{
/* Create one overlaid section per variable. */
extern_model_common_block,
/* Like unix: multiple not-initialized declarations are allowed. */
extern_model_relaxed_refdef,
/* Like -fno-common. */
extern_model_strict_refdef,
/* Declarations creates symbols without storage. */
extern_model_globalvalue
};
/* Current and saved extern model. */
static enum extern_model_kind current_extern_model;
static enum extern_model_kind saved_extern_model;
/* Partial handling of '#pragma extern_model'. */
static void
vms_pragma_extern_model (cpp_reader *pfile ATTRIBUTE_UNUSED)
{
tree x;
int tok;
const char *arg;
tok = pragma_lex (&x);
if (tok != CPP_NAME)
{
warning (OPT_Wpragmas, "malformed '#pragma extern_model', ignoring");
return;
}
arg = IDENTIFIER_POINTER (x);
/* Accept "__" prefix. */
if (arg[0] == '_' && arg[1] == '_')
arg += 2;
if (strcmp (arg, "save") == 0)
saved_extern_model = current_extern_model;
else if (strcmp (arg, "restore") == 0)
current_extern_model = saved_extern_model;
else if (strcmp (arg, "strict_refdef") == 0)
current_extern_model = extern_model_strict_refdef;
else if (strcmp (arg, "common_block") == 0)
current_extern_model = extern_model_common_block;
else if (strcmp (arg, "globalvalue") == 0)
{
sorry ("extern model globalvalue");
return;
}
else
{
error ("unknown '#pragma extern_model' model '%s'", arg);
return;
}
#if 0
if (pragma_lex (&x) != CPP_EOF)
{
permerror (input_location, "junk at end of '#pragma extern_model'");
return;
}
#endif
}
/* Ignore '#pragma message'. */
static void
vms_pragma_message (cpp_reader *pfile ATTRIBUTE_UNUSED)
{
/* Completly ignored. */
#if 0
pedwarn (input_location, OPT_Wpragmas,
"vms '#pragma __message' is ignored");
#endif
}
/* Add vms-specific pragma. */
void
vms_c_register_pragma (void)
{
c_register_pragma (NULL, "__nostandard", vms_pragma_nostandard);
c_register_pragma (NULL, "nostandard", vms_pragma_nostandard);
c_register_pragma (NULL, "__standard", vms_pragma_standard);
c_register_pragma (NULL, "standard", vms_pragma_standard);
c_register_pragma (NULL, "__member_alignment", vms_pragma_member_alignment);
c_register_pragma (NULL, "member_alignment", vms_pragma_member_alignment);
c_register_pragma (NULL, "__nomember_alignment",
vms_pragma_nomember_alignment);
c_register_pragma (NULL, "nomember_alignment",
vms_pragma_nomember_alignment);
c_register_pragma (NULL, "__extern_model", vms_pragma_extern_model);
c_register_pragma (NULL, "extern_model", vms_pragma_extern_model);
c_register_pragma (NULL, "__message", vms_pragma_message);
}

3
gcc/config/vms/vms-protos.h
View File

@ -17,5 +17,8 @@ You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING3. If not see
<http://www.gnu.org/licenses/>. */
/* vms-c.c */
extern void vms_c_register_pragma (void);
/* vms.c */
void vms_patch_builtins (void);

3
gcc/config/vms/vms.h
View File

@ -34,6 +34,9 @@ along with GCC; see the file COPYING3. If not see
} \
} while (0)
/* Tell compiler we want to support VMS pragmas */
#define REGISTER_TARGET_PRAGMAS() vms_c_register_pragma ()
/* By default, allow $ to be part of an identifier. */
#define DOLLARS_IN_IDENTIFIERS 2