/[gcl]/gcl/o/num_co.c
ViewVC logotype

Diff of /gcl/o/num_co.c

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

revision 1.3 by camm, Wed May 22 19:04:44 2002 UTC revision 1.4 by camm, Thu Jun 6 16:41:52 2002 UTC
# Line 29  Foundation, 675 Mass Ave, Cambridge, MA Line 29  Foundation, 675 Mass Ave, Cambridge, MA
29  #define IN_NUM_CO  #define IN_NUM_CO
30    
31  #define NEED_MP_H  #define NEED_MP_H
32  #define _GNU_SOURCE  
33  #include "include.h"  #include "include.h"
34  #include "num_include.h"  #include "num_include.h"
35    
# Line 121  int *hp, *lp, *ep, *sp; Line 121  int *hp, *lp, *ep, *sp;
121          h = h >> 1;          h = h >> 1;
122  #endif  #endif
123  #ifdef IEEEFLOAT  #ifdef IEEEFLOAT
124          if (isnormal(d)) {          if (ISNORMAL(d)) {
125            *ep = ((h & 0x7ff00000) >> 20) - 1022 - 53;            *ep = ((h & 0x7ff00000) >> 20) - 1022 - 53;
126            h = (h & 0x000fffff | 0x00100000);            h = (h & 0x000fffff | 0x00100000);
127          } else {          } else {
# Line 207  int *mp, *ep, *sp; Line 207  int *mp, *ep, *sp;
207    
208  #endif  #endif
209  #ifdef IEEEFLOAT  #ifdef IEEEFLOAT
210          if (isnormal(f)) {          if (ISNORMAL(f)) {
211            *ep = ((m & 0x7f800000) >> 23) - 126 - 24;            *ep = ((m & 0x7f800000) >> 23) - 126 - 24;
212            *mp = m & 0x007fffff | 0x00800000;            *mp = m & 0x007fffff | 0x00800000;
213          } else {          } else {

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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