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

Timestamp:

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

Author:

Sam Hocevar

Message:

lisp: move all array-related functions to the LispArray? struct.

File:

• abuse/trunk/src/lisp/lisp_gc.cpp (modified) (1 diff)

abuse/trunk/src/lisp/lisp_gc.cpp

@@ -86 +86 @@
 static void *collect_array(void *x)
 {
-  long s = ((LispArray *)x)->size;
-  LispArray *a = new_lisp_1d_array(s, NULL);
-  void **src, **dst;
-  src = (void **)(((LispArray *)x)+1);
-  dst = (void **)(a+1);
-  for (int i = 0; i<s; i++)
-    dst[i] = collect_object(src[i]);
-
-  return a;
+    long s = ((LispArray *)x)->size;
+    LispArray *a = LispArray::Create(s, NULL);
+    LispObject **src = ((LispArray *)x)->GetData();
+    LispObject **dst = a->GetData();
+    for (int i = 0; i < s; i++)
+        dst[i] = (LispObject *)collect_object(src[i]);
+
+    return a;
 }