Start implementing compose protocol for P6int REPR.

src/6model/reprs/P6int.c

@@ -20,6 +20,9 @@ static PMC * type_object_for(PARROT_INTERP, PMC *HOW) {
     PMC *st_pmc = create_stable(interp, this_repr, HOW);
     STable *st  = STABLE_STRUCT(st_pmc);
 
+    /* Attach a REPR data object to the STable. */
+    st->REPR_data = mem_allocate_zeroed_typed(P6intREPRData);
+
     /* Create type object and point it back at the STable. */
     obj->common.stable = st_pmc;
     st->WHAT = wrap_object(interp, obj);
@@ -34,6 +37,11 @@ static PMC * type_object_for(PARROT_INTERP, PMC *HOW) {
 /* Composes the representation. */
 static void compose(PARROT_INTERP, STable *st, PMC *repr_info) {
     /* Nothing to do yet (but later, size). */
+    /* TODO: Set bit width and alignment requirements. */
+    P6intREPRData *repr_data = (P6intREPRData *) st->REPR_data;
+    repr_data->bits = VTABLE_get_integer_keyed_str(interp, repr_info,
+        Parrot_str_new_constant(interp, "bits"));
+    printf("bits: %ld\n", repr_data->bits);
 }
 
 /* Creates a new instance based on the type object. */

src/6model/reprs/P6int.h

@@ -12,6 +12,13 @@ typedef struct {
     P6intBody body;
 } P6intInstance;
 
+/* The bit width and alignment requirements is shared for all instances of the
+ * same type.*/
+typedef struct {
+    INTVAL bits;
+    INTVAL align;
+} P6intREPRData;
+
 /* Initializes the P6int REPR. */
 REPROps * P6int_initialize(PARROT_INTERP);