com.c (ffe_type_for_mode): Handle long double.

2002-09-07  Jan Hubicka  <jh@suse.cz>

        * com.c (ffe_type_for_mode): Handle long double.

From-SVN: r56922

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 498e64d27f9b8c65d4a9dcca65c71a5f90748451..0cda35d27fcbee15b380c390ca90df657a5f870b 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-07  Jan Hubicka  <jh@suse.cz>
+
+       * com.c (ffe_type_for_mode): Handle long double.
+
 2002-08-30  Alan Modra  <amodra@bigpond.net.au>
 
        * target.h (FFETARGET_32bit_longs): Don't define for powerpc64 or
@@ -60,7 +64,7 @@ Mon Apr 15 10:59:14 2002  Mark Mitchell  <mark@codesourcery.com>
 
        * Make-lang.in (f/target.o): Depend on diagnostic.h.
        * target.c: Include diagnostic.h.
-       (ffetarget_memcpy_): Call sorry if host and target endians are
+       (ffetarget_memcpy_): Call sorry if host and target endians are
        not matching.
 
 2002-04-13  Toon Moene  <toon@moene.indiv.nluug.nl>
@@ -112,7 +116,7 @@ Mon Mar 18 18:43:22 CET 2002  Jan Hubicka  <jh@suse.cz>
        * intrin.def: Use 'N' constraints in table of intrinsics.
        * intdoc.c: Document this constraint.
        * intdoc.texi: Regenerated.
-       
+
 2002-02-04  Philipp Thomas  <pthomas@suse.de>
 
        * implic.c lex.c stb.c ste.c stu.c: Update copyright dates.

diff --git a/gcc/f/com.c b/gcc/f/com.c
index a9151398e5b9f086c42496493c5102e159da0580..13de981b793ffe2db88439c53874df6c683dc34d 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -15014,7 +15014,10 @@ type_for_mode (mode, unsignedp)
   if (mode == TYPE_MODE (double_type_node))
     return double_type_node;
 
-  if (mode == TYPE_MODE (build_pointer_type (char_type_node)))
+  if (mode == TYPE_MODE (long_double_type_node))
+    return long_double_type_node;
+
+ if (mode == TYPE_MODE (build_pointer_type (char_type_node)))
     return build_pointer_type (char_type_node);
 
   if (mode == TYPE_MODE (build_pointer_type (integer_type_node)))