Update hint_for for consistency with the rest of the REPR API.

Author: jnthn

src/6model/reprs/HashAttrStore.c

@@ -74,7 +74,7 @@ static void bind_attribute_ref(PARROT_INTERP, STable *st, void *data, PMC *class
 }
 
 /* Gets the hint for the given attribute ID. */
-static INTVAL hint_for(PARROT_INTERP, PMC *obj, PMC *class_handle, STRING *name) {
+static INTVAL hint_for(PARROT_INTERP, STable *st, PMC *class_handle, STRING *name) {
     return NO_HINT;
 }
 

src/6model/reprs/KnowHOWREPR.c

@@ -82,7 +82,7 @@ static void bind_attribute_ref(PARROT_INTERP, STable *st, void *data, PMC *class
 }
 
 /* Gets the hint for the given attribute ID. */
-static INTVAL hint_for(PARROT_INTERP, PMC *obj, PMC *class_handle, STRING *name) {
+static INTVAL hint_for(PARROT_INTERP, STable *st, PMC *class_handle, STRING *name) {
     return NO_HINT;
 }
 

src/6model/reprs/P6int.c

@@ -74,7 +74,7 @@ static void bind_attribute_ref(PARROT_INTERP, STable *st, void *data, PMC *class
 }
 
 /* Gets the hint for the given attribute ID. */
-static INTVAL hint_for(PARROT_INTERP, PMC *obj, PMC *class_handle, STRING *name) {
+static INTVAL hint_for(PARROT_INTERP, STable *st, PMC *class_handle, STRING *name) {
     return NO_HINT;
 }
 

src/6model/reprs/P6num.c

@@ -75,7 +75,7 @@ static void bind_attribute_ref(PARROT_INTERP, STable *st, void *data, PMC *class
 }
 
 /* Gets the hint for the given attribute ID. */
-static INTVAL hint_for(PARROT_INTERP, PMC *obj, PMC *class_handle, STRING *name) {
+static INTVAL hint_for(PARROT_INTERP, STable *st, PMC *class_handle, STRING *name) {
     return NO_HINT;
 }
 

src/6model/reprs/P6opaque.c

@@ -520,12 +520,12 @@ static void bind_attribute_ref(PARROT_INTERP, STable *st, void *data, PMC *class
 }
 
 /* Gets the hint for the given attribute ID. */
-static INTVAL hint_for(PARROT_INTERP, PMC *obj, PMC *class_key, STRING *name) {
+static INTVAL hint_for(PARROT_INTERP, STable *st, PMC *class_key, STRING *name) {
     INTVAL slot;
-    P6opaqueREPRData *repr_data = (P6opaqueREPRData *)STABLE(obj)->REPR_data;
+    P6opaqueREPRData *repr_data = (P6opaqueREPRData *)st->REPR_data;
     if (!repr_data->allocation_size) {
-        compute_allocation_strategy(interp, obj, repr_data);
-        PARROT_GC_WRITE_BARRIER(interp, STABLE_PMC(obj));
+        compute_allocation_strategy(interp, st->WHAT, repr_data);
+        PARROT_GC_WRITE_BARRIER(interp, st->stable_pmc);
     }
     slot = try_get_slot(interp, repr_data, class_key, name);
     return slot >= 0 ? slot : NO_HINT;

src/6model/reprs/P6str.c

@@ -75,7 +75,7 @@ static void bind_attribute_ref(PARROT_INTERP, STable *st, void *data, PMC *class
 }
 
 /* Gets the hint for the given attribute ID. */
-static INTVAL hint_for(PARROT_INTERP, PMC *obj, PMC *class_handle, STRING *name) {
+static INTVAL hint_for(PARROT_INTERP, STable *st, PMC *class_handle, STRING *name) {
     return NO_HINT;
 }
 

src/6model/reprs/Uninstantiable.c

@@ -81,7 +81,7 @@ static void bind_attribute_ref(PARROT_INTERP, STable *st, void *data, PMC *class
 }
 
 /* Gets the hint for the given attribute ID. */
-static INTVAL hint_for(PARROT_INTERP, PMC *obj, PMC *class_handle, STRING *name) {
+static INTVAL hint_for(PARROT_INTERP, STable *st, PMC *class_handle, STRING *name) {
     return NO_HINT;
 }
 

src/6model/sixmodelobject.h

@@ -196,7 +196,7 @@ struct SixModel_REPROps {
         PMC *class_handle, STRING *name, INTVAL hint, void *value);
 
     /* Gets the hint for the given attribute ID. */
-    INTVAL (*hint_for) (PARROT_INTERP, PMC *Object, PMC *ClassHandle, STRING *Name);
+    INTVAL (*hint_for) (PARROT_INTERP, STable *st, PMC *class_handle, STRING *name);
 
     /* Clones the object, optionally cloning any containers in its
      * attributes. */

src/ops/nqp.ops

@@ -1220,7 +1220,7 @@ inline op stable_publish_vtable_handler_mapping(in PMC, in PMC) :base_core {
                 st->parrot_vtable_handler_mapping[idx].class_handle = class_handle;
                 st->parrot_vtable_handler_mapping[idx].attr_name = attr_name;
                 st->parrot_vtable_handler_mapping[idx].hint =
-                    REPR(class_handle)->hint_for(interp, target, class_handle, attr_name);
+                    REPR(class_handle)->hint_for(interp, STABLE(target), class_handle, attr_name);
             }
 			else
                 Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,
@@ -1459,7 +1459,7 @@ Gets lookup hint for an attribute.
 inline op repr_hint_for(out INT, in PMC, in PMC, in STR) :base_core {
     PMC *ch = decontainerize(interp, $3);
     if ($2->vtable->base_type == smo_id)
-        $1 = REPR($2)->hint_for(interp, $2, $3, $4);
+        $1 = REPR($2)->hint_for(interp, STABLE($2), $3, $4);
     else
         $1 = NO_HINT;
 }