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

Fix bug in signals for posix.

Browse Source
This commit is contained in:
Brad Nelson
2022-12-31 19:26:20 -08:00
parent 5afdbf0423
commit d60606b4c8
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
common/interp.h
View File

@ -69,6 +69,7 @@ static cell_t *forth_run(cell_t *init_rp) {
*g_sys->throw_handler = (cell_t *) *rp--; *g_sys->throw_handler = (cell_t *) *rp--;
sp = (cell_t *) *rp--; sp = (cell_t *) *rp--;
fp = (float *) *rp--; fp = (float *) *rp--;
ip = (cell_t *) *rp--;
--sp; --sp;
tos = -g_forth_signal; tos = -g_forth_signal;
} }