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 423e57b commit defa8f8Copy full SHA for defa8f8
tools/gnatcov/instrument-ada_unit.adb
@@ -1796,7 +1796,7 @@ package body Instrument.Ada_Unit is
1796
Create_Generic_Formal_Type_Decl
1797
(RC,
1798
F_Decl =>
1799
- Create_Type_Decl
+ Create_Formal_Type_Decl
1800
1801
F_Name =>
1802
Make_Defining_Name (UIC, Formal_Type_Name),
@@ -1820,6 +1820,8 @@ package body Instrument.Ada_Unit is
1820
F_Has_Limited =>
1821
Make (UIC, Ada_Limited_Present)),
1822
1823
+ F_Default_Type => No_Node_Rewriting_Handle,
1824
+
1825
F_Aspects => No_Node_Rewriting_Handle),
1826
1827
F_Aspects => No_Node_Rewriting_Handle));
0 commit comments