From 496f36ad083a1d4a26e08e1fa4204dba6edccecd Mon Sep 17 00:00:00 2001 From: Jan Hubicka Date: Sat, 7 Sep 2002 21:18:46 +0200 Subject: [PATCH] com.c (ffe_type_for_mode): Handle long double. 2002-09-07 Jan Hubicka * com.c (ffe_type_for_mode): Handle long double. From-SVN: r56922 --- gcc/f/ChangeLog | 8 ++++++-- gcc/f/com.c | 5 ++++- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 498e64d27f9b..0cda35d27fcb 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,7 @@ +2002-09-07 Jan Hubicka + + * com.c (ffe_type_for_mode): Handle long double. + 2002-08-30 Alan Modra * target.h (FFETARGET_32bit_longs): Don't define for powerpc64 or @@ -60,7 +64,7 @@ Mon Apr 15 10:59:14 2002 Mark Mitchell * 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 @@ -112,7 +116,7 @@ Mon Mar 18 18:43:22 CET 2002 Jan Hubicka * intrin.def: Use 'N' constraints in table of intrinsics. * intdoc.c: Document this constraint. * intdoc.texi: Regenerated. - + 2002-02-04 Philipp Thomas * 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 a9151398e5b9..13de981b793f 100644 --- 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))) -- 2.47.2