Changeset 490 for abuse/trunk/src/lisp/lisp_gc.cppTweet

Timestamp:

Apr 17, 2011, 10:28:44 AM (11 years ago)

Author:

Sam Hocevar

Message:

lisp: implement LispList::GetLength?.

File:

• abuse/trunk/src/lisp/lisp_gc.cpp (modified) (3 diffs)

abuse/trunk/src/lisp/lisp_gc.cpp

@@ -110 +110 @@
     ((LispRedirect *)old_x)->new_reference = p;
 
-    p->car = collect_object(old_car);
-    p->cdr = collect_object(old_cdr);
-    
+    p->car = (LispObject *)collect_object(old_car);
+    p->cdr = (LispObject *)collect_object(old_cdr);
+
     if (last) last->cdr = p;
     else first = p;
@@ -118 +118 @@
   }
   if (x)
-    last->cdr = collect_object(x);
+    last->cdr = (LispObject *)collect_object(x);
   return first;                    // we already set the collection pointers
 }
@@ -209 +209 @@
     {
       for (; x && item_type(x) == L_CONS_CELL; x = CDR(x))
-        ((LispList *)x)->car = collect_object(((LispList *)x)->car);
+        ((LispList *)x)->car = (LispObject *)collect_object(((LispList *)x)->car);
       if (x)
-        ((LispList *)x)->cdr = collect_object(((LispList *)x)->cdr);
+        ((LispList *)x)->cdr = (LispObject *)collect_object(((LispList *)x)->cdr);
     }
   }