From: Richard Kenner <kenner@gcc.gnu.org>
Date: Wed, 16 Feb 1994 00:36:35 +0000 (-0500)
Subject: (real_value_truncate): If requested mode is not supported, return the
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0de689b7ada13c7d480491647363e4995ed5ba93;p=gcc.git

(real_value_truncate): If requested mode is not supported, return the
unmodified input instead of aborting.

From-SVN: r6568
---

diff --git a/gcc/real.c b/gcc/real.c
index ea89ef80787..2f065262442 100644
--- a/gcc/real.c
+++ b/gcc/real.c
@@ -882,8 +882,11 @@ real_value_truncate (mode, arg)
       r = etrunci (arg);
       return (r);
 
+    /* If an unsupported type was requested, presume that
+       the machine files know something useful to do with
+       the unmodified value.  */
     default:
-      abort ();
+      return (arg);
     }
   PUT_REAL (t, &r);
   return (r);