alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Cleaning up throw values around division + faults.

Browse Source
This commit is contained in:
Brad Nelson
2023-01-22 15:08:14 -08:00
parent cfd70d6712
commit 40400b873e
9 changed files with 165 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
common/tier0_opcodes.h
View File

@ -66,10 +66,30 @@ typedef int64_t dcell_t;
# error "unsupported cell size"
# endif
# define SSMOD_FUNC dcell_t d = (dcell_t) *sp * (dcell_t) sp[-1]; \
--sp; cell_t a = (cell_t) (d < 0 ? ~(~d / tos) : d / tos); \
--sp; cell_t a = (cell_t) (d / tos); \
a = a * tos == d ? a : a - ((d < 0) ^ (tos < 0)); \
*sp = (cell_t) (d - ((dcell_t) a) * tos); tos = a
#endif
#ifdef WEB_DUMP
// Use */mod as the base for the web version.
# define SLASHMOD_FUNC DUP; *sp = 1; SSMOD_FUNC
# define SLASH_FUNC SLASHMOD_FUNC; NIP
# define MOD_FUNC SLASHMOD_FUNC; DROP
# define CELLSLASH_FUNC DUP; tos = sizeof(cell_t); SLASH_FUNC
#else
// Use separate versions for non-web so throw has the right depth.
# define SLASHMOD_FUNC cell_t d = *sp; cell_t a = d / tos; \
cell_t b = a * tos == d ? a : a - ((d < 0) ^ (tos < 0)); \
*sp = d - b * tos; tos = b
# define SLASH_FUNC cell_t d = *sp; cell_t a = d / tos; NIP; \
tos = a * tos == d ? a : a - ((d < 0) ^ (tos < 0))
# define MOD_FUNC cell_t d = *sp; cell_t a = d / tos; \
cell_t b = a * tos == d ? a : a - ((d < 0) ^ (tos < 0)); \
NIP; tos = d - b * tos
# define CELLSLASH_FUNC tos = tos < 0 ? ~(~tos / sizeof(cell_t)) : tos / sizeof(cell_t)
#endif
typedef struct {
const char *name;
union {