Invoke accepts_type on correct meta-object.

jnthn · jnthn · commit fa3d25fdfac8 · 2013-07-02T15:27:07.000+02:00
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java b/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java
@@ -1891,7 +1891,7 @@ public static long istype(SixModelObject obj, SixModelObject type, ThreadContext
             if (atMeth == null)
                 throw ExceptionHandling.dieInternal(tc,
                     "Expected accepts_type method, but none found in meta-object");
-            invokeDirect(tc, atMeth, typeCheckCallSite, new Object[] { obj.st.HOW, type, obj });
+            invokeDirect(tc, atMeth, typeCheckCallSite, new Object[] { type.st.HOW, type, obj });
             return istrue(result_o(tc.curFrame), tc);
         }
         

Original file line number	Diff line number	Diff line change
`@@ -1891,7 +1891,7 @@ public static long istype(SixModelObject obj, SixModelObject type, ThreadContext`
`1891`	`1891`	`if (atMeth == null)`
`1892`	`1892`	`throw ExceptionHandling.dieInternal(tc,`
`1893`	`1893`	`"Expected accepts_type method, but none found in meta-object");`
`1894`		`- invokeDirect(tc, atMeth, typeCheckCallSite, new Object[] { obj.st.HOW, type, obj });`
	`1894`	`+ invokeDirect(tc, atMeth, typeCheckCallSite, new Object[] { type.st.HOW, type, obj });`
`1895`	`1895`	`return istrue(result_o(tc.curFrame), tc);`
`1896`	`1896`	`}`
`1897`	`1897`