2009-08-10 Robert Dewar <dewar@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / exp_strm.adb

diff --git a/gcc/ada/exp_strm.adb b/gcc/ada/exp_strm.adb
index 9c4befb..42c34a8 100644 (file)
--- a/gcc/ada/exp_strm.adb
+++ b/gcc/ada/exp_strm.adb
@@ -30,6 +30,7 @@ with Nlists;   use Nlists;
 with Nmake;    use Nmake;
 with Opt;      use Opt;
 with Rtsfind;  use Rtsfind;
+with Sem_Aux;  use Sem_Aux;
 with Sem_Util; use Sem_Util;
 with Sinfo;    use Sinfo;
 with Snames;   use Snames;
@@ -521,7 +522,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 +736,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;
 
@@ -1119,10 +1120,10 @@ package body Exp_Strm is
                 Object_Definition =>
                   New_Occurrence_Of (Etype (Discr), Loc));
 
-            --  If the this  is an access discriminant, do not perform default
-            --  initialization.  The discriminant is about to get its value
+            --  If this is an access discriminant, do not perform default
+            --  initialization. The discriminant is about to get its value
             --  from Read, and if the type is null excluding we do not want
-            --  spurious warnings on an initial null.
+            --  spurious warnings on an initial null value.
 
             if Is_Access_Type (Etype (Discr)) then
                Set_No_Initialization (Decl);