diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-22 09:03:30 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-22 09:03:30 +0000 |
| commit | 1822352fef26e3df452f048f4df3ddde5b400200 (patch) | |
| tree | 35f66f028878c46da69a3e9a4e81595bf72600d9 /gcc/ada | |
| parent | 76efb4ee091abe9b9eb11187e49b4caa4aefaa91 (diff) | |
| download | gcc-1822352fef26e3df452f048f4df3ddde5b400200.tar.gz | |
2008-08-22 Sergey Rybin <rybin@adacore.com>
* vms_data.ads: Add entry for new gnatcheck -mNNN option
* gnat_ugn.texi: Add description for gnatcheck option '-m'
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@139431 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/gnat_ugn.texi | 6 | ||||
| -rw-r--r-- | gcc/ada/vms_data.ads | 12 |
2 files changed, 18 insertions, 0 deletions
diff --git a/gcc/ada/gnat_ugn.texi b/gcc/ada/gnat_ugn.texi index 732b41f9c91..935247998a1 100644 --- a/gcc/ada/gnat_ugn.texi +++ b/gcc/ada/gnat_ugn.texi @@ -20321,6 +20321,12 @@ a generic instantiation a full source location is a chain from the location of this construct in the generic unit to the place where this unit is instantiated. +@cindex @option{^-m^/DIAGNOSIS_LIMIT^} (@command{gnatcheck}) +@item ^-m@i{nnn}^/DIAGNOSIS_LIMIT=@i{nnn}^ +Maximum number of diagnoses to be sent to Stdout, @i{nnn} from o@dots{}1000, +the default value is 500. Zero means that there is no limitation on +the number of diagnostic messages to be printed into Stdout. + @cindex @option{^-q^/QUIET^} (@command{gnatcheck}) @item ^-q^/QUIET^ Quiet mode. All the diagnoses about rule violations are placed in the diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads index 46764ddb50e..b302791e144 100644 --- a/gcc/ada/vms_data.ads +++ b/gcc/ada/vms_data.ads @@ -774,6 +774,17 @@ package VMS_Data is -- -- Use full source locations references in the report file. + S_Diagnosis : aliased constant S := "/DIAGNOSIS_LIMIT=#" & + "-m#"; + -- /DIAGNOSIS_LIMIT=500 (D) + -- /ERROR_LIMIT=nnn + -- + -- NNN is a decimal integer in the range of 1 to 1000 and limits the + -- number of diagnostic messages to be generated into Stdoutto that + -- number. Once that number has been reached, gnatcheck stops + -- to print out diagnoses into Stderr. If NNN is equal to 0, this means + -- that there is no limit on the number of diagnoses in Stdout + S_Check_Mess : aliased constant S := "/MESSAGES_PROJECT_FILE=" & "DEFAULT " & "-vP0 " & @@ -867,6 +878,7 @@ package VMS_Data is Check_Switches : aliased constant Switches := (S_Check_Add 'Access, S_Check_All 'Access, + S_Diagnosis 'Access, S_Check_Ext 'Access, S_Check_Files 'Access, S_Check_Follow 'Access, |