Lines Matching refs:shift_decimal

423 shift_decimal (cob_decimal *d, const int n)  in shift_decimal()  function
443 		shift_decimal (d1, d2->scale - d1->scale);  in align_decimal()
445 		shift_decimal (d2, d1->scale - d2->scale);  in align_decimal()
1669 		shift_decimal (d, scale - d->scale + 1);
1706 		shift_decimal (d, scale - d->scale + 1);
1726 		shift_decimal (d, scale - d->scale + 1);
1773 		shift_decimal (d, COB_FIELD_SCALE(f) - d->scale);
1881 	shift_decimal (d1, COB_MAX_DIGITS + ((d1->scale < 0) ? -d1->scale : 0));
1899 		shift_decimal (d1, scale - d1->scale);
1901 		shift_decimal (d1, d1->scale - scale);
1971 	shift_decimal (&cob_d3, COB_FIELD_SCALE(quotient) - cob_d3.scale);