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: r56921

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: r56921
902c7fdf · Jan Hubicka · Andreas Jaeger · 7d9857fd · 902c7fdf · 902c7fdf
Commit 902c7fdf authored Sep 07, 2002 by Jan Hubicka Committed by Andreas Jaeger Sep 07, 2002
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 1 deletions

gcc/f/ChangeLog
+4 -0

gcc/f/com.c
+4 -1

No files found.
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
+2002-09-07  Jan Hubicka  <jh@suse.cz>
+
+	* com.c (ffe_type_for_mode): Handle long double.
+
 2002-09-04  Richard Henderson  <rth@redhat.com>

 	* target.h (ffetarget_print_real1, ffetarget_print_real2): Update

--- 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)))