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
4143
4143
4144
4144
procedure Do_Subprogram_Body_Stub (N : Node_Id) is
4145
4145
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.
4149
4149
-- Therefore, the subunit will always be present when gnat2goto
4150
4150
-- encounters a Subprogram_Body_Stub.
4151
4151
Do_Subprogram_Body (Proper_Body (Unit ((Library_Unit (N)))));
@@ -4779,8 +4779,6 @@ package body Tree_Walk is
4779
4779
-- body_stub --
4780
4780
4781
4781
when N_Subprogram_Body_Stub =>
4782
- -- Report_Unhandled_Node_Empty (N, "Process_Declaration",
4783
- -- "Subprogram body stub declaration");
4784
4782
Do_Subprogram_Body_Stub (N);
4785
4783
4786
4784
when N_Package_Body_Stub =>
You can’t perform that action at this time.
0 commit comments