From: Thomas Quinot Date: Wed, 20 Aug 2008 14:27:01 +0000 (+0200) Subject: exp_strm.adb (Build_Elementary_Input_Call, [...]): Fix incorrect condition in circuit... X-Git-Tag: releases/gcc-4.4.0~3035 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c0193e6ff2f412fc6d45934f2cf31eb913e00619;p=thirdparty%2Fgcc.git 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 --- diff --git a/gcc/ada/exp_strm.adb b/gcc/ada/exp_strm.adb index 6f34cae3c4c8..d0b1b7f43a57 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;