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

WIP

Browse source
This commit is contained in:
Justin Ethier 2018-05-11 14:39:39 -04:00
parent fa9e71f17c
commit ac82b0933b
1 changed files with 43 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

49
runtime.c
View file

@ -3079,20 +3079,30 @@ object FUNC_OP(void *data, common_type *x, object y) { \
} else if (tx == complex_num_tag && ty == complex_num_tag) { \ } else if (tx == complex_num_tag && ty == complex_num_tag) { \
x->complex_num_t.value = x->complex_num_t.value OP ((complex_num_type *)y)->value; \ x->complex_num_t.value = x->complex_num_t.value OP ((complex_num_type *)y)->value; \
} else if (tx == complex_num_tag && ty == -1) { \ } else if (tx == complex_num_tag && ty == -1) { \
/* TODO: need to add support!! */ goto bad_arg_type_error; \ x->complex_num_t.value = x->complex_num_t.value OP (obj_obj2int(y)); \
} else if (tx == complex_num_tag && ty == integer_tag) { \ } else if (tx == complex_num_tag && ty == integer_tag) { \
/* TODO: need to add support!! */ goto bad_arg_type_error; \ x->complex_num_t.value = x->complex_num_t.value OP ((integer_type *)y)->value; \
} else if (tx == complex_num_tag && ty == bignum_tag) { \ } else if (tx == complex_num_tag && ty == bignum_tag) { \
x->complex_num_t.value = x->complex_num_t.value OP mp_get_double(&bignum_value(y)); \ x->complex_num_t.value = x->complex_num_t.value OP mp_get_double(&bignum_value(y)); \
} else if (tx == complex_num_tag && ty == double_tag) { \ } else if (tx == complex_num_tag && ty == double_tag) { \
x->complex_num_t.value = x->complex_num_t.value OP complex_num_value(y); \ x->complex_num_t.value = x->complex_num_t.value OP complex_num_value(y); \
} else if (tx == integer_tag && ty == complex_num_tag) { \ } else if (tx == integer_tag && ty == complex_num_tag) { \
/* TODO: need to add support!! */ goto bad_arg_type_error; \ x->complex_num_t.hdr.mark = gc_color_red; \
x->complex_num_t.hdr.grayed = 0; \
x->complex_num_t.tag = double_tag; \
x->complex_num_t.value = x->integer_t.value OP ((complex_num_type *)y)->value; \
} else if (tx == bignum_tag && ty == complex_num_tag) { \ } else if (tx == bignum_tag && ty == complex_num_tag) { \
/* TODO: need to add support!! */ goto bad_arg_type_error; \ double d = mp_get_double(&(x->bignum_t.bn)); \
} else if (tx == double_tag && ty == complex_num_tag) { \ mp_clear(&(x->bignum_t.bn)); \
x->complex_num_t.value = x->double_t.value OP complex_num_value(y); \ x->complex_num_t.hdr.mark = gc_color_red; \
x->complex_num_t.hdr.grayed = 0; \
x->complex_num_t.tag = complex_num_tag; \ x->complex_num_t.tag = complex_num_tag; \
x->complex_num_t.value = d OP ((complex_num_type *)y)->value; \
} else if (tx == double_tag && ty == complex_num_tag) { \
x->complex_num_t.hdr.mark = gc_color_red; \
x->complex_num_t.hdr.grayed = 0; \
x->complex_num_t.tag = complex_num_tag; \
x->complex_num_t.value = x->double_t.value OP complex_num_value(y); \
} else { \ } else { \
goto bad_arg_type_error; \ goto bad_arg_type_error; \
} \ } \
@ -3475,6 +3485,33 @@ object Cyc_div_op(void *data, common_type * x, object y)
x->double_t.value = d / ((double_type *)y)->value; x->double_t.value = d / ((double_type *)y)->value;
} else if (tx == bignum_tag && ty == bignum_tag) { } else if (tx == bignum_tag && ty == bignum_tag) {
mp_div(&(x->bignum_t.bn), &bignum_value(y), &(x->bignum_t.bn), NULL); mp_div(&(x->bignum_t.bn), &bignum_value(y), &(x->bignum_t.bn), NULL);
} else if (tx == complex_num_tag && ty == complex_num_tag) {
x->complex_num_t.value = x->complex_num_t.value / ((complex_num_type *)y)->value;
} else if (tx == complex_num_tag && ty == -1) {
x->complex_num_t.value = x->complex_num_t.value / (obj_obj2int(y));
} else if (tx == complex_num_tag && ty == integer_tag) {
x->complex_num_t.value = x->complex_num_t.value / ((integer_type *)y)->value;
} else if (tx == complex_num_tag && ty == bignum_tag) {
x->complex_num_t.value = x->complex_num_t.value / mp_get_double(&bignum_value(y));
} else if (tx == complex_num_tag && ty == double_tag) {
x->complex_num_t.value = x->complex_num_t.value / complex_num_value(y);
} else if (tx == integer_tag && ty == complex_num_tag) {
x->complex_num_t.hdr.mark = gc_color_red;
x->complex_num_t.hdr.grayed = 0;
x->complex_num_t.tag = double_tag;
x->complex_num_t.value = x->integer_t.value / ((complex_num_type *)y)->value;
} else if (tx == bignum_tag && ty == complex_num_tag) {
double d = mp_get_double(&(x->bignum_t.bn));
mp_clear(&(x->bignum_t.bn));
x->complex_num_t.hdr.mark = gc_color_red;
x->complex_num_t.hdr.grayed = 0;
x->complex_num_t.tag = complex_num_tag;
x->complex_num_t.value = d / ((complex_num_type *)y)->value;
} else if (tx == double_tag && ty == complex_num_tag) {
x->complex_num_t.hdr.mark = gc_color_red;
x->complex_num_t.hdr.grayed = 0;
x->complex_num_t.tag = complex_num_tag;
x->complex_num_t.value = x->double_t.value / complex_num_value(y);
} else { } else {
goto bad_arg_type_error; goto bad_arg_type_error;
} }