Lines Matching refs:number
64 static u_long get_ulong(struct number *);
66 static __inline void push_number(struct number *);
70 static __inline struct number *pop_number(void);
90 static u_int count_digits(const struct number *);
115 static bool compare_numbers(enum bcode_compare, struct number *,
116 struct number *);
312 pn(const char *str, const struct number *n) in pn()
314 char *p = BN_bn2dec(n->number); in pn()
386 split_number(const struct number *n, BIGNUM *i, BIGNUM *f) in split_number()
390 bn_checkp(BN_copy(i, n->number)); in split_number()
412 bn_check(BN_div(i, f, n->number, a, ctx)); in split_number()
420 normalize(struct number *n, u_int s) in normalize()
422 scale_number(n->number, (int)(s - n->scale)); in normalize()
427 get_ulong(struct number *n) in get_ulong()
430 return BN_get_word(n->number); in get_ulong()
434 negate(struct number *n) in negate()
436 BN_set_negative(n->number, !BN_is_negative(n->number)); in negate()
440 push_number(struct number *n) in push_number()
469 static __inline struct number *
575 struct number *n; in get_scale()
578 bn_check(BN_set_word(n->number, bmachine.scale)); in get_scale()
585 struct number *n; in set_scale()
590 if (BN_is_negative(n->number)) in set_scale()
606 struct number *n; in get_obase()
609 bn_check(BN_set_word(n->number, bmachine.obase)); in get_obase()
616 struct number *n; in set_obase()
633 struct number *n; in get_ibase()
636 bn_check(BN_set_word(n->number, bmachine.ibase)); in get_ibase()
643 struct number *n; in set_ibase()
662 struct number *n; in stackdepth()
666 bn_check(BN_set_word(n->number, (BN_ULONG)i)); in stackdepth()
675 struct number *n; in push_scale()
691 bn_check(BN_set_word(n->number, scale)); in push_scale()
697 count_digits(const struct number *n) in count_digits()
699 struct number *int_part, *fract_part; in count_digits()
702 if (BN_is_zero(n->number)) in count_digits()
708 split_number(n, int_part->number, fract_part->number); in count_digits()
711 while (!BN_is_zero(int_part->number)) { in count_digits()
712 (void)BN_div_word(int_part->number, 10); in count_digits()
725 struct number *n = NULL; in num_digits()
735 bn_check(BN_set_word(n->number, (BN_ULONG)digits)); in num_digits()
740 bn_check(BN_set_word(n->number, (BN_ULONG)digits)); in num_digits()
753 struct number *n; in to_ascii()
764 if (BN_num_bits(n->number) > 8) in to_ascii()
765 bn_check(BN_mask_bits(n->number, 8)); in to_ascii()
766 str[0] = (char)BN_get_word(n->number); in to_ascii()
804 struct number *n; in load()
811 bn_check(BN_set_word(n->number, 0)); in load()
875 struct number *inumber, *n; in load_array()
886 if (BN_is_negative(inumber->number)) in load_array()
895 bn_check(BN_set_word(n->number, 0)); in load_array()
909 struct number *inumber; in store_array()
925 if (BN_is_negative(inumber->number)) { in store_array()
954 struct number *a, *b; in badd()
955 struct number *r; in badd()
972 bn_check(BN_add(r->number, a->number, b->number)); in badd()
981 struct number *a, *b; in bsub()
982 struct number *r; in bsub()
1000 bn_check(BN_sub(r->number, b->number, a->number)); in bsub()
1007 bmul_number(struct number *r, struct number *a, struct number *b, u_int scale) in bmul_number()
1018 bn_check(BN_mul(r->number, a->number, b->number, ctx)); in bmul_number()
1029 struct number *a, *b; in bmul()
1030 struct number *r; in bmul()
1052 struct number *a, *b; in bdiv()
1053 struct number *r; in bdiv()
1070 if (BN_is_zero(a->number)) in bdiv()
1078 bn_check(BN_div(r->number, NULL, b->number, a->number, ctx)); in bdiv()
1089 struct number *a, *b; in bmod()
1090 struct number *r; in bmod()
1107 if (BN_is_zero(a->number)) in bmod()
1115 bn_check(BN_mod(r->number, b->number, a->number, ctx)); in bmod()
1126 struct number *a, *b; in bdivmod()
1127 struct number *rdiv, *rmod; in bdivmod()
1146 if (BN_is_zero(a->number)) in bdivmod()
1154 bn_check(BN_div(rdiv->number, rmod->number, in bdivmod()
1155 b->number, a->number, ctx)); in bdivmod()
1167 struct number *a, *p; in bexp()
1168 struct number *r; in bexp()
1197 if (BN_is_negative(p->number)) { in bexp()
1206 b = BN_get_word(p->number); in bexp()
1214 if (BN_is_zero(p->number)) { in bexp()
1216 bn_check(BN_one(r->number)); in bexp()
1222 while (!BN_is_bit_set(p->number, 0)) { in bexp()
1225 bn_check(BN_rshift1(p->number, p->number)); in bexp()
1229 bn_check(BN_rshift1(p->number, p->number)); in bexp()
1232 while (!BN_is_zero(p->number)) { in bexp()
1235 if (BN_is_bit_set(p->number, 0)) { in bexp()
1239 bn_check(BN_rshift1(p->number, p->number)); in bexp()
1253 if (BN_is_zero(r->number)) in bexp()
1256 bn_check(BN_div(r->number, NULL, one, in bexp()
1257 r->number, ctx)); in bexp()
1288 struct number *n; in bsqrt()
1289 struct number *r; in bsqrt()
1298 if (BN_is_zero(n->number)) { in bsqrt()
1301 } else if (BN_is_negative(n->number)) in bsqrt()
1306 x = BN_dup(n->number); in bsqrt()
1315 bn_check(BN_div(x, NULL, n->number, x, ctx)); in bsqrt()
1323 r->number = y; in bsqrt()
1335 struct number *a; in not()
1341 bn_check(BN_set_word(a->number, BN_get_word(a->number) ? 0 : 1)); in not()
1354 struct number *a, *b, *r; in equal_numbers()
1365 bn_check(BN_set_word(r->number, in equal_numbers()
1373 struct number *a, *b, *r; in less_numbers()
1384 bn_check(BN_set_word(r->number, in less_numbers()
1392 struct number *a, *b, *r; in lesseq_numbers()
1403 bn_check(BN_set_word(r->number, in lesseq_numbers()
1459 compare_numbers(enum bcode_compare type, struct number *a, struct number *b) in compare_numbers()
1471 cmp = BN_cmp(a->number, b->number); in compare_numbers()
1497 struct number *a, *b; in compare()
1562 struct number *n; in quitN()
1585 struct number *n; in skipN()