OSDN Git Service

2002-09-07 Jan Hubicka <jh@suse.cz>
authoraj <aj@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 7 Sep 2002 19:18:16 +0000 (19:18 +0000)
committeraj <aj@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 7 Sep 2002 19:18:16 +0000 (19:18 +0000)
        * 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

gcc/f/ChangeLog
gcc/f/com.c

index 56e33aa..299a5c3 100644 (file)
@@ -1,3 +1,7 @@
+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
index 4757d7e..5a6bc7e 100644 (file)
@@ -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)))