File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -174,7 +174,7 @@ package body Gnatcheck.Diagnoses is
174174 -- boolean parameter is used to define the needed indentation level
175175
176176 function Strip_Tag (Diag : String) return String;
177- -- Strip trailing " [-gnatxxx ]", if any
177+ -- Strip trailing GNAT tag following the format " [-gnat<x> ]", if any
178178
179179 -- --------------------------------------------------------------------
180180 -- Data structures and local routines for rule exemption mechanism --
@@ -1682,7 +1682,7 @@ package body Gnatcheck.Diagnoses is
16821682
16831683 function Preprocess_Diag (Diag : String) return String;
16841684 -- Add GPS_Prefix if Progress_Indicator_Mode is True, and remove any
1685- -- trailing [-gnatwxxx] .
1685+ -- trailing GNAT tag following the "[-gnat<x>]" format .
16861686
16871687 procedure Counted_Print_Diagnosis
16881688 (Position : Error_Messages_Storage.Cursor);
You can’t perform that action at this time.
0 commit comments