diff options
| -rw-r--r-- | gcc/ada/exp_strm.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_strm.adb b/gcc/ada/exp_strm.adb index 6f34cae..d0b1b7f 100644 --- a/gcc/ada/exp_strm.adb +++ b/gcc/ada/exp_strm.adb @@ -521,7 +521,7 @@ package body Exp_Strm is elsif P_Size <= Standard_Long_Float_Size and then (Standard_Long_Float_Size /= Standard_Long_Long_Float_Size - or else Rt_Type = Standard_Float) + or else Rt_Type = Standard_Long_Float) then Lib_RE := RE_I_LF; @@ -735,7 +735,7 @@ package body Exp_Strm is elsif P_Size <= Standard_Long_Float_Size and then (Standard_Long_Float_Size /= Standard_Long_Long_Float_Size - or else Rt_Type = Standard_Float) + or else Rt_Type = Standard_Long_Float) then Lib_RE := RE_W_LF; |