Function decFloatCopySign

extern/decNumber/decBasic.c:1862–1869

------------------------------------------------------------------ */ decFloatCopySign -- copy a decFloat with the sign of another */ / result gets the result of copying dfl with the sign of dfr */ dfl is the first decFloat (lhs) */ dfr is the second decFloat (rhs) */ returns result

/* This is a bitwise operation; no errors or exceptions are possible. */
/* ------------------------------------------------------------------ */
decFloat * decFloatCopySign(decFloat *result,
                            const decFloat *dfl, const decFloat *dfr) {
  uByte sign=(uByte)(DFBYTE(dfr, 0)&0x80);   // save sign bit
  if (dfl!=result) *result=*dfl;             // copy needed
  DFBYTE(result, 0)&=~0x80;                  // clear sign ..
  DFBYTE(result, 0)=(uByte)(DFBYTE(result, 0)|sign); // .. and set saved
  return result;
  } // decFloatCopySign

/* ------------------------------------------------------------------ */
/* decFloatDigits -- return the number of digits in a decFloat        */