diff options
| author | Thomas Quinot <quinot@adacore.com> | 2008-08-20 16:27:01 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-20 16:27:01 +0200 |
| commit | c0193e6ff2f412fc6d45934f2cf31eb913e00619 (patch) | |
| tree | 0a91fc2f587cc643c6e200176a23c48f7ad16a70 | |
| parent | b9ccd710833e0e15b517b52d02a81f3bb00f60fe (diff) | |
| download | gcc-c0193e6ff2f412fc6d45934f2cf31eb913e00619.zip gcc-c0193e6ff2f412fc6d45934f2cf31eb913e00619.tar.gz gcc-c0193e6ff2f412fc6d45934f2cf31eb913e00619.tar.bz2 | |
exp_strm.adb (Build_Elementary_Input_Call, [...]): Fix incorrect condition in circuitry that selects the stream attribute routines...
2008-08-20 Thomas Quinot <quinot@adacore.com>
* exp_strm.adb (Build_Elementary_Input_Call,
Build_Elementary_Write_Call): Fix incorrect condition in circuitry that
selects the stream attribute routines for long float types.
From-SVN: r139299
| -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; |