sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

queue_signal: prevent circular lists in pending_interrupt

Browse source 
Leads to infinite loops in handle_all_queued.
This commit is contained in:
Marius Gerbershagen 2020-06-01 17:26:14 +02:00
parent ed11e2cc35
commit a8042286ff
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/c/unixint.d
View file

@ -446,6 +446,7 @@ queue_signal(cl_env_ptr env, cl_object code, int allocate)
}
if (record != ECL_NIL) {
ECL_RPLACA(record, code);
ECL_RPLACD(record, ECL_NIL);
env->interrupt_struct->pending_interrupt =
ecl_nconc(env->interrupt_struct->pending_interrupt,
record);