/[gcl]/gcl/o/read.d
ViewVC logotype

Diff of /gcl/o/read.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by wfs, Sun May 6 15:59:23 2001 UTC revision 1.6 by camm, Thu Jun 13 00:09:05 2002 UTC
# Line 22  Foundation, 675 Mass Ave, Cambridge, MA Line 22  Foundation, 675 Mass Ave, Cambridge, MA
22          read.d          read.d
23  */  */
24    
25    #define _GNU_SOURCE
26  #include "include.h"  #include "include.h"
27    
28    
# Line 837  EXPONENT: Line 837  EXPONENT:
837    
838  MAKE_FLOAT:  MAKE_FLOAT:
839  #ifdef IEEEFLOAT  #ifdef IEEEFLOAT
840          if ((*((int *)&fraction +HIND) & 0x7ff00000) == 0x7ff00000)  /*      if ((*((int *)&fraction +HIND) & 0x7ff00000) == 0x7ff00000)*/
841            if (!isfinite(fraction))
842                  FEerror("Floating-point overflow.", 0);                  FEerror("Floating-point overflow.", 0);
843  #endif  #endif
844          switch (exponent_marker) {          switch (exponent_marker) {

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26