diff options
Diffstat (limited to 'gcc/ada/gnatlink.adb')
-rw-r--r-- | gcc/ada/gnatlink.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/gnatlink.adb b/gcc/ada/gnatlink.adb index 6a0a34e78ff..c2e2de74f49 100644 --- a/gcc/ada/gnatlink.adb +++ b/gcc/ada/gnatlink.adb @@ -1594,11 +1594,16 @@ begin -- is to be dealt with specially because it needs to be passed -- if the binder-generated file is in Ada and may also be used -- to drive the linker. + -- Also in CodePeer mode, we need to pass the -gnat05 or + -- -gnat12 switches to be able to compile the binder file. declare Arg : String_Ptr renames Args.Table (Index); begin - if not Is_Front_End_Switch (Arg.all) then + if not Is_Front_End_Switch (Arg.all) + or else (Opt.CodePeer_Mode + and then Is_Language_Switch (Arg.all)) + then Binder_Options_From_ALI.Increment_Last; Binder_Options_From_ALI.Table (Binder_Options_From_ALI.Last) := String_Access (Arg); |