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
479
479
-- Compute the languages for which we want coverage analysis, or enable
480
480
-- just the default ones.
481
481
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
488
483
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.
491
487
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);
495
492
else
496
493
for Arg of Args.String_List_Args (Opt_Restricted_To_Languages) loop
497
494
Src_Enabled_Languages (To_Language (+Arg)) := True;
You can’t perform that action at this time.
0 commit comments