From: Richard Stallman <rms@gnu.org>
Date: Thu, 20 May 1993 23:17:11 +0000 (+0000)
Subject: (F_check): Do nothing in long double case, if NO_LONG_DOUBLE_IO.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=39ed64b80194686350080ad6edc37fd091c3c0eb;p=gcc.git

(F_check): Do nothing in long double case, if NO_LONG_DOUBLE_IO.

From-SVN: r4522
---

diff --git a/gcc/enquire.c b/gcc/enquire.c
index ff9f5b63ea9..d9e16f16788 100644
--- a/gcc/enquire.c
+++ b/gcc/enquire.c
@@ -2159,6 +2159,10 @@ Procedure F_check(precision, val1) int precision; Long_double val1; {
 	/* On the Sun 3, sscanf clobbers 4 words,
 	   which leads to a crash when this function tries to return.  */
 	f2= "%le";   /* Input */
+	/* It is no use checking long doubles if we can't
+	   read and write them.  */
+	if (sizeof (Number) > sizeof(double))
+	  return;
 #else
 	Long_double new1;
 	if (sizeof(double) == sizeof(Long_double)) {