From c0193e6ff2f412fc6d45934f2cf31eb913e00619 Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Wed, 20 Aug 2008 16:27:01 +0200 Subject: exp_strm.adb (Build_Elementary_Input_Call, [...]): Fix incorrect condition in circuitry that selects the stream attribute routines... 2008-08-20 Thomas Quinot * 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 --- gcc/ada/exp_strm.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/ada/exp_strm.adb') 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; -- cgit v1.1