101 lines
1.8 KiB
C
101 lines
1.8 KiB
C
#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 < 15; 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 (data);
|
|
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;
|
|
}
|