version 1.48, 2015/10/03 16:24:53 |
version 1.49, 2016/03/27 15:55:13 |
|
|
struct number *r; |
struct number *r; |
|
|
a = pop_number(); |
a = pop_number(); |
if (a == NULL) { |
if (a == NULL) |
return; |
return; |
} |
|
b = pop_number(); |
b = pop_number(); |
if (b == NULL) { |
if (b == NULL) { |
push_number(a); |
push_number(a); |
|
|
struct number *r; |
struct number *r; |
|
|
a = pop_number(); |
a = pop_number(); |
if (a == NULL) { |
if (a == NULL) |
return; |
return; |
} |
|
b = pop_number(); |
b = pop_number(); |
if (b == NULL) { |
if (b == NULL) { |
push_number(a); |
push_number(a); |
|
|
struct number *r; |
struct number *r; |
|
|
a = pop_number(); |
a = pop_number(); |
if (a == NULL) { |
if (a == NULL) |
return; |
return; |
} |
|
b = pop_number(); |
b = pop_number(); |
if (b == NULL) { |
if (b == NULL) { |
push_number(a); |
push_number(a); |
|
|
BN_CTX *ctx; |
BN_CTX *ctx; |
|
|
a = pop_number(); |
a = pop_number(); |
if (a == NULL) { |
if (a == NULL) |
return; |
return; |
} |
|
b = pop_number(); |
b = pop_number(); |
if (b == NULL) { |
if (b == NULL) { |
push_number(a); |
push_number(a); |
|
|
BN_CTX *ctx; |
BN_CTX *ctx; |
|
|
a = pop_number(); |
a = pop_number(); |
if (a == NULL) { |
if (a == NULL) |
return; |
return; |
} |
|
b = pop_number(); |
b = pop_number(); |
if (b == NULL) { |
if (b == NULL) { |
push_number(a); |
push_number(a); |
|
|
BN_CTX *ctx; |
BN_CTX *ctx; |
|
|
a = pop_number(); |
a = pop_number(); |
if (a == NULL) { |
if (a == NULL) |
return; |
return; |
} |
|
b = pop_number(); |
b = pop_number(); |
if (b == NULL) { |
if (b == NULL) { |
push_number(a); |
push_number(a); |
|
|
u_int rscale; |
u_int rscale; |
|
|
p = pop_number(); |
p = pop_number(); |
if (p == NULL) { |
if (p == NULL) |
return; |
return; |
} |
|
a = pop_number(); |
a = pop_number(); |
if (a == NULL) { |
if (a == NULL) { |
push_number(p); |
push_number(p); |
|
|
|
|
onecount = 0; |
onecount = 0; |
n = pop_number(); |
n = pop_number(); |
if (n == NULL) { |
if (n == NULL) |
return; |
return; |
} |
|
if (BN_is_zero(n->number)) { |
if (BN_is_zero(n->number)) { |
r = new_number(); |
r = new_number(); |
push_number(r); |
push_number(r); |
|
|
struct number *a; |
struct number *a; |
|
|
a = pop_number(); |
a = pop_number(); |
if (a == NULL) { |
if (a == NULL) |
return; |
return; |
} |
|
a->scale = 0; |
a->scale = 0; |
bn_check(BN_set_word(a->number, BN_get_word(a->number) ? 0 : 1)); |
bn_check(BN_set_word(a->number, BN_get_word(a->number) ? 0 : 1)); |
push_number(a); |
push_number(a); |
|
|
struct number *a, *b, *r; |
struct number *a, *b, *r; |
|
|
a = pop_number(); |
a = pop_number(); |
if (a == NULL) { |
if (a == NULL) |
return; |
return; |
} |
|
b = pop_number(); |
b = pop_number(); |
if (b == NULL) { |
if (b == NULL) { |
push_number(a); |
push_number(a); |
|
|
struct number *a, *b, *r; |
struct number *a, *b, *r; |
|
|
a = pop_number(); |
a = pop_number(); |
if (a == NULL) { |
if (a == NULL) |
return; |
return; |
} |
|
b = pop_number(); |
b = pop_number(); |
if (b == NULL) { |
if (b == NULL) { |
push_number(a); |
push_number(a); |
|
|
struct number *a, *b, *r; |
struct number *a, *b, *r; |
|
|
a = pop_number(); |
a = pop_number(); |
if (a == NULL) { |
if (a == NULL) |
return; |
return; |
} |
|
b = pop_number(); |
b = pop_number(); |
if (b == NULL) { |
if (b == NULL) { |
push_number(a); |
push_number(a); |
|
|
char *p; |
char *p; |
|
|
p = pop_string(); |
p = pop_string(); |
if (p == NULL) |
if (p != NULL) |
return; |
eval_string(p); |
eval_string(p); |
|
} |
} |
|
|
void |
void |