Hi, the native c compiler for VMS, DEC-C, supports a few pragma that are extensively used in system header files. This patch add partial support for a few of them.
Committed on trunk. Tristan. 2011-11-07 Tristan Gingold <ging...@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. Index: config.gcc =================================================================== --- config.gcc (revision 181078) +++ config.gcc (working copy) @@ -717,6 +717,8 @@ 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)" Index: config/vms/vms-protos.h =================================================================== --- config/vms/vms-protos.h (revision 181078) +++ config/vms/vms-protos.h (working copy) @@ -17,5 +17,8 @@ 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); Index: config/vms/vms.h =================================================================== --- config/vms/vms.h (revision 181078) +++ config/vms/vms.h (working copy) @@ -34,6 +34,9 @@ } \ } 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 Index: config/vms/t-vms =================================================================== --- config/vms/t-vms (revision 181078) +++ config/vms/t-vms (working copy) @@ -32,3 +32,9 @@ 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) \$< Index: config/vms/vms-c.c =================================================================== --- config/vms/vms-c.c (revision 0) +++ config/vms/vms-c.c (revision 0) @@ -0,0 +1,248 @@ +/* VMS specific, C compiler specific functions. + Copyright (C) 2011 + Free Software Foundation, Inc. + Contributed by Tristan Gingold (ging...@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); +}