File tree Expand file tree Collapse file tree 1 file changed +3
-5
lines changed
Expand file tree Collapse file tree 1 file changed +3
-5
lines changed Original file line number Diff line number Diff line change @@ -4143,9 +4143,9 @@ package body Tree_Walk is
41434143
41444144 procedure Do_Subprogram_Body_Stub (N : Node_Id) is
41454145 begin
4146- -- The Gnat compilation model requires that a file containing the
4147- -- which is the separate subprogram body is present otherwise
4148- -- a compilation error is generated.
4146+ -- The Gnat compilation model requires that a file
4147+ -- containing the separate subprogram body is present
4148+ -- otherwise a compilation error is generated.
41494149 -- Therefore, the subunit will always be present when gnat2goto
41504150 -- encounters a Subprogram_Body_Stub.
41514151 Do_Subprogram_Body (Proper_Body (Unit ((Library_Unit (N)))));
@@ -4779,8 +4779,6 @@ package body Tree_Walk is
47794779 -- body_stub --
47804780
47814781 when N_Subprogram_Body_Stub =>
4782- -- Report_Unhandled_Node_Empty (N, "Process_Declaration",
4783- -- "Subprogram body stub declaration");
47844782 Do_Subprogram_Body_Stub (N);
47854783
47864784 when N_Package_Body_Stub =>
You can’t perform that action at this time.
0 commit comments