From: aj Date: Sat, 7 Sep 2002 19:18:16 +0000 (+0000) Subject: 2002-09-07 Jan Hubicka X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=810ea89f2e0b9280570bbad02a62a53b7ea926de 2002-09-07 Jan Hubicka * com.c (ffe_type_for_mode): Handle long double. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@56921 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 56e33aa67f7..299a5c392bb 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-09-04 Richard Henderson * target.h (ffetarget_print_real1, ffetarget_print_real2): Update diff --git a/gcc/f/com.c b/gcc/f/com.c index 4757d7e0c71..5a6bc7e8d28 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -14879,7 +14879,10 @@ ffe_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)))