Return to copysign.c CVS log

Up to [Apple XNU] / GNUtools / libg++ / libiberty

Annotation of GNUtools/libg++/libiberty/copysign.c, revision 1.1.1.1

1.1       root        1: #include <ansidecl.h>
                      2: 
                      3: #ifdef __IEEE_BIG_ENDIAN
                      4: 
                      5: typedef union 
                      6: {
                      7:   double value;
                      8:   struct 
                      9:   {
                     10:     unsigned int sign : 1;
                     11:     unsigned int exponent: 11;
                     12:     unsigned int fraction0:4;
                     13:     unsigned int fraction1:16;
                     14:     unsigned int fraction2:16;
                     15:     unsigned int fraction3:16;
                     16:     
                     17:   } number;
                     18:   struct 
                     19:   {
                     20:     unsigned int sign : 1;
                     21:     unsigned int exponent: 11;
                     22:     unsigned int quiet:1;
                     23:     unsigned int function0:3;
                     24:     unsigned int function1:16;
                     25:     unsigned int function2:16;
                     26:     unsigned int function3:16;
                     27:   } nan;
                     28:   struct 
                     29:   {
                     30:     unsigned long msw;
                     31:     unsigned long lsw;
                     32:   } parts;
                     33:     long aslong[2];
                     34: } __ieee_double_shape_type;
                     35: 
                     36: #endif
                     37: 
                     38: #ifdef __IEEE_LITTLE_ENDIAN
                     39: 
                     40: typedef union 
                     41: {
                     42:   double value;
                     43:   struct 
                     44:   {
                     45: #ifdef __SMALL_BITFIELDS
                     46:     unsigned int fraction3:16;
                     47:     unsigned int fraction2:16;
                     48:     unsigned int fraction1:16;
                     49:     unsigned int fraction0: 4;
                     50: #else
                     51:     unsigned int fraction1:32;
                     52:     unsigned int fraction0:20;
                     53: #endif
                     54:     unsigned int exponent :11;
                     55:     unsigned int sign     : 1;
                     56:   } number;
                     57:   struct 
                     58:   {
                     59: #ifdef __SMALL_BITFIELDS
                     60:     unsigned int function3:16;
                     61:     unsigned int function2:16;
                     62:     unsigned int function1:16;
                     63:     unsigned int function0:3;
                     64: #else
                     65:     unsigned int function1:32;
                     66:     unsigned int function0:19;
                     67: #endif
                     68:     unsigned int quiet:1;
                     69:     unsigned int exponent: 11;
                     70:     unsigned int sign : 1;
                     71:   } nan;
                     72:   struct 
                     73:   {
                     74:     unsigned long lsw;
                     75:     unsigned long msw;
                     76:   } parts;
                     77: 
                     78:   long aslong[2];
                     79: 
                     80: } __ieee_double_shape_type;
                     81: 
                     82: #endif
                     83: 
                     84: #ifdef __IEEE_BIG_ENDIAN
                     85: typedef union
                     86: {
                     87:   float value;
                     88:   struct 
                     89:   {
                     90:     unsigned int sign : 1;
                     91:     unsigned int exponent: 8;
                     92:     unsigned int fraction0: 7;
                     93:     unsigned int fraction1: 16;
                     94:   } number;
                     95:   struct 
                     96:   {
                     97:     unsigned int sign:1;
                     98:     unsigned int exponent:8;
                     99:     unsigned int quiet:1;
                    100:     unsigned int function0:6;
                    101:     unsigned int function1:16;
                    102:   } nan;
                    103:   long p1;
                    104:   
                    105: } __ieee_float_shape_type;
                    106: #endif
                    107: 
                    108: #ifdef __IEEE_LITTLE_ENDIAN
                    109: typedef union
                    110: {
                    111:   float value;
                    112:   struct 
                    113:   {
                    114:     unsigned int fraction0: 7;
                    115:     unsigned int fraction1: 16;
                    116:     unsigned int exponent: 8;
                    117:     unsigned int sign : 1;
                    118:   } number;
                    119:   struct 
                    120:   {
                    121:     unsigned int function1:16;
                    122:     unsigned int function0:6;
                    123:     unsigned int quiet:1;
                    124:     unsigned int exponent:8;
                    125:     unsigned int sign:1;
                    126:   } nan;
                    127:   long p1;
                    128:   
                    129: } __ieee_float_shape_type;
                    130: #endif
                    131: 
                    132: 
                    133: double DEFUN(copysign, (x, y), double x AND double y)
                    134: {
                    135:   __ieee_double_shape_type a,b;
                    136:   b.value = y;  
                    137:   a.value = x;
                    138:   a.number.sign =b.number.sign;
                    139:   return a.value;
                    140: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.