Ticket #681: tt_681_fix.patch

src/io/api.c

@@ -265 +265 @@
 {
     ASSERT_ARGS(Parrot_io_reads)
     STRING *result;
-    Parrot_PCCINVOKE(interp, pmc, CONST_STRING(interp, "read"), "I->S",
-            length, &result);
+    Parrot_pcc_invoke_method_from_c_args(interp, pmc, CONST_STRING(interp, "read"), "I->S", length, &result);
+    //Parrot_PCCINVOKE(interp, pmc, CONST_STRING(interp, "read"), "I->S",
+    //        length, &result);
     return result;
 }