Changeset 497 for abuse/trunk/src/objects.cppTweet

Timestamp:

Apr 17, 2011, 11:56:59 PM (11 years ago)

Author:

Sam Hocevar

Message:

lisp: implement LSymbol::EvalFunction? and ensure all local pointers are
protected against collection.

File:

• abuse/trunk/src/objects.cpp (modified) (8 diffs)

abuse/trunk/src/objects.cpp

@@ -266 +266 @@
 
     void *m=mark_heap(TMP_SPACE);
-    eval_function((LSymbol *)ns,NULL);
+    ((LSymbol *)ns)->EvalFunction(NULL);
     restore_heap(m,TMP_SPACE);
 
@@ -280 +280 @@
         current_object = this;
         void *m = mark_heap( TMP_SPACE );
-        (void)eval_function( (LSymbol *)ns, NULL );
+        ((LSymbol *)ns)->EvalFunction(NULL);
         restore_heap( m, TMP_SPACE );
     }
@@ -420 +420 @@
       prof1=new time_marker;
 
-    Cell *ret=(Cell *)eval_function((LSymbol *)figures[otype]->get_fun(OFUN_AI),NULL);
+    LObject *ret = ((LSymbol *)figures[otype]->get_fun(OFUN_AI))->EvalFunction(NULL);
     if (profiling())
     {
@@ -636 +636 @@
       prof1=new time_marker;
 
-    eval_function((LSymbol *)figures[otype]->get_fun(OFUN_DRAW),NULL);
+    ((LSymbol *)figures[otype]->get_fun(OFUN_DRAW))->EvalFunction(NULL);
     if (profiling())
     {
@@ -663 +663 @@
       prof1=new time_marker;
 
-    eval_function((LSymbol *)figures[otype]->get_fun(OFUN_MAP_DRAW),NULL);
+    ((LSymbol *)figures[otype]->get_fun(OFUN_MAP_DRAW))->EvalFunction(NULL);
     if (profiling())
     {
@@ -1170 +1170 @@
       prof1=new time_marker;
 
-    eval_function((LSymbol *)figures[type]->get_fun(OFUN_CONSTRUCTOR),NULL);
+    ((LSymbol *)figures[type]->get_fun(OFUN_CONSTRUCTOR))->EvalFunction(NULL);
     if (profiling())
     {
@@ -1235 +1235 @@
       prof1=new time_marker;
 
-    void *r=eval_function((LSymbol *)figures[otype]->get_fun(OFUN_MOVER),
-              (void *)lcx);
+    LObject *r = ((LSymbol *)figures[otype]->get_fun(OFUN_MOVER))->EvalFunction(lcx);
     if (profiling())
     {
@@ -1638 +1637 @@
       prof1=new time_marker;
 
-    eval_function((LSymbol *)figures[new_type]->get_fun(OFUN_CONSTRUCTOR),NULL);
+    ((LSymbol *)figures[new_type]->get_fun(OFUN_CONSTRUCTOR))->EvalFunction(NULL);
     if (profiling())
     {