#include <stdio.h>
#include <stdlib.h>
#include <pobj/pobj.h>


struct data {
    int val;
};

struct item {
    int val;
    struct data *data;
    struct item *next;
    int dummy[45];
};
int item_ref_fields[] = {
    member_offset(struct item, data),
    member_offset(struct item, next),
    -1
};

int
main (int argc, char **argv)
{
    static struct item *list = NULL;
    struct data *data;
    struct item *tmp, *next;
    int i;
    
    switch (pobj_init (NULL, NULL)) {
    case 0:
	printf ("first-time init\n");
	/* Build list. */
	next = NULL;
	for (i = 0; i < 15000; i++) {
	    pobj_start ();

	    tmp = (struct item *) pobj_malloc (sizeof (struct item));
	    data = (struct data *) pobj_malloc_transient (sizeof (struct data));
	    if (! (tmp && data)) {
		printf ("allocation error\n");
		abort ();
	    }
	    
	    pobj_ref_typify (tmp, item_ref_fields);
	    
	    pobj_static_set_ref (&list, tmp);

	    data->val = -i;

	    tmp->val = i;
	    tmp->data = data;
	    tmp->next = next;

#if 0
	    POBJ_SET_INT (tmp, val, i);

	    /* Intended crash code... */
	    if (i == 7)
		abort ();

	    POBJ_SET_REF (tmp, next, next);
#endif

	    POBJ_UPDATE (tmp);

	    pobj_end ();
	    
	    next = tmp;
	}
	/* pobj_update_recursive (tmp); */
	/* pobj_static_set_ref (&list, tmp); */
	/* list = tmp; */
	/* pobj_static_update_ref (&list); */
	break;

    case 1:
	printf ("subsequent init\n");
	break;

    case -1:
	printf ("init error\n");
	break;

    default:
	printf ("unknown return value\n");
    }

    /* Print list. */
    printf ("printing list...\n");
    for (tmp = list; tmp; tmp = tmp->next)
	printf ("%p: val=%d next=%p data=%p data->val=%d\n",
		(void *) tmp, tmp->val, (void *) tmp->next,
		(void *) tmp->data, (tmp->data ? tmp->data->val : 0));
    printf ("...done\n");

    pobj_shutdown ();

    return 0;
}