File tree Expand file tree Collapse file tree 1 file changed +8
-1
lines changed Expand file tree Collapse file tree 1 file changed +8
-1
lines changed Original file line number Diff line number Diff line change @@ -1501,7 +1501,10 @@ package body Tree_Walk is
1501
1501
when N_Quantified_Expression =>
1502
1502
return Report_Unhandled_Node_Irep (N, " Do_Expression" ,
1503
1503
" Quantified" );
1504
- when N_Null =>
1504
+ when N_Null |
1505
+ -- gnat2goto does not process freeze nodes at present.
1506
+ -- Possibly of use when package initialisationis considered.
1507
+ N_Freeze_Entity | N_Freeze_Generic_Entity =>
1505
1508
return Do_Null_Expression (N);
1506
1509
when others =>
1507
1510
return Report_Unhandled_Node_Irep (N, " Do_Expression" ,
@@ -6265,6 +6268,10 @@ package body Tree_Walk is
6265
6268
when N_Object_Declaration =>
6266
6269
Do_Object_Declaration (N, Block);
6267
6270
6271
+ when N_Freeze_Entity | N_Freeze_Generic_Entity =>
6272
+ -- gnat2goto does not process freeze nodes as
6273
+ -- the information contained therein is not needed by gnat2goto.
6274
+ null ;
6268
6275
when others =>
6269
6276
Report_Unhandled_Node_Empty (N, " Process_Statement" ,
6270
6277
" Unknown expression kind" );
You can’t perform that action at this time.
0 commit comments