Mercurial > hg > octave-lyh

comparison src/sysdep.cc @ 1384:083787534e18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-09-13 08:25:37 by jwe]
author jwe
date Wed, 13 Sep 1995 08:32:00 +0000
parents ed5757e3333b
children f18474c64e72
comparison
equal deleted inserted replaced
1383:d0bdfca51b42 1384:083787534e18
176 break; 176 break;
177 tmp = octave_Inf; 177 tmp = octave_Inf;
178 } 178 }
179 #endif 179 #endif
180 180
181 #endif
182
183 #if defined (HAVE_ISNAN)
184
181 #if defined (HAVE_QUIET_NAN) 185 #if defined (HAVE_QUIET_NAN)
182 octave_NaN = (double) quiet_nan (); 186 octave_NaN = (double) quiet_nan ();
183 #elif defined (linux) 187 #elif defined (linux)
184 octave_NaN = NAN; 188 octave_NaN = NAN;
185 #elif defined (__alpha__) 189 #elif defined (__alpha__)
186 extern unsigned int DQNAN[2]; 190 extern unsigned int DQNAN[2];
187 octave_NaN = (*((double *) (DQNAN))); 191 octave_NaN = (*((double *) (DQNAN)));
188 #else 192 #else
189 octave_NaN = octave_Inf / octave_Inf; 193 octave_NaN = octave_Inf / octave_Inf;
190 #endif 194 #endif
191
192 #else
193
194 // This is sort of cheesy, but what can we do, other than blowing it
195 // off completely, or writing an entire IEEE emulation package?
196
197 octave_Inf = DBL_MAX;
198 octave_NaN = DBL_MAX;
199 195
200 #endif 196 #endif
201 197
202 float_params fp[5]; 198 float_params fp[5];
203 199