Skip to content

Commit 680ef4b

Browse files
authored
Merge pull request #352 from tjj2017/freezing
Ignore Freeze nodes. They are not currently required by gnat2goto.
2 parents f1849db + c0b0b49 commit 680ef4b

File tree

1 file changed

+8
-1
lines changed

1 file changed

+8
-1
lines changed

gnat2goto/driver/tree_walk.adb

Lines changed: 8 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1501,7 +1501,10 @@ package body Tree_Walk is
15011501
when N_Quantified_Expression =>
15021502
return Report_Unhandled_Node_Irep (N, "Do_Expression",
15031503
"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 =>
15051508
return Do_Null_Expression (N);
15061509
when others =>
15071510
return Report_Unhandled_Node_Irep (N, "Do_Expression",
@@ -6265,6 +6268,10 @@ package body Tree_Walk is
62656268
when N_Object_Declaration =>
62666269
Do_Object_Declaration (N, Block);
62676270

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;
62686275
when others =>
62696276
Report_Unhandled_Node_Empty (N, "Process_Statement",
62706277
"Unknown expression kind");

0 commit comments

Comments
 (0)