Koders Code Search: copysign.c

download

copysign.c
Language: C
LOC: 125

Project Info
MinGW - Minimalist GNU for Windows(mingw)
Server: SourceForge
Type: cvs

$SourceForge\m\mingw\mingw\msys\rt\src\libiberty\$ ...ingw\msys\rt\src\libiberty\

   aclocal.m4
   alloca.c
   argv.c
   asprintf.c
   atexit.c
   basename.c
   bcmp.c
   bcopy.c
   bsearch.c
   bzero.c
   calloc.c
   ChangeLog.MSYS
   choose-temp.c
   clock.c
   concat.c
   config.h-vms
   config.in
   config.table
   configure.in
   copysign.c
   cp-demangle.c
   cplus-dem.c
   dyn-string.c
   fdmatch.c
   ffs.c
   fibheap.c
   floatformat.c
   fnmatch.c
   getcwd.c
   getopt.c
   getopt1.c
   getpagesize.c
   getpwd.c
   getruntime.c
   hashtab.c
   hex.c
   index.c
   insque.c
   lbasename.c
   make-temp-file.c
   Makefile.in
   makefile.vms
   md5.c
   memchr.c
   memcmp.c
   memcpy.c
   memmove.c
   memset.c
   mkstemps.c
   mpw-config.in
   mpw-make.sed
   mpw.c
   msdos.c
   objalloc.c
   obstack.c
   partition.c
   pexecute.c
   putenv.c
   random.c
   regex.c
   rename.c
   rindex.c
   safe-ctype.c
   setenv.c
   sigsetmask.c
   sort.c
   spaces.c
   splay-tree.c
   strcasecmp.c
   strchr.c
   strdup.c
   strerror.c
   strncasecmp.c
   strncmp.c
   strrchr.c
   strsignal.c
   strstr.c
   strtod.c
   strtol.c
   strtoul.c
   ternary.c
   tmpnam.c
   vasprintf.c
   vfork.c
   vfprintf.c
   vprintf.c
   vsprintf.c
   waitpid.c
   xatexit.c
   xexit.c
   xmalloc.c
   xmemdup.c
   xstrdup.c
   xstrerror.c

#include <ansidecl.h>

#ifdef __IEEE_BIG_ENDIAN

typedef union 
{
  double value;
  struct 
  {
    unsigned int sign : 1;
    unsigned int exponent: 11;
    unsigned int fraction0:4;
    unsigned int fraction1:16;
    unsigned int fraction2:16;
    unsigned int fraction3:16;
    
  } number;
  struct 
  {
    unsigned int sign : 1;
    unsigned int exponent: 11;
    unsigned int quiet:1;
    unsigned int function0:3;
    unsigned int function1:16;
    unsigned int function2:16;
    unsigned int function3:16;
  } nan;
  struct 
  {
    unsigned long msw;
    unsigned long lsw;
  } parts;
    long aslong[2];
} __ieee_double_shape_type;

#endif

#ifdef __IEEE_LITTLE_ENDIAN

typedef union 
{
  double value;
  struct 
  {
#ifdef __SMALL_BITFIELDS
    unsigned int fraction3:16;
    unsigned int fraction2:16;
    unsigned int fraction1:16;
    unsigned int fraction0: 4;
#else
    unsigned int fraction1:32;
    unsigned int fraction0:20;
#endif
    unsigned int exponent :11;
    unsigned int sign     : 1;
  } number;
  struct 
  {
#ifdef __SMALL_BITFIELDS
    unsigned int function3:16;
    unsigned int function2:16;
    unsigned int function1:16;
    unsigned int function0:3;
#else
    unsigned int function1:32;
    unsigned int function0:19;
#endif
    unsigned int quiet:1;
    unsigned int exponent: 11;
    unsigned int sign : 1;
  } nan;
  struct 
  {
    unsigned long lsw;
    unsigned long msw;
  } parts;

  long aslong[2];

} __ieee_double_shape_type;

#endif

#ifdef __IEEE_BIG_ENDIAN
typedef union
{
  float value;
  struct 
  {
    unsigned int sign : 1;
    unsigned int exponent: 8;
    unsigned int fraction0: 7;
    unsigned int fraction1: 16;
  } number;
  struct 
  {
    unsigned int sign:1;
    unsigned int exponent:8;
    unsigned int quiet:1;
    unsigned int function0:6;
    unsigned int function1:16;
  } nan;
  long p1;
  
} __ieee_float_shape_type;
#endif

#ifdef __IEEE_LITTLE_ENDIAN
typedef union
{
  float value;
  struct 
  {
    unsigned int fraction0: 7;
    unsigned int fraction1: 16;
    unsigned int exponent: 8;
    unsigned int sign : 1;
  } number;
  struct 
  {
    unsigned int function1:16;
    unsigned int function0:6;
    unsigned int quiet:1;
    unsigned int exponent:8;
    unsigned int sign:1;
  } nan;
  long p1;
  
} __ieee_float_shape_type;
#endif


double DEFUN(copysign, (x, y), double x AND double y)
{
  __ieee_double_shape_type a,b;
  b.value = y;  
  a.value = x;
  a.number.sign =b.number.sign;
  return a.value;
}