From: Jan Hubicka Date: Sat, 7 Sep 2002 19:18:46 +0000 (+0200) Subject: com.c (ffe_type_for_mode): Handle long double. X-Git-Tag: releases/gcc-3.2.1~307 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=496f36ad083a1d4a26e08e1fa4204dba6edccecd;p=thirdparty%2Fgcc.git 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 --- 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)))