dist/libdecnumber/decCommon.c

115 /* DECCOMBEXP, DECCOMBWEXP, and DECCOMBMSD are indexed by the sign    */
261   if (num->sign!=0 && num->sign!=DECFLOAT_Sign)
262     printf("decFinalize: bad sign [%08lx]\n", (LI)num->sign);
359 	    if (!num->sign && reround>0) bump=1;
364 	    if (num->sign && reround>0) bump=1;
447 	    if (num->sign) needmax=1;	/* Infinity iff non-negative */
450 	    if (!num->sign) needmax=1;	/* Infinity iff negative */
495     return decFloatFromBCD(df, num->exponent, umsd, num->sign);
510   encode|=num->sign;			/* add sign */
526   /* according to endianness; in all cases complete the sign word */
575 /* decFloatFromBCD -- set decFloat from exponent, BCD8, and sign      */
584 /*  sig is DECFLOAT_Sign to set the sign bit, 0 otherwise	      */
614   /* according to endianness; in all cases complete the sign word */
666 /*  packed holds DECPMAX packed decimal digits plus a sign nibble     */
668 /*    and all except sign are ignored if df is infinite.  For DOUBLE  */
670 /*    All coefficient nibbles must be in 0-9 and sign in A-F; results */
677   uByte bcdar[DECPMAX+2];		/* work [+1 for pad, +1 for sign] */
680   Int	sig=0;				/* sign */
682   /* expand coefficient and sign to BCDAR */
690     *op++=(uByte)(*ip&0x0f);		/* [final nibble is sign] */
692   op--; 				/* -> sign byte */
708 /*  packed holds DECPMAX packed decimal digits plus a sign nibble     */
712 /*    All coefficient nibbles must be in 0-9 and sign in A-F.	      */
716 /*    except that all six sign codes are accepted.		      */
722   uByte bcdar[DECPMAX+2];		/* work [+1 for pad, +1 for sign] */
725   Int	sig=0;				/* sign */
727   /* expand coefficient and sign to BCDAR */
737     *op=(uByte)(*ip&0x0f);		/* [final nibble is sign] */
741   op--; 				/* -> sign byte */
742   if (*op<=9) return NULL;		/* bad sign */
805     num.sign=0; 			/* assume non-negative */
821 	if (*c=='-') {			/* valid - sign */
823 	  num.sign=DECFLOAT_Sign;
825 	if (*c=='+') {			/* valid + sign */
843 	c++;				/* to (optional) sign */
844 	if (*c=='-' || *c=='+') c++;	/* step over sign (c=clast+2) */
1005     num.sign=0; 			/* .. with 0 sign */
1042   num.sign=widerhi&0x80000000;		/* extract sign [DECFLOAT_Sign=Neg] */
1064 /*  returns the sign of the coefficient (DECFLOAT_Sign if negative,   */
1088 /* left adjusted and with the first (sign) bit set to 0 (followed by  */
1103 /*  sig is DECFLOAT_Sign to set the sign bit, 0 otherwise	      */
1140   num.sign=decFloatGetCoefficient(df, bcdcopy); /* extract coefficient */
1190 /* decFloatToBCD -- get sign, exponent, and BCD8 from a decFloat      */
1198 /*  returns the sign of the coefficient (DECFLOAT_Sign if negative,   */
1247   uInt sourhi=DFWORD(df, 0);	   /* word with sign */
1257   if (((Int)sourhi)<0) *c++='-';   /* handle sign */
1258   comb=sourhi>>26;		   /* sign+combination field */
1458 /*  packed is where DECPMAX nibbles will be written with the sign as  */
1463 /*  returns the sign of the coefficient (DECFLOAT_Sign if negative,   */
1491   /* set final byte to Packed BCD sign value */
1526   uInt sourhi=DFWORD(df, 0);	   /* word with sign */
1536   if (((Int)sourhi)<0) *c++='-';   /* handle sign */
1537   comb=sourhi>>26;		   /* sign+combination field */
1729   /* Construct and copy the sign word */
1731     /* copy sign, combination, and first bit of exponent (sNaN selector) */
1739     code|=DFWORD(source, 0)&0x80000000; /* add sign */
1797     const char *csign="+";		/* sign character */
1800     if (num->sign==DECFLOAT_Sign) csign="-";