exp_strm.adb (Build_Elementary_Input_Call, [...]): Fix incorrect condition in…

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

exp_strm.adb (Build_Elementary_Input_Call, [...]): Fix incorrect condition in…
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
c0193e6f · Thomas Quinot · Arnaud Charlet · b9ccd710 · c0193e6f
Commit c0193e6f authored Aug 20, 2008 by Thomas Quinot Committed by Arnaud Charlet Aug 20, 2008
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

gcc/ada/exp_strm.adb
+2 -2

No files found.
--- 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;