mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-25 05:51:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

add another forgotten ecl_enable_interrupts

Browse source
This commit is contained in:
Marius Gerbershagen 2018-01-22 21:13:07 +01:00
parent 30a4e64c97
commit 79b77fc7e5
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/alloc_2.d
View file

@ -268,7 +268,10 @@ allocate_object_own(register struct ecl_type_information *type_info)
if( (op = *opp) == 0 ) {
UNLOCK();
op = (ptr_t)GENERAL_MALLOC((word)lb, cl_object_kind);
if (0 == op) return 0;
if (0 == op){
ecl_enable_interrupts_env(the_env);
return 0;
}
lg = GC_size_map[lb]; /* May have been uninitialized. */
} else {
*opp = obj_link(op);