Cross Reference: /src/usr.bin/dc/bcode.c

Lines Matching refs:scale
43 	u_int			scale;
267 	return bmachine.scale;
318 	(void)fprintf(stderr, " %s (%u)\n" , p, n->scale);
392 	if (n->scale == 0 && f != NULL)
394 	else if (n->scale < sizeof(factors)/sizeof(factors[0])) {
395 		rem = BN_div_word(i, factors[n->scale]);
410 		bn_check(BN_set_word(p, n->scale));
422 	scale_number(n->number, (int)(s - n->scale));
423 	n->scale = s;
578 	bn_check(BN_set_word(n->number, bmachine.scale));
586 	u_long		scale;
591 			warnx("scale must be a nonnegative number");
593 			scale = get_ulong(n);
594 			if (scale != NO_NUMBER && scale <= UINT_MAX)
595 				bmachine.scale = (u_int)scale;
597 				warnx("scale too large");
674 	u_int		scale = 0;
684 			scale = value->u.num->scale;
691 		bn_check(BN_set_word(n->number, scale));
703 		return n->scale ? n->scale : 1;
707 	fract_part->scale = n->scale;
717 	return i + n->scale;
967 	r->scale = max(a->scale, b->scale);
968 	if (r->scale > a->scale)
969 		normalize(a, r->scale);
970 	else if (r->scale > b->scale)
971 		normalize(b, r->scale);
995 	r->scale = max(a->scale, b->scale);
996 	if (r->scale > a->scale)
997 		normalize(a, r->scale);
998 	else if (r->scale > b->scale)
999 		normalize(b, r->scale);
1007 bmul_number(struct number *r, struct number *a, struct number *b, u_int scale)
1012 	u_int ascale = a->scale;
1013 	u_int bscale = b->scale;
1021 	r->scale = rscale;
1022 	if (rscale > bmachine.scale && rscale > ascale && rscale > bscale)
1023 		normalize(r, max(scale, max(ascale, bscale)));
1042 	bmul_number(r, a, b, bmachine.scale);
1054 	u_int		scale;
1067 	r->scale = bmachine.scale;
1068 	scale = max(a->scale, b->scale);
1073 		normalize(a, scale);
1074 		normalize(b, scale + r->scale);
1091 	u_int		scale;
1104 	scale = max(a->scale, b->scale);
1105 	r->scale = max(b->scale, a->scale + bmachine.scale);
1110 		normalize(a, scale);
1111 		normalize(b, scale + bmachine.scale);
1128 	u_int		scale;
1142 	rdiv->scale = bmachine.scale;
1143 	rmod->scale = max(b->scale, a->scale + bmachine.scale);
1144 	scale = max(a->scale, b->scale);
1149 		normalize(a, scale);
1150 		normalize(b, scale + bmachine.scale);
1181 	if (p->scale != 0) {
1200 		rscale = bmachine.scale;
1202 		/* Posix bc says min(a.scale * b, max(a.scale, scale) */
1207 		m = max(a->scale, bmachine.scale);
1208 		rscale = a->scale * (u_int)b;
1209 		if (rscale > m || (a->scale > 0 && (b == NO_NUMBER ||
1221 		ascale = a->scale;
1251 			scale_number(one, (int)(r->scale + rscale));
1260 			r->scale = rscale;
1291 	u_int		scale, onecount;
1304 		scale = max(bmachine.scale, n->scale);
1305 		normalize(n, 2*scale);
1322 		r->scale = scale;
1340 	a->scale = 0;
1461 	u_int	scale;
1464 	scale = max(a->scale, b->scale);
1466 	if (scale > a->scale)
1467 		normalize(a, scale);
1468 	else if (scale > b->scale)
1469 		normalize(b, scale);