diff options
| author | rms <rms@138bc75d-0d04-0410-961f-82ee72b054a4> | 1993-05-20 23:17:11 +0000 |
|---|---|---|
| committer | rms <rms@138bc75d-0d04-0410-961f-82ee72b054a4> | 1993-05-20 23:17:11 +0000 |
| commit | 117db52fc6184da5008f265a4b29edbfcd6e17fe (patch) | |
| tree | b69990971b0eee23392932eaa04207bca20c7e78 /gcc/enquire.c | |
| parent | 67aebfdd8e65491756daa9d7cfe217790bf5fcac (diff) | |
| download | gcc-117db52fc6184da5008f265a4b29edbfcd6e17fe.tar.gz | |
(F_check): Do nothing in long double case, if NO_LONG_DOUBLE_IO.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@4522 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/enquire.c')
| -rw-r--r-- | gcc/enquire.c | 4 |
1 files changed, 4 insertions, 0 deletions
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)) { |