File tree Expand file tree Collapse file tree 1 file changed +8
-11
lines changed
Expand file tree Collapse file tree 1 file changed +8
-11
lines changed Original file line number Diff line number Diff line change @@ -479,19 +479,16 @@ procedure GNATcov_Bits_Specific is
479479 -- Compute the languages for which we want coverage analysis, or enable
480480 -- just the default ones.
481481
482- if Args.String_List_Args (Opt_Restricted_To_Languages).Is_Empty
483- then
484- -- C instrumentation is a beta feature and not yet fully functional.
485- -- It will thus not be part of the languages enabled by default.
486-
487- Src_Enabled_Languages (Ada_Language) := True;
482+ if Args.String_List_Args (Opt_Restricted_To_Languages).Is_Empty then
488483
489- -- It must be enabled for "gnatcov setup", as the core runtime is
490- -- implemented in C.
484+ -- C++ instrumentation is a beta feature and not yet fully
485+ -- functional. It will thus not be part of the languages enabled by
486+ -- default.
491487
492- if Args.Command = Cmd_Setup then
493- Src_Enabled_Languages (C_Language) := True;
494- end if ;
488+ Src_Enabled_Languages :=
489+ (Ada_Language => True,
490+ C_Language => True,
491+ CPP_Language => False);
495492 else
496493 for Arg of Args.String_List_Args (Opt_Restricted_To_Languages) loop
497494 Src_Enabled_Languages (To_Language (+Arg)) := True;
You can’t perform that action at this time.
0 commit comments