#include #include "parrot/parrot.h" static PMC *SegFaulty_PMC = NULL; pmclass SegFaulty singleton dynpmc { ATTR INTVAL i; VTABLE void *get_pointer() { return SegFaulty_PMC; } VTABLE void set_pointer(void *ptr) { SegFaulty_PMC = (PMC *) ptr; } VTABLE void init() { Parrot_SegFaulty_attributes *attr; attr = mem_allocate_typed(Parrot_SegFaulty_attributes); PMC_data(SELF) = attr; PObj_active_destroy_SET(SELF); } VTABLE void destroy() { mem_sys_free(PMC_data(SELF)); } }