Ignore:
Timestamp:
May 11, 2011, 1:26:11 AM (11 years ago)
Author:
Sam Hocevar
Message:

lisp: refactor Lisp spaces so that they are real objects, and get rid
of the unused USER_SPACE.

File:
1 edited

Legend:

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

    r555 r635  
    261261    current_object=this;
    262262
    263     void *m=mark_heap(TMP_SPACE);
     263    void *m = LSpace::Tmp.Mark();
    264264    ((LSymbol *)ns)->EvalFunction(NULL);
    265     restore_heap(m,TMP_SPACE);
     265    LSpace::Tmp.Restore(m);
    266266
    267267    current_object=o;
     
    275275    {
    276276        current_object = this;
    277         void *m = mark_heap( TMP_SPACE );
     277        void *m = LSpace::Tmp.Mark();
    278278        ((LSymbol *)ns)->EvalFunction(NULL);
    279         restore_heap( m, TMP_SPACE );
     279        LSpace::Tmp.Restore(m);
    280280    }
    281281    else
     
    410410
    411411    current_object=this;
    412     void *m=mark_heap(TMP_SPACE);
     412    void *m = LSpace::Tmp.Mark();
    413413
    414414    time_marker *prof1=NULL;
     
    424424    }
    425425
    426     restore_heap(m,TMP_SPACE);
     426    LSpace::Tmp.Restore(m);
    427427
    428428    if (keep_ai_info())
     
    484484    current_object = this;
    485485
    486     void *m = mark_heap(TMP_SPACE);
     486    void *m = LSpace::Tmp.Mark();
    487487
    488488    am = LList::Create();
     
    528528    }
    529529
    530     restore_heap(m, TMP_SPACE);
     530    LSpace::Tmp.Restore(m);
    531531
    532532    current_object = o;
     
    624624    current_object=this;
    625625
    626     void *m=mark_heap(TMP_SPACE);
     626    void *m = LSpace::Tmp.Mark();
    627627    time_marker *prof1=NULL;
    628628    if (profiling())
     
    637637    }
    638638
    639 
    640 
    641     restore_heap(m,TMP_SPACE);
     639    LSpace::Tmp.Restore(m);
    642640
    643641  } else drawer();
     
    651649    current_object=this;
    652650
    653     void *m=mark_heap(TMP_SPACE);
     651    void *m = LSpace::Tmp.Mark();
    654652    time_marker *prof1=NULL;
    655653    if (profiling())
     
    664662    }
    665663
    666     restore_heap(m,TMP_SPACE);
    667 
     664    LSpace::Tmp.Restore(m);
    668665  }
    669666}
     
    11571154    current_object=g;
    11581155
    1159     void *m=mark_heap(TMP_SPACE);
     1156    void *m = LSpace::Tmp.Mark();
    11601157
    11611158    time_marker *prof1=NULL;
     
    11711168    }
    11721169
    1173 
    1174 
    1175     restore_heap(m,TMP_SPACE);
    1176 
    1177     current_object=o;
     1170    LSpace::Tmp.Restore(m);
     1171    current_object = o;
    11781172  }
    11791173  return g;
     
    12221216    lcy->cdr = lb;
    12231217
    1224     void *m = mark_heap(TMP_SPACE);
     1218    void *m = LSpace::Tmp.Mark();
    12251219
    12261220    time_marker *prof1 = NULL;
     
    12361230    }
    12371231
    1238     restore_heap(m,TMP_SPACE);
     1232    LSpace::Tmp.Restore(m);
    12391233
    12401234    if (item_type(r)!=L_NUMBER)
     
    16261620    current_object=this;
    16271621
    1628     void *m=mark_heap(TMP_SPACE);
     1622    void *m = LSpace::Tmp.Mark();
    16291623
    16301624    time_marker *prof1=NULL;
     
    16401634    }
    16411635
    1642 
    1643     restore_heap(m,TMP_SPACE);
    1644 
    1645     current_object=o;
    1646   }
    1647 }
     1636    LSpace::Tmp.Restore(m);
     1637    current_object = o;
     1638  }
     1639}
Note: See TracChangeset for help on using the changeset viewer.