Skip to content
Browse files

last two changes that I can find in the core repo. Parrot builds and …

…passes all coretests

git-svn-id: https://svn.parrot.org/parrot/branches/pmc_func_cleanup@44043 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
1 parent 9a7074d commit 31682f123e8e5c228e2ce36e184f61e282ccb470 whiteknight committed Feb 16, 2010
Showing with 4 additions and 4 deletions.
  1. +1 −1 lib/Parrot/Pmc2c/UtilFunctions.pm
  2. +3 −3 t/src/extend.t
View
2 lib/Parrot/Pmc2c/UtilFunctions.pm
@@ -173,7 +173,7 @@ EOC
my $lhs = $info->{flags}{no_init} ? "" : "type$class = ";
$cout .= <<"EOC";
whoami = CONST_STRING_GEN(interp, "$class");
- ${lhs}pmc_register(interp, whoami);
+ ${lhs}Parrot_pmc_register_new_type(interp, whoami);
EOC
}
$cout .= <<"EOC";
View
6 t/src/extend.t
@@ -454,7 +454,7 @@ the_test(PARROT_INTERP, opcode_t *cur_op, opcode_t *start)
name = Parrot_str_new_constant(interp, "_sub2");
sub = Parrot_find_global_cur(interp, name);
- arg = pmc_new(interp, enum_class_String);
+ arg = Parrot_pmc_new(interp, enum_class_String);
Parrot_PMC_set_string_native(interp, arg,
Parrot_str_new(interp, "hello ", 0));
@@ -512,7 +512,7 @@ the_test(PARROT_INTERP, opcode_t *cur_op, opcode_t *start)
name = Parrot_str_new_constant(interp, "_sub2");
sub = Parrot_find_global_cur(interp, name);
- arg = pmc_new(interp, enum_class_String);
+ arg = Parrot_pmc_new(interp, enum_class_String);
Parrot_PMC_set_string_native(interp, arg,
Parrot_str_new(interp, "hello ", 0));
@@ -581,7 +581,7 @@ the_test(PARROT_INTERP, opcode_t *cur_op, opcode_t *start)
Parrot_pbc_load(interp, pf);
sub = Parrot_find_global_cur(interp, name);
- arg = pmc_new(interp, enum_class_String);
+ arg = Parrot_pmc_new(interp, enum_class_String);
Parrot_PMC_set_string_native(interp, arg,
Parrot_str_new(interp, "hello ", 0));

0 comments on commit 31682f1

Please sign in to comment.
Something went wrong with that request. Please try again.