Lines Matching refs:ub
192 uByte *ub; /* .. */
539 for (uq=msuq, ub=bcdacc+1; uq>=lsuq; uq--, ub+=9) {
542 UBFROMUI(ub, 0); /* clear 9 BCD8s */
543 UBFROMUI(ub+4, 0); /* .. */
544 *(ub+8)=0; /* .. */
558 UBFROMUI(ub, UBTOUI(&BIN2BCD8[top*4]));
559 UBFROMUI(ub+3, UBTOUI(&BIN2BCD8[mid*4]));
560 UBFROMUI(ub+6, UBTOUI(&BIN2BCD8[rem*4]));
562 ub--; /* -> lsu */
567 num.lsd=ub;
575 for (; *ub==0;) ub--; /* drop zeros */
576 num.exponent+=(Int)(num.lsd-ub); /* and adjust exponent */
577 num.lsd=ub;
609 for (ub=num.lsd+1; ub<=num.lsd+num.exponent; ub++) *ub=0;
631 for (ub=roundat+1; ub<=num.lsd; ub++) {
632 if (*ub!=0) {
650 ub=num.lsd;
651 for (; UBTOUI(ub-3)==0x09090909; ub-=4) UBFROMUI(ub-3, 0);
652 for (; *ub==9; ub--) *ub=0; /* at most 3 more */
653 *ub+=1;
654 if (ub<num.msd) num.msd--; /* carried */
723 uByte *ub; /* .. */
1028 for (ub=bcdacc;; pa--, ub+=9) {
1043 UBFROMUI(ub, UBTOUI(&BIN2BCD8[top*4]));
1044 UBFROMUI(ub+3, UBTOUI(&BIN2BCD8[mid*4]));
1045 UBFROMUI(ub+6, UBTOUI(&BIN2BCD8[rem*4]));
1048 UBFROMUI(ub, 0); /* clear 9 BCD8s */
1049 UBFROMUI(ub+4, 0); /* .. */
1050 *(ub+8)=0; /* .. */
1055 num->lsd=ub+8; /* complete the bcdnum .. */
1117 uByte *ub, *us, *ut; /* work */
1351 for (ub=ulsd; *ub==9; ub--) *ub=0;
1352 *ub+=1;
1365 ub=ulsd+gap+1; /* where MSD will go */
1368 for (; ut<ub; ut+=4) UBFROMUI(ut, 0); /* mind the gap */
1370 *ub=(uByte)(!DFISZERO(dfr)); /* make sticky digit */
1373 GETCOEFF(dfr, ub); /* decode from decFloat */
1374 ub+=DECPMAX-1; /* new LSD... */
1376 ulsd=ub; /* save new LSD */
1383 ub=buf+COFF; /* where msd will go */
1387 GETCOEFF(dfr, ub); /* decode from decFloat */
1390 ub=buf+COFF+DECPMAX-overlap; /* where MSD will go */
1398 if (ub>buf+12) {
1400 for (; ut<ub; ut+=4) UBFROMUI(ut, 0); /* fill them */
1402 GETCOEFF(dfr, ub); /* decode from decFloat */
1408 if (buf+COFF+DECPMAX+8<ub+DECPMAX) {
1411 for (; us<ub+DECPMAX; us+=4, ut+=4) UBFROMUI(ut, UBTOUI(us));
1415 ulsd=acc+(ub-buf+DECPMAX-1); /* update LSD pointer */
1526 for (ub=ulsd; *ub==9; ub--) *ub=0;
1527 *ub+=1;
1757 uByte *ub, *uc; /* work */
1771 for (ub=bufl, uc=bufr; ub<bufl+DECPMAX+QUAD*2; ub+=4, uc+=4) {
1772 uInt ui=UBTOUI(ub);
1775 for (;; ub++, uc++) {
1776 if (*ub==*uc) continue;
1777 if (*ub>*uc) comp=sigl; /* difference found */
2024 uByte *ub, *uh, *ul; /* work */
2141 ub=acc+FMALEN-1; /* where lsd of result will go */
2184 for (; ul-3>=lo->msd && padding>3; padding-=4, ul-=4, ub-=4) {
2185 UBFROMUI(ub-3, UBTOUI(ul-3)); /* [cannot overlap] */
2187 for (; ul>=lo->msd && padding>0; padding--, ul--, ub--) *ub=*ul;
2188 for (;padding>0; padding--, ub--) *ub=0; /* mind the gap */
2198 for (;; ub--) {
2200 *ub=(uByte)(carry+(*uh--)+(*ul--));
2202 if (*ub<10) continue;
2203 *ub-=10;
2208 for (;; ub--) {
2210 *ub=(uByte)(carry+(*uh--)); /* [+0] */
2212 if (*ub<10) continue;
2213 *ub-=10;
2218 for (;; ub--) {
2220 *ub=(uByte)(carry+hipad+(*ul--));
2222 if (*ub<10) continue;
2223 *ub-=10;
2231 lo->msd=ub+1;
2236 *ub=1; /* place the 1 .. */
2905 uByte *ub, *uc; /* work */
2985 for (ub=roundat+1; ub<BUFOFF+DECPMAX; ub++) {
2986 if (*ub!=0) { /* non-zero to be discarded */
3002 for (ub=roundat+1; ub<BUFOFF+DECPMAX; ub++) {
3003 if (*ub!=0) { /* non-zero to be discarded */
3064 ub=ulsd;
3065 for (; UBTOUI(ub-3)==0x09090909; ub-=4) UBFROMUI(ub-3, 0);
3067 for (; *ub==9; ub--) *ub=0;
3068 *ub+=1;
3141 #define getDPD3q(dpd, n) ub=ulsd-(3*(n))-2; \
3142 dpd=BCD2DPD[(*ub*256)+(*(ub+1)*16)+*(ub+2)];
3193 uByte buf[DECPMAX], *ub; /* coefficient and pointer */
3206 ub=buf+DECPMAX-1; /* -> lsd */
3207 if (*ub) return result; /* no trailing zeros */
3208 for (ub--; *ub==0;) ub--; /* terminates because non-zero */
3209 /* *ub is the first non-zero from the right */
3211 num.exponent=GETEXPUN(df)+(Int)(buf+DECPMAX-1-ub); /* adjusted exponent */
3213 num.lsd=ub;
3276 uByte *ub; /* .. */
3298 ub=buf;
3299 if (rotate<0) ub+=PHALF; /* rotate right, so space to left */
3300 GETCOEFF(dfl, ub);
3625 uByte *ub, *uc; /* work */
3689 for (ub=bufl, uc=bufr; ub<bufl+DECPMAX+QUAD*2; ub+=4, uc+=4) {
3690 uInt ui=UBTOUI(ub);
3693 for (;; ub++, uc++) {
3694 if (*ub>*uc) return sigl; /* difference found */
3695 if (*ub<*uc) return sigr; /* .. */
3700 ub=bufl; /* RHS pointer */
3711 for (;; ub+=4) {
3712 if (UBTOUI(ub)!=0) return sigl;
3713 if (ub+4>bufl+shift-4) break;
3717 for (; ub<bufl+shift; ub++) if (*ub!=0) return sigl;
3721 for (uc=bufr; ; uc+=4, ub+=4) {
3722 uInt ui=UBTOUI(ub);
3724 for (;; uc++, ub++) { /* check from left [little-endian?] */
3725 if (*ub>*uc) return sigl; /* difference found */
3726 if (*ub<*uc) return sigr; /* .. */
3755 for (ub=bufl; ; ub+=4, uc+=4) {
3756 uInt ui=UBTOUI(ub);
3758 for (;; ub++, uc++) { /* check from left [little-endian?] */
3759 if (*ub>*uc) return sigl; /* difference found */
3760 if (*ub<*uc) return sigr; /* .. */
3763 if (ub==bufl+QUAD*2+DECPMAX-4) break; /* all checked */
Indexes created Thu Mar 19 00:23:35 UTC 2026