Commit 26718854 by Arnaud Charlet

Minor reformatting.

From-SVN: r247164
parent 0c85534d
......@@ -905,6 +905,7 @@ package body Lib is
function In_Internal_Unit (S : Source_Ptr) return Boolean is
Unit : constant Unit_Number_Type := Get_Source_Unit (S);
File : constant File_Name_Type := Unit_File_Name (Unit);
begin
return Is_Internal_File_Name (File);
end In_Internal_Unit;
......
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