Ignore:
Timestamp:
Apr 30, 2011, 12:24:47 AM (11 years ago)
Author:
Sam Hocevar
Message:

lisp: some refactoring and code removal in the Lisp GC.

File:
1 edited

Legend:

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

    r555 r558  
    190190    {
    191191        if (which_space == PERM_SPACE || which_space == TMP_SPACE)
    192             collect_space(which_space, 0);
     192            LispGC::CollectSpace(which_space, 0);
    193193
    194194        if (size > get_free_size(which_space))
    195             collect_space(which_space, 1);
     195            LispGC::CollectSpace(which_space, 1);
    196196
    197197        if (size > get_free_size(which_space))
     
    28232823    }
    28242824    case SYS_FUNC_GC:
    2825         collect_space(current_space, 0);
     2825        LispGC::CollectSpace(current_space, 0);
    28262826        break;
    28272827    case SYS_FUNC_SCHAR:
     
    31433143
    31443144/*  l_user_stack.push(ret);
    3145   collect_space(PERM_SPACE);
     3145  LispGC::CollectSpace(PERM_SPACE);
    31463146  ret=l_user_stack.pop(1);  */
    31473147
Note: See TracChangeset for help on using the changeset viewer.