usr.bin/dc/bcode.c

45 	u_int			 scale;
258 	return bmachine.scale;
311 	fprintf(stderr, " %s (%u)\n" , p, n->scale);
387 	if (n->scale == 0 && f != NULL)
389 	else if (n->scale < sizeof(factors)/sizeof(factors[0])) {
390 		rem = BN_div_word(i, factors[n->scale]);
405 		bn_check(BN_set_word(p, n->scale));
418 	scale_number(n->number, s - n->scale);
419 	n->scale = s;
587 	bn_check(BN_set_word(n->number, bmachine.scale));
595 	u_long scale;
600 			warnx("scale must be a nonnegative number");
602 			scale = get_ulong(n);
603 			if (scale != BN_MASK2 && scale <= UINT_MAX)
604 				bmachine.scale = (u_int)scale;
606 				warnx("scale too large");
684 	u_int scale = 0;
692 			scale = value->u.num->scale;
699 		bn_check(BN_set_word(n->number, scale));
711 		return n->scale ? n->scale : 1;
715 	fract_part->scale = n->scale;
725 	return (i + n->scale);
986 	r->scale = max(a->scale, b->scale);
987 	if (r->scale > a->scale)
988 		normalize(a, r->scale);
989 	else if (r->scale > b->scale)
990 		normalize(b, r->scale);
1013 	r->scale = max(a->scale, b->scale);
1014 	if (r->scale > a->scale)
1015 		normalize(a, r->scale);
1016 	else if (r->scale > b->scale)
1017 		normalize(b, r->scale);
1025 bmul_number(struct number *r, struct number *a, struct number *b, u_int scale)
1030 	u_int ascale = a->scale;
1031 	u_int bscale = b->scale;
1039 	r->scale = rscale;
1040 	if (rscale > bmachine.scale && rscale > ascale && rscale > bscale)
1041 		normalize(r, max(scale, max(ascale, bscale)));
1059 	bmul_number(r, a, b, bmachine.scale);
1071 	u_int scale;
1083 	r->scale = bmachine.scale;
1084 	scale = max(a->scale, b->scale);
1089 		normalize(a, scale);
1090 		normalize(b, scale + r->scale);
1107 	u_int scale;
1119 	scale = max(a->scale, b->scale);
1120 	r->scale = max(b->scale, a->scale + bmachine.scale);
1125 		normalize(a, scale);
1126 		normalize(b, scale + bmachine.scale);
1143 	u_int scale;
1156 	rdiv->scale = bmachine.scale;
1157 	rmod->scale = max(b->scale, a->scale + bmachine.scale);
1158 	scale = max(a->scale, b->scale);
1163 		normalize(a, scale);
1164 		normalize(b, scale + bmachine.scale);
1195 	if (p->scale != 0) {
1214 		rscale = bmachine.scale;
1216 		/* Posix bc says min(a.scale * b, max(a.scale, scale) */
1221 		m = max(a->scale, bmachine.scale);
1222 		rscale = a->scale * (u_int)b;
1223 		if (rscale > m || (a->scale > 0 && (b == BN_MASK2 ||
1235 		ascale = a->scale;
1265 			scale_number(one, r->scale + rscale);
1274 			r->scale = rscale;
1305 	u_int onecount, scale;
1317 		scale = max(bmachine.scale, n->scale);
1318 		normalize(n, 2*scale);
1335 		r->scale = scale;
1353 	a->scale = 0;
1481 	u_int scale;
1484 	scale = max(a->scale, b->scale);
1486 	if (scale > a->scale)
1487 		normalize(a, scale);
1488 	else if (scale > b->scale)
1489 		normalize(b, scale);