Test GCJ object creation with length-based descriptor (gctest)

* tests/test.c [GC_GCJ_SUPPORT] (gcj_cons): Define new static variable
obj_cnt; increment obj_cnt on each call; if obj_cnt is odd then pass
gcj_class_struct1 to GC_GCJ_MALLOC instead of gcj_class_struct2.

diff --git a/tests/test.c b/tests/test.c
index 3e9ca86feef1bf3183d55d64b128a8e003a86424..8f6a0955747e00f036fc4a2699af1962af9f20d0 100644 (file)
--- a/tests/test.c
+++ b/tests/test.c
@@ -340,10 +340,12 @@ sexpr gcj_cons(sexpr x, sexpr y)
 {
     GC_word * r;
     sexpr result;
+    static int obj_cnt = 0;
 
     r = (GC_word *) GC_GCJ_MALLOC(sizeof(struct SEXPR)
                                   + sizeof(struct fake_vtable*),
-                                   &gcj_class_struct2);
+                                  (++obj_cnt & 1) != 0 ? &gcj_class_struct1
+                                                       : &gcj_class_struct2);
     CHECK_OUT_OF_MEMORY(r);
     result = (sexpr)(r + 1);
     result -> sexpr_car = x;