The purpose of this patch is to make it possible to set up code
coverage for the GNAT front end in gnat1 using GNATcoverage. It is
not obvious how to have GNATcoverage instrument gnat1's main function,
and since the front end has a clear entry point (Gnat1drv), we add
manual instrumentation annotations there.
gcc/ada/
* gnat1drv.adb (Gnat1drv): Add coverage instrumentation
annotations.
Check_Rep_Info;
end if;
+ pragma Annotate (Xcov, Dump_Buffers);
+
return;
end if;
Atree.Print_Statistics;
end if;
+ pragma Annotate (Xcov, Dump_Buffers);
+
-- The outer exception handler handles an unrecoverable error
exception
Set_Standard_Output;
Source_Dump;
Tree_Dump;
+
+ pragma Annotate (Xcov, Dump_Buffers);
+
Exit_Program (E_Errors);
end Gnat1drv;