Ignore:
Timestamp:
Apr 29, 2011, 1:39:32 AM (11 years ago)
Author:
Sam Hocevar
Message:

lisp: if the Lisp permanent space grows out of memory, grow the space
during GCs instead of dying.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/src/lisp/lisp.cpp

    r524 r554  
    188188    {
    189189        if (which_space == PERM_SPACE || which_space == TMP_SPACE)
    190             collect_space(which_space);
     190            collect_space(which_space, 0);
     191
     192        if (size > get_free_size(which_space))
     193            collect_space(which_space, 1);
    191194
    192195        if (size > get_free_size(which_space))
     
    28182821    }
    28192822    case SYS_FUNC_GC:
    2820         collect_space(current_space);
     2823        collect_space(current_space, 0);
    28212824        break;
    28222825    case SYS_FUNC_SCHAR:
Note: See TracChangeset for help on using the changeset viewer.