Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 08:47: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:23:46 -04:00
parent 866fce1d33
commit fa9e71f17c
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
runtime.c
View file

@ -3083,15 +3083,16 @@ object FUNC_OP(void *data, common_type *x, object 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; \ /* TODO: need to add support!! */ goto bad_arg_type_error; \
} else if (tx == complex_num_tag && ty == bignum_tag) { \ } else if (tx == complex_num_tag && ty == bignum_tag) { \
/* TODO: need to add support!! */ goto bad_arg_type_error; \ 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) { \
/* TODO: need to add support!! */ goto bad_arg_type_error; \ 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; \ /* TODO: need to add support!! */ goto bad_arg_type_error; \
} 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; \ /* TODO: need to add support!! */ goto bad_arg_type_error; \
} else if (tx == double_tag && ty == complex_num_tag) { \ } else if (tx == double_tag && ty == complex_num_tag) { \
/* TODO: need to add support!! */ goto bad_arg_type_error; \ x->complex_num_t.value = x->double_t.value OP complex_num_value(y); \
x->complex_num_t.tag = complex_num_tag; \
} else { \ } else { \
goto bad_arg_type_error; \ goto bad_arg_type_error; \
} \ } \