Permalink
Browse files

track rename of function

  • Loading branch information...
1 parent 951b433 commit 27aae9ce53dbe6d34bc10c010e71feb521a90a09 @coke coke committed Feb 16, 2011
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/ops/tcl.ops
View
@@ -119,7 +119,7 @@ inline op tcl_error(in STR, in PMC) :flow {
VTABLE_assign_pmc(interp, errorInfo, $2);
errorCode = Parrot_ns_find_namespace_global(interp, ns, string_from_literal(interp, "$errorCode"));
- newEC = pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_String));
+ newEC = pmc_new(interp, Parrot_hll_get_ctx_HLL_type(interp, enum_class_String));
VTABLE_set_string_native(interp, newEC, string_from_literal(interp, "NONE"));
VTABLE_assign_pmc(interp, errorCode, newEC);
@@ -143,12 +143,12 @@ inline op tcl_error(in STR) :flow {
ns = Parrot_ns_get_namespace_keyed(interp, root_ns, tcl_key);
errorInfo = Parrot_ns_find_namespace_global(interp, ns, string_from_literal(interp, "$errorCode"));
- newEI = pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_String));
+ newEI = pmc_new(interp, Parrot_hll_get_ctx_HLL_type(interp, enum_class_String));
VTABLE_set_string_native(interp, newEI, string_from_literal(interp, ""));
VTABLE_assign_pmc(interp, errorInfo, newEI);
errorCode = Parrot_ns_find_namespace_global(interp, ns, string_from_literal(interp, "$errorCode"));
- newEC = pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_String));
+ newEC = pmc_new(interp, Parrot_hll_get_ctx_HLL_type(interp, enum_class_String));
VTABLE_set_string_native(interp, newEC, string_from_literal(interp, "NONE"));
VTABLE_assign_pmc(interp, errorCode, newEC);

0 comments on commit 27aae9c

Please sign in to comment.