diff options
Diffstat (limited to 'gcc/ada/ada_get_targ.adb')
| -rw-r--r-- | gcc/ada/ada_get_targ.adb | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ada/ada_get_targ.adb b/gcc/ada/ada_get_targ.adb index 72e5452..853197a 100644 --- a/gcc/ada/ada_get_targ.adb +++ b/gcc/ada/ada_get_targ.adb @@ -219,9 +219,14 @@ package body Get_Targ is begin Float_Str (Float_Str'First .. Float_Str'First + 4) := "float"; Call_Back - (C_Name => Float_Str, Digs => 6, Complex => False, Count => 0, + (C_Name => Float_Str, + Digs => 6, + Complex => False, + Count => 0, Float_Rep => IEEE_Binary, - Precision => 32, Size => 32, Alignment => 32); + Precision => 32, + Size => 32, + Alignment => 32); Double_Str (Double_Str'First .. Double_Str'First + 5) := "double"; Call_Back |