libdecnumber/dpd/decimal64.c

220   #define sourhi sourar[1]	   /* name the word with the sign */
226     sourhi=UBTOUI(d64->bytes+4);   /* then the high int */
229     sourhi=UBTOUI(d64->bytes  );   /* directly load the high int */
233   comb=(sourhi>>26)&0x1f;	   /* combination field */
236   if (sourhi&0x80000000) dn->bits=DECNEG; /* set sign if negative */
246     else if (sourhi&0x02000000) dn->bits|=DECSNAN;
251     dn->exponent=(exp<<8)+((sourhi>>18)&0xff)-DECIMAL64_Bias; /* unbiased */
255   sourhi&=0x0003ffff;		   /* clean coefficient continuation */
257     sourhi|=msd<<18;		   /* prefix to coefficient */
261     if (!sourhi) {		   /* top word 0 */
269       if (sourhi&0x0003ff00) need++; /* top declet!=0, process 5 */
312   #define sourhi sourar[1]	   /* name the word with the sign */
318     sourhi=UBTOUI(d64->bytes+4);   /* then the high int */
321     sourhi=UBTOUI(d64->bytes  );   /* directly load the high int */
326   if (((Int)sourhi)<0) *c++='-';   /* handle sign */
328   comb=(sourhi>>26)&0x1f;	   /* combination field */
338     if (sourhi&0x02000000) *c++='s'; /* sNaN */
341     if (sourlo==0 && (sourhi&0x0003ffff)==0) return string; /* zero payload */
345    else exp=(exp<<8)+((sourhi>>18)&0xff)-DECIMAL64_Bias;
363   dpd=(sourhi>>8)&0x3ff;		     /* declet 1 */
365   dpd=((sourhi&0xff)<<2) | (sourlo>>30);     /* declet 2 */