diff --git a/src/pmc/integer.pmc b/src/pmc/integer.pmc index 9e756c0028..2591c5f64d 100644 --- a/src/pmc/integer.pmc +++ b/src/pmc/integer.pmc @@ -323,7 +323,7 @@ MMD_Integer: { * so we can't used PMC_int_val(SELF) in any of these * Integer methods * - * RT#46627 + * RT#46627 * check for exact Integer type * e.g. MMD_Integer_EXACT */ @@ -1142,7 +1142,7 @@ MMD_BigInt: { return Parrot_BigInt_is_equal_BigInt(INTERP, temp, value); } MMD_DEFAULT: { - return (INTVAL)(PMC_int_val(SELF) == + return (VTABLE_get_integer(INTERP, SELF) == VTABLE_get_integer(INTERP, value)); } } diff --git a/t/pmc/objects.t b/t/pmc/objects.t index b81e4e57cf..4c5cfc4983 100644 --- a/t/pmc/objects.t +++ b/t/pmc/objects.t @@ -1665,7 +1665,7 @@ CODE 1 * 1 = 1 OUTPUT -pir_output_is( <<'CODE', <<'OUTPUT', 'equality of subclassed Integer', todo => 'RT #46541' ); +pir_output_is( <<'CODE', <<'OUTPUT', 'equality of subclassed Integer' ); .sub main :main .local pmc class class = subclass "Integer", "LispInteger"