Fix build against post-1.7.0 parrot; allison++ for the new function.

partcl · Oct 21, 2009 · 326fb65 · 326fb65
1 parent 7945915
commit 326fb65
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/config/PARROT_VERSION b/config/PARROT_VERSION
@@ -1,6 +1,6 @@
 # Minimum svn revision, e.g.:
 # revision: 12345
-revision: 41575
+revision: 41988
 # TODO: allow specification of a maximum version, as parrot trunk does
 # sometimes break.
 

diff --git a/src/pmc/tclstring.pmc b/src/pmc/tclstring.pmc
@@ -38,16 +38,15 @@ pmclass TclString
     VTABLE INTVAL get_bool() {
         PMC    * const _class     = VTABLE_get_class(interp, SELF);
         STRING * const get_bool   = CONST_STRING(interp, "get_bool");
+        INTVAL result = -9999; /* default, should never be used */
 
         /* Get the vtable override for 'get_bool', run that instead. */
         PMC * const method = Parrot_oo_find_vtable_override_for_class(interp, _class, get_bool);
 
         if (!PMC_IS_NULL(method)) {
-            return (INTVAL)Parrot_run_meth_fromc_args_reti(interp, method, SELF, get_bool, "I");
-	} else {
-            return -9999; // This should never happen.
+            Parrot_ext_call(interp, method, "Pi->I", SELF, &result);
 	}
-
+        return result;
      }
 }