Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 00:07:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Staging bignum unsigned subraction

Browse source
This commit is contained in:
Justin Ethier 2022-06-19 10:00:37 -04:00
parent dc139ce2c3
commit 244041c62b
2 changed files with 29 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
runtime.c
View file

@ -3167,14 +3167,14 @@ object bignum_minus_unsigned(void *data, object x, object y)
case 0: /* x = y, return 0 */
return C_fix(0);
case -1: /* abs(x) < abs(y), return -(abs(y) - abs(x)) */
size = C_fix(C_bignum_size(y)); /* Maximum size of result is length of y. */
size = C_bignum_size(y); /* Maximum size of result is length of y. */
size = y;
y = x;
x = size;
break;
case 1: /* abs(x) > abs(y), return abs(x) - abs(y) */
default:
size = C_fix(C_bignum_size(x)); /* Maximum size of result is length of x. */
size = C_bignum_size(x); /* Maximum size of result is length of x. */
break;
}

27
test-bn.scm
View file

@ -29,6 +29,18 @@ if(is_value_type(result)) {
printf(\"fixnum result\\n\");
} else if (type_of(result) == bignum2_tag) {
printf(\"bignum result\\n\");
}
return_closcall1(data, k, result);
")
(define-c test-minus
"(void *data, int argc, closure _, object k, object fx1, object fx2)"
" object bn1 = Cyc_int2bignum2(data, obj_obj2int(fx1));
object bn2 = Cyc_int2bignum2(data, obj_obj2int(fx2));
object result = bignum_minus_unsigned(data, bn1, bn2);
if(is_value_type(result)) {
printf(\"fixnum result\\n\");
} else if (type_of(result) == bignum2_tag) {
printf(\"bignum result\\n\");
}
return_closcall1(data, k, result);
")
@ -69,6 +81,21 @@ if(is_value_type(result)) {
(write (test-str2bn "123454354534523454243999" 16))
(newline)
(write "subtraction")
(newline)
(map
(lambda (row)
(write row)
(newline))
(list
(test-minus 1 1)
(test-minus 1 2)
(test-minus -1 2)
(test-minus (- #x0FFFffff) (- #x0FFFffff))
(test-minus (- #x2FFFffff) (- #x2FFFffff))
))
(newline)
(write "multiplication")
(newline)
(map