mini-mes: Workarounds for vector.c.
[mes.git] / vector.c
index 5f433230a7722c33d0e0dc5b3fe6a00b5f50719e..fc2fea5e2439edf0800018660f1a9c78649fc2f1 100644 (file)
--- a/vector.c
+++ b/vector.c
@@ -25,7 +25,23 @@ make_vector (SCM n)
   VALUE (tmp_num) = TVECTOR;
   SCM v = alloc (k);
   SCM x = make_cell_ (tmp_num, k, v);
+#if 0
+  //__GNUC__
   for (int i=0; i<k; i++) g_cells[v+i] = g_cells[vector_entry (cell_unspecified)];
+#else
+  for (int i=0; i<k; i++)
+    {
+      SCM y = v+i;
+      SCM z = vector_entry (cell_unspecified);
+      //g_cells[y] = g_cells[z];
+      SCM zz = TYPE (z);
+      TYPE (y) = zz;
+      zz = CAR (z);
+      CAR (y) = zz;
+      zz = CDR (z);
+      CDR (y) = zz;
+    }
+#endif
   return x;
 }
 
@@ -59,7 +75,20 @@ vector_set_x (SCM x, SCM i, SCM e)
 {
   assert (TYPE (x) == TVECTOR);
   assert (VALUE (i) < LENGTH (x));
+#if 0
+  //__GNUC__
   g_cells[VECTOR (x)+VALUE (i)] = g_cells[vector_entry (e)];
+#else
+  SCM y = VECTOR (x)+VALUE (i);
+  SCM z = vector_entry (e);
+  //g_cells[y] = g_cells[z];
+  SCM zz = TYPE (z);
+  TYPE (y) = zz;
+  zz = CAR (z);
+  CAR (y) = zz;
+  zz = CDR (z);
+  CDR (y) = zz;
+#endif
   return cell_unspecified;
 }
 
@@ -71,7 +100,21 @@ list_to_vector (SCM x)
   SCM p = VECTOR (v);
   while (x != cell_nil)
     {
+#if 0
+      //__GNUC__
       g_cells[p++] = g_cells[vector_entry (car (x))];
+#else
+      SCM y = p;
+      SCM z = vector_entry (car (x));
+      //g_cells[p++] = g_cells[y];
+      SCM zz = TYPE (z);
+      TYPE (y) = zz;
+      zz = CAR (z);
+      CAR (y) = zz;
+      zz = CDR (z);
+      CDR (y) = zz;
+      p++;
+#endif
       x = cdr (x);
     }
   return v;