B_Node := New_Node (N_Character_Literal, Stloc);
Set_Is_Static_Expression (B_Node);
- Set_Chars (B_Node, No_Name); -- ???
+ Set_Chars (B_Node, No_Name);
Set_Char_Literal_Value (B_Node, Uint_0);
Set_Entity (B_Node, Empty);
Set_Etype (B_Node, Standard_Wide_Character);
B_Node := New_Node (N_Character_Literal, Stloc);
Set_Is_Static_Expression (B_Node);
- Set_Chars (B_Node, No_Name); -- ???
+ Set_Chars (B_Node, No_Name);
Set_Char_Literal_Value (B_Node, UI_From_Int (16#FFFF#));
Set_Entity (B_Node, Empty);
Set_Etype (B_Node, Standard_Wide_Character);
B_Node := New_Node (N_Character_Literal, Stloc);
Set_Is_Static_Expression (B_Node);
- Set_Chars (B_Node, No_Name); -- ???
+ Set_Chars (B_Node, No_Name);
Set_Char_Literal_Value (B_Node, Uint_0);
Set_Entity (B_Node, Empty);
Set_Etype (B_Node, Standard_Wide_Wide_Character);
B_Node := New_Node (N_Character_Literal, Stloc);
Set_Is_Static_Expression (B_Node);
- Set_Chars (B_Node, No_Name); -- ???
+ Set_Chars (B_Node, No_Name);
Set_Char_Literal_Value (B_Node, UI_From_Int (16#7FFF_FFFF#));
Set_Entity (B_Node, Empty);
Set_Etype (B_Node, Standard_Wide_Wide_Character);
Write_Char (';');
- -- Don't we want to print more detail???
-
- -- Doc of this extended syntax belongs in sinfo.ads and/or
- -- sprint.ads ???
-
when N_SCIL_Dispatch_Table_Tag_Init =>
Write_Indent_Str ("[N_SCIL_Dispatch_Table_Tag_Init]");
Write_Str (");");
end;
- -- For all other Itypes, print ??? (fill in later)
+ -- For all other Itypes, print a triple ? (fill in later
+ -- if needed).
when others =>
Write_Header (True);
-- The reason for this prohibition is that the rewriting of
-- Sloc values causes strange malfunctions in the tests of
-- whether units belong to the main source. This is really a
- -- bug, but too hard to fix for a marginal capability ???
+ -- bug, but too hard to fix for a marginal capability.
-- The proper fix is to completely redo -gnatD processing so
-- that the tree is not messed with, and instead a separate
Ptr := Ptr + 1;
end if;
- -- We ignore '/' in switches, this is historical, still needed???
-
- when '/' =>
- Store_Switch := False;
-
-- Anything else is an error (illegal switch character)
when others =>
-- when sorting the table.
Longest_File_Name_In_Table : Natural := 0;
- Unvisited_Files : Unvisited_Files_Access := null;
- Directories : Project_File_Ptr;
- Default_Match : Boolean := False;
- -- The above need commenting ???
+ -- The length of the longest file name stored
+
+ Unvisited_Files : Unvisited_Files_Access := null;
+ -- Linked list of unvisited files
+
+ Directories : Project_File_Ptr;
+ -- Store the list of directories to visit
+
+ Default_Match : Boolean := False;
+ -- Default value for match in declarations
function Parse_Gnatls_Src return String;
-- Return the standard source directories (taking into account the
-------------------
function ALI_File_Name (Ada_File_Name : String) return String is
-
- -- ??? Should ideally be based on the naming scheme defined in
- -- project files.
+ -- Should ideally be based on the naming scheme defined in
+ -- project files but this is too late for an obsolescent feature.
Index : constant Natural :=
Ada.Strings.Fixed.Index
Strip : Natural := 0) return String
is
pragma Annotate (CodePeer, Skip_Analysis);
- -- ??? To disable false positives currently generated
+ -- Disable CodePeer false positives
Tmp : GNAT.OS_Lib.String_Access;
begin
File_Ref.Visited := False;
- -- ??? Do not add a source file to the list. This is true at
- -- least for gnatxref, and probably for gnatfind as well
+ -- Do not add a source file to the list. This is true for gnatxref
+ -- gnatfind, so good enough.
if F'Length > 4
and then F (F'Last - 3 .. F'Last) = "." & Osint.ALI_Suffix.all
-- --
------------------------------------------------------------------------------
--- We need comment here saying what this package is???
+-- Cross reference utilities used by gnatxref and gnatfind
with GNAT.OS_Lib;
-- line and column in the dependent unit number Eun. For this we need
-- to parse the ali file again because the parent entity is not in
-- the declaration table if it did not match the search pattern.
- -- If the symbol is not found, we return "???".
+ -- If the symbol is not found, we return (1 .. 3 => '?').
procedure Skip_To_Matching_Closing_Bracket;
-- When Ptr points to an opening square bracket, moves it to the