We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent a10a654 commit 49c04baCopy full SHA for 49c04ba
gnat2goto/driver/tree_walk.adb
@@ -1487,9 +1487,11 @@ package body Tree_Walk is
1487
-- (via `Register_Type_Declaration') when its
1488
-- private or incomplete_type_declaration was processed.
1489
-- If it has no private declaration or the Incomplete_View is not
1490
- -- present then the full_type_declaration has to be registered
+ -- present or it is a derived_type_definition
1491
+ -- then the full_type_declaration has to be registered
1492
if not (Has_Private_Declaration (E)
1493
or else Present (Incomplete_View (N)))
1494
+ or else Nkind (Type_Definition (N)) = N_Derived_Type_Definition
1495
then
1496
Do_Type_Declaration (New_Type, E);
1497
0 commit comments