Ticket #956: segfaulty.pmc

#include <string.h>
#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));
    }

}