File tree 5 files changed +269
-93
lines changed
5 files changed +269
-93
lines changed Original file line number Diff line number Diff line change @@ -10,3 +10,4 @@ testsuite/ada_projects/*/*.ad[bs] no-precommit-check
10
10
# No needs
11
11
* .java no-precommit-check
12
12
13
+ * .png - text
Original file line number Diff line number Diff line change @@ -1394,6 +1394,7 @@ package body Gnatcheck.Compiler is
1394
1394
Split_Command : constant Slice_Set := Create (Worker_Command, " " );
1395
1395
Worker : String_Access := null ;
1396
1396
Prj : constant String := Gnatcheck_Prj.Source_Prj;
1397
+ CGPR : constant String := Gnatcheck_Prj.Source_CGPR;
1397
1398
Args : Argument_List (1 .. 128 );
1398
1399
Num_Args : Integer := 0 ;
1399
1400
@@ -1441,14 +1442,20 @@ package body Gnatcheck.Compiler is
1441
1442
Args (Num_Args) := new String'(Get_Aggregated_Project);
1442
1443
end if ;
1443
1444
1444
- if RTS_Path.all /= " " then
1445
- Num_Args := @ + 1 ;
1446
- Args (Num_Args) := new String'(" --RTS=" & RTS_Path.all );
1447
- end if ;
1445
+ if CGPR = " " then
1446
+ if RTS_Path.all /= " " then
1447
+ Num_Args := @ + 1 ;
1448
+ Args (Num_Args) := new String'(" --RTS=" & RTS_Path.all );
1449
+ end if ;
1448
1450
1449
- if Target.all /= " " then
1451
+ if Target.all /= " " then
1452
+ Num_Args := @ + 1 ;
1453
+ Args (Num_Args) := new String'(" --target=" & Target.all );
1454
+ end if ;
1455
+ else
1456
+ -- Target and runtime will be taken from config project anyway
1450
1457
Num_Args := @ + 1 ;
1451
- Args (Num_Args) := new String'(" --target =" & Target. all );
1458
+ Args (Num_Args) := new String'(" --config =" & CGPR );
1452
1459
end if ;
1453
1460
1454
1461
if Debug_Mode then
Original file line number Diff line number Diff line change @@ -725,6 +725,7 @@ package body Gnatcheck.Output is
725
725
Info (" --ignore-project-switches - ignore switches specified in the project file" );
726
726
Info (" --target=targetname - specify a target for cross platforms" );
727
727
Info (" --RTS=<runtime> - use runtime <runtime>" );
728
+ Info (" --config=<cgpr> - use configuration project <cgpr>" );
728
729
Info (" " );
729
730
Info (" -h - print out the list of the currently implemented rules" );
730
731
Info (" -mn - n is the maximal number of diagnoses in Stderr" );
You can’t perform that action at this time.
0 commit comments