suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Chez Scheme: fix error escape during fasl read with W^X

Browse Source 
Go back to execution mode when fasl-read escapes with an error.
This commit is contained in:
Matthew Flatt 2020-12-05 19:24:20 -07:00
parent 0e08807d3f
commit ef0b97c65e
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/src/ChezScheme/c/schsig.c
View File

@ -391,6 +391,9 @@ static void do_error(type, who, s, args) iptr type; const char *who, *s; ptr arg
S_mutex_release(&S_tc_mutex); S_mutex_release(&S_tc_mutex);
#endif /* PTHREADS */ #endif /* PTHREADS */
/* in case error is during fasl read: */
S_thread_end_code_write();
TRAP(tc) = (ptr)1; TRAP(tc) = (ptr)1;
AC0(tc) = (ptr)1; AC0(tc) = (ptr)1;
CP(tc) = S_symbol_value(S_G.error_id); CP(tc) = S_symbol_value(S_G.error_id);