Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 21:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #509 - Raise error on invalid complex ops

Browse source 
Error on more types of complex comparison operations.
This commit is contained in:
Justin Ethier 2023-08-23 20:00:44 -07:00
parent ca931300e3
commit 20fe02d9d9
1 changed files with 18 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
runtime.c
View file

@ -1863,8 +1863,15 @@ int FUNC_OP(void *data, object x, object y) { \
make_pair(c0, &s, &c1); \ make_pair(c0, &s, &c1); \
Cyc_rt_raise(data, &c0); \ Cyc_rt_raise(data, &c0); \
} \ } \
} else if (tx == complex_num_tag && ty != complex_num_tag) { \ } else if ((tx == complex_num_tag && ty != complex_num_tag) || \
} else if (tx != complex_num_tag && ty == complex_num_tag) { \ (tx != complex_num_tag && ty == complex_num_tag)) { \
if (BN_CMP != CYC_BN_EQ) { \
make_string(s, "Complex comparison operation not allowed"); \
make_pair(c2, y, NULL); \
make_pair(c1, x, &c2); \
make_pair(c0, &s, &c1); \
Cyc_rt_raise(data, &c0); \
} \
} else { \ } else { \
make_string(s, "Bad argument type"); \ make_string(s, "Bad argument type"); \
make_pair(c1, y, NULL); \ make_pair(c1, y, NULL); \
@ -1950,9 +1957,15 @@ object FUNC_FAST_OP(void *data, object x, object y) { \
Cyc_rt_raise(data, &c0); \ Cyc_rt_raise(data, &c0); \
return NULL; \ return NULL; \
} \ } \
} else if (tx == complex_num_tag && ty != complex_num_tag) { \ } else if ((tx == complex_num_tag && ty != complex_num_tag) || \
return boolean_f; \ (tx != complex_num_tag && ty == complex_num_tag)) { \
} else if (tx != complex_num_tag && ty == complex_num_tag) { \ if (BN_CMP != CYC_BN_EQ) { \
make_string(s, "Complex comparison operation not allowed"); \
make_pair(c2, y, NULL); \
make_pair(c1, x, &c2); \
make_pair(c0, &s, &c1); \
Cyc_rt_raise(data, &c0); \
} \
return boolean_f; \ return boolean_f; \
} else { \ } else { \
goto bad_arg_type_error; \ goto bad_arg_type_error; \