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

WIP

Browse source
This commit is contained in:
Justin Ethier 2022-06-28 21:59:21 -04:00
parent 3cff91a5cb
commit 0227424a8c
2 changed files with 14 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
include/cyclone/types.h
View file

@ -857,6 +857,7 @@ typedef struct {
#define C_bignum_negativep(n) (((bignum2_type *)n)->sign == 1) #define C_bignum_negativep(n) (((bignum2_type *)n)->sign == 1)
#define C_SIZEOF_BIGNUM(n) (sizeof(bignum2_type) + (C_bignum_digits(n) * sizeof(uint32_t))) #define C_SIZEOF_BIGNUM(n) (sizeof(bignum2_type) + (C_bignum_digits(n) * sizeof(uint32_t)))
#define C_SIZEOF_FIX_BIGNUM C_SIZEOF_BIGNUM(1)
// TODO: covert applicable definitions below - // TODO: covert applicable definitions below -
// #ifdef C_SIXTY_FOUR // #ifdef C_SIXTY_FOUR

26
runtime.c
View file

@ -2666,13 +2666,13 @@ static void bignum_digits_multiply(object x, object y, object result)
* 1.3.2] and [MpNT, 3.2] are a bit easier to understand. We assume * 1.3.2] and [MpNT, 3.2] are a bit easier to understand. We assume
* that length(x) <= length(y). * that length(x) <= length(y).
*/ */
//static object static object
//bignum_times_bignum_karatsuba(object x, object y, int negp) bignum_times_bignum_karatsuba(void *data, object x, object y, int negp)
//{ {
// C_word kab[C_SIZEOF_FIX_BIGNUM*15+C_SIZEOF_BIGNUM(2)*3], *ka = kab, o[18], object kab[C_SIZEOF_FIX_BIGNUM*15+C_SIZEOF_BIGNUM(2)*3], *ka = kab, o[18],
// xhi, xlo, xmid, yhi, ylo, ymid, a, b, c, n, bits; xhi, xlo, xmid, yhi, ylo, ymid, a, b, c, n, bits;
// int i = 0; int i = 0;
//
// /* Ran out of stack? Fall back to non-recursive multiplication */ // /* Ran out of stack? Fall back to non-recursive multiplication */
// C_stack_check1(return C_SCHEME_FALSE); // C_stack_check1(return C_SCHEME_FALSE);
// //
@ -2680,11 +2680,11 @@ static void bignum_digits_multiply(object x, object y, object result)
// x = o[i++] = C_s_a_u_i_integer_abs(&ka, 1, x); // x = o[i++] = C_s_a_u_i_integer_abs(&ka, 1, x);
// y = o[i++] = C_s_a_u_i_integer_abs(&ka, 1, y); // y = o[i++] = C_s_a_u_i_integer_abs(&ka, 1, y);
// n = C_fix(C_bignum_size(y) >> 1); // n = C_fix(C_bignum_size(y) >> 1);
// xhi = o[i++] = bignum_extract_digits(&ka, 3, x, n, C_SCHEME_FALSE); xhi = o[i++] = bignum_extract_digits(data, &ka, 3, x, n, boolean_f);
// xlo = o[i++] = bignum_extract_digits(&ka, 3, x, C_fix(0), n); xlo = o[i++] = bignum_extract_digits(data, &ka, 3, x, obj_int2obj(0), n);
// yhi = o[i++] = bignum_extract_digits(&ka, 3, y, n, C_SCHEME_FALSE); yhi = o[i++] = bignum_extract_digits(data, &ka, 3, y, n, boolean_f);
// ylo = o[i++] = bignum_extract_digits(&ka, 3, y, C_fix(0), n); ylo = o[i++] = bignum_extract_digits(data, &ka, 3, y, obj_int2obj(0), n);
//
// /* a = xhi * yhi, b = xlo * ylo, c = (xhi - xlo) * (yhi - ylo) */ // /* a = xhi * yhi, b = xlo * ylo, c = (xhi - xlo) * (yhi - ylo) */
// a = o[i++] = C_s_a_u_i_integer_times(&ka, 2, xhi, yhi); // a = o[i++] = C_s_a_u_i_integer_times(&ka, 2, xhi, yhi);
// b = o[i++] = C_s_a_u_i_integer_times(&ka, 2, xlo, ylo); // b = o[i++] = C_s_a_u_i_integer_times(&ka, 2, xlo, ylo);
@ -2706,7 +2706,7 @@ static void bignum_digits_multiply(object x, object y, object result)
// n = move_buffer_object(ptr, kab, n); // n = move_buffer_object(ptr, kab, n);
// while(i--) clear_buffer_object(kab, o[i]); // while(i--) clear_buffer_object(kab, o[i]);
// return n; // return n;
//} }
// TODO: static // TODO: static