diff options
Diffstat (limited to 'gcc/ada/gnat1drv.adb')
| -rw-r--r-- | gcc/ada/gnat1drv.adb | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb index 70df563..709cf2d 100644 --- a/gcc/ada/gnat1drv.adb +++ b/gcc/ada/gnat1drv.adb @@ -954,13 +954,20 @@ begin System_Source_File_Index := S; end if; + -- Call to get target parameters. Note that the actual interface + -- routines in Tbuild here. They can't be in this procedure + -- because of accessibility issues. + Targparm.Get_Target_Parameters (System_Text => Source_Text (S), Source_First => Source_First (S), Source_Last => Source_Last (S), Make_Id => Tbuild.Make_Id'Access, Make_SC => Tbuild.Make_SC'Access, - Set_RND => Tbuild.Set_RND'Access); + Set_NOD => Tbuild.Set_NOD'Access, + Set_NSA => Tbuild.Set_NSA'Access, + Set_NUA => Tbuild.Set_NUA'Access, + Set_NUP => Tbuild.Set_NUP'Access); -- Acquire configuration pragma information from Targparm |