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

@ -390,6 +390,9 @@ static void do_error(type, who, s, args) iptr type; const char *who, *s; ptr arg
while (S_mutex_is_owner(&S_tc_mutex)) while (S_mutex_is_owner(&S_tc_mutex))
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;