Skip to content

R
riscv-gcc-1
Commit 9de6e082 by Vincent Celier Committed by Arnaud Charlet
Options

vms_conv.adb (Process_Argument): Keep arguments starting with '+' as is. 

2007-04-20  Vincent Celier  <celier@adacore.com>

	* vms_conv.adb (Process_Argument): Keep arguments starting with '+' as
	is.

	* vms_data.ads: Add entries for -gnatw.x and -gnatw.X
	/STYLE_CHECKS=GNAT: Change meaning to -gnatyg
	/GNAT_INTERNAL: New compiler qualifier corresponding to -gnatg
	Add missing comment for /OPTIMIZE=SPACE
	Add entry for OPTIMIZE=SPACE
	Add new qualifier /ALL_PROJECTS (= -U) for GNAT LIST
	Add documentation for new qualifiers corresponding to -gnatw.c/.C

From-SVN: r125474
parent 96efeb4f
Showing with 67 additions and 28 deletions
gcc/ada/vms_conv.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1996-2006, Free Software Foundation, Inc. -- -- Copyright (C) 1996-2007, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -1474,9 +1474,9 @@ package body VMS_Conv is ...@@ -1474,9 +1474,9 @@ package body VMS_Conv is
then then
Opt.Keep_Temporary_Files := True; Opt.Keep_Temporary_Files := True;
-- Copy -switch unchanged -- Copy -switch unchanged, as well as +rule
elsif Arg (Arg'First) = '-' then elsif Arg (Arg'First) = '-' or else Arg (Arg'First) = '+' then
Place (' '); Place (' ');
Place (Arg.all); Place (Arg.all);
......
gcc/ada/vms_data.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1996-2006, Free Software Foundation, Inc. -- -- Copyright (C) 1996-2007, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -1412,6 +1412,19 @@ package VMS_Data is ...@@ -1412,6 +1412,19 @@ package VMS_Data is
-- /VERBOSE), then error lines start with the full path name of the -- /VERBOSE), then error lines start with the full path name of the
-- project file, rather than its simple file name. -- project file, rather than its simple file name.
S_GCC_GNAT : aliased constant S := "/GNAT_INTERNAL " &
"-gnatg";
-- /NOGNAT_INTERNAL (D)
-- /GNAT_INTERNAL
--
-- Internal GNAT implementation mode. This should not be used for
-- applications programs, it is intended only for use by the compiler
-- and its run-time library. For documentation, see the GNAT sources.
-- Note that it implies /WARNINGS=ALL,ERRORS and /STYLE_CHECKS=GNAT
-- so that all standard warnings and all standard style options are
-- turned on. All warnings and style error messages are treated as
-- errors.
S_GCC_Help : aliased constant S := "/HELP " & S_GCC_Help : aliased constant S := "/HELP " &
"-gnath"; "-gnath";
-- /NOHELP (D) -- /NOHELP (D)
...@@ -1733,6 +1746,8 @@ package VMS_Data is ...@@ -1733,6 +1746,8 @@ package VMS_Data is
"-O0,!-O1,!-O2,!-O3 " & "-O0,!-O1,!-O2,!-O3 " &
"SOME " & "SOME " &
"-O1,!-O0,!-O2,!-O3 " & "-O1,!-O0,!-O2,!-O3 " &
"SPACE " &
"-Os,!-O0,!-O1,!-O2,!-O3 " &
"DEVELOPMENT " & "DEVELOPMENT " &
"-O1,!-O0,!-O2,!-O3 " & "-O1,!-O0,!-O2,!-O3 " &
"UNROLL_LOOPS " & "UNROLL_LOOPS " &
...@@ -1755,6 +1770,8 @@ package VMS_Data is ...@@ -1755,6 +1770,8 @@ package VMS_Data is
-- SOME Perform some optimizations, but omit ones that -- SOME Perform some optimizations, but omit ones that
-- are costly in compilation time. -- are costly in compilation time.
-- --
-- SPACE Optimize space usage
--
-- DEVELOPMENT Same as SOME. -- DEVELOPMENT Same as SOME.
-- --
-- INLINING Full optimization, and also attempt automatic inlining -- INLINING Full optimization, and also attempt automatic inlining
...@@ -1974,7 +1991,7 @@ package VMS_Data is ...@@ -1974,7 +1991,7 @@ package VMS_Data is
"VTABS " & "VTABS " &
"-gnatyf " & "-gnatyf " &
"GNAT " & "GNAT " &
"-gnatg " & "-gnatyg " &
"HTABS " & "HTABS " &
"-gnatyh " & "-gnatyh " &
"IF_THEN " & "IF_THEN " &
...@@ -2103,20 +2120,10 @@ package VMS_Data is ...@@ -2103,20 +2120,10 @@ package VMS_Data is
-- named loops, are required to be present. -- named loops, are required to be present.
-- --
-- GNAT Enforces a set of style conventions that -- GNAT Enforces a set of style conventions that
-- correspond to the style used in the GNAT -- match the style used in the GNAT source code.
-- source code. All compiler units are always -- This maybe useful when developing code that
-- compile with this keyword specified. -- is eventually intended to be incorporated into
-- -- GNAT. For further details, see GNAT sources.
-- You can find the full documentation for the
-- style conventions imposed by this keyword
-- in the body of the package "Style" in the
-- compiler sources.
--
-- You should not normally use this keyword.
-- However, you MUST use it for compiling any
-- language-defined unit, or for adding children
-- to any language-defined unit other than
-- "Standard".
-- --
-- HTABS No horizontal tabs. -- HTABS No horizontal tabs.
-- Horizontal tab characters are not permitted in -- Horizontal tab characters are not permitted in
...@@ -2547,6 +2554,10 @@ package VMS_Data is ...@@ -2547,6 +2554,10 @@ package VMS_Data is
"-gnatwc " & "-gnatwc " &
"NOCONDITIONALS " & "NOCONDITIONALS " &
"-gnatwC " & "-gnatwC " &
"MISSING_COMPONENT_CLAUSES " &
"-gnatw.c " &
"NOMISSING_COMPONENT_CLAUSES " &
"-gnatw.C " &
"CONSTANT_VARIABLES " & "CONSTANT_VARIABLES " &
"-gnatwk " & "-gnatwk " &
"NOCONSTANT_VARIABLES " & "NOCONSTANT_VARIABLES " &
...@@ -2631,6 +2642,10 @@ package VMS_Data is ...@@ -2631,6 +2642,10 @@ package VMS_Data is
"-gnatwx " & "-gnatwx " &
"NOIMPORT_EXPORT_PRAGMAS " & "NOIMPORT_EXPORT_PRAGMAS " &
"-gnatwX " & "-gnatwX " &
"LOCAL_RAISE_HANDLING " &
"-gnatw.x " &
"NOLOCAL_RAISE_HANDLING " &
"-gnatw.X " &
"ADA_2005_COMPATIBILITY " & "ADA_2005_COMPATIBILITY " &
"-gnatwy " & "-gnatwy " &
"NOADA_2005_COMPATIBILITY " & "NOADA_2005_COMPATIBILITY " &
...@@ -2753,6 +2768,15 @@ package VMS_Data is ...@@ -2753,6 +2768,15 @@ package VMS_Data is
-- inline a call, it will simply ignore the -- inline a call, it will simply ignore the
-- request silently. -- request silently.
-- --
-- MISSING_COMPONENT_CLAUSES
-- Activate warnings for cases when there are
-- component clauses for a record type, but not
-- for every component of the record.
--
-- NOMISSING_COMPONENT_CLAUSES
-- Suppress warnings for cases when there are
-- missing component clauses for a record type.
--
-- MISSING_PARENS -- MISSING_PARENS
-- Activate warnings for cases where parentheses -- Activate warnings for cases where parentheses
-- are not used and the result is potential -- are not used and the result is potential
...@@ -3057,6 +3081,7 @@ package VMS_Data is ...@@ -3057,6 +3081,7 @@ package VMS_Data is
S_GCC_File 'Access, S_GCC_File 'Access,
S_GCC_Force 'Access, S_GCC_Force 'Access,
S_GCC_Full 'Access, S_GCC_Full 'Access,
S_GCC_GNAT 'Access,
S_GCC_Help 'Access, S_GCC_Help 'Access,
S_GCC_Ident 'Access, S_GCC_Ident 'Access,
S_GCC_IdentX 'Access, S_GCC_IdentX 'Access,
...@@ -3660,6 +3685,15 @@ package VMS_Data is ...@@ -3660,6 +3685,15 @@ package VMS_Data is
-- Consider all units, including those of the predefined Ada library. -- Consider all units, including those of the predefined Ada library.
-- Especially useful with /DEPENDENCIES. -- Especially useful with /DEPENDENCIES.
S_List_Allproj : aliased constant S := "/ALL_PROJECTS " &
"-U";
-- /NOALL_PROJECTS (D)
-- /ALL_PROJECTS
--
-- When used with a project file and no file specified, indicate
-- that gnatls should be called for all sources of all projects in
-- the project tree.
S_List_Current : aliased constant S := "/CURRENT_DIRECTORY " & S_List_Current : aliased constant S := "/CURRENT_DIRECTORY " &
"!-I-"; "!-I-";
-- /CURRENT_DIRECTORY (D) -- /CURRENT_DIRECTORY (D)
...@@ -3776,6 +3810,7 @@ package VMS_Data is ...@@ -3776,6 +3810,7 @@ package VMS_Data is
List_Switches : aliased constant Switches := List_Switches : aliased constant Switches :=
(S_List_All 'Access, (S_List_All 'Access,
S_List_Allproj 'Access,
S_List_Current 'Access, S_List_Current 'Access,
S_List_Depend 'Access, S_List_Depend 'Access,
S_List_Ext 'Access, S_List_Ext 'Access,
...@@ -5013,32 +5048,36 @@ package VMS_Data is ...@@ -5013,32 +5048,36 @@ package VMS_Data is
S_Pretty_Encoding : aliased constant S := "/RESULT_ENCODING=" & S_Pretty_Encoding : aliased constant S := "/RESULT_ENCODING=" &
"BRACKETS " & "BRACKETS " &
"-Wb " & "-Wb " &
"HEX_ESC " & "HEX " &
"-Wh " & "-Wh " &
"UPPER_HALF " & "UPPER " &
"-Wu " & "-Wu " &
"SHIFT_JIS " & "SHIFT_JIS " &
"-Ws " & "-Ws " &
"EUC " & "EUC " &
"-We " & "-We " &
"UTF_8 " & "UTF8 " &
"-W8"; "-W8";
-- /RESULT_ENCODING[=encoding-option] -- /RESULT_ENCODING[=encoding-type]
-- --
-- Specify the wide character encoding of the result file. -- Specify the wide character encoding method used when writtimg the
-- '=encoding-option' may be one of: -- reformatted code in the result file. 'encoding-type' is one of the
-- following:
-- --
-- BRACKETS (D) Brackets encoding. -- BRACKETS (D) Brackets encoding.
-- --
-- HEX_ESC Hex ESC encoding. -- HEX Hex ESC encoding.
-- --
-- UPPER_HALF Upper half encoding. -- UPPER Upper half encoding.
-- --
-- SHIFT_JIS Shift-JIS encoding. -- SHIFT_JIS Shift-JIS encoding.
-- --
-- EUC EUC Encoding. -- EUC EUC Encoding.
-- --
-- UTF_8 UTF-8 encoding. -- UTF8 UTF-8 encoding.
--
-- See 'HELP GNAT COMPILE /WIDE_CHARACTER_ENCODING' for an explanation
-- about the different character encoding methods.
S_Pretty_Files : aliased constant S := "/FILES=@" & S_Pretty_Files : aliased constant S := "/FILES=@" &
"-files=@"; "-files=@";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment