Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

address bitrot (#4)

pmc_reuse -> Parrot_pmc_reuse
  • Loading branch information...
commit 0f33083001c709c52dced9cd1e6a7420e19731b2 1 parent e0eb829
@coke coke authored
View
4 src/pmc/tclfloat.pmc
@@ -23,12 +23,12 @@ pmclass TclFloat
}
VTABLE void set_integer_native(INTVAL value) {
- pmc_reuse(INTERP, SELF, dynpmc_TclInt, 0);
+ Parrot_pmc_reuse(INTERP, SELF, dynpmc_TclInt, 0);
SETATTR_Integer_iv(INTERP, SELF, value);
}
VTABLE void set_string_native(STRING *value) {
- pmc_reuse(INTERP, SELF, dynpmc_TclString, 0);
+ Parrot_pmc_reuse(INTERP, SELF, dynpmc_TclString, 0);
SETATTR_String_str_val(INTERP, SELF, Parrot_str_copy(INTERP, value));
}
View
4 src/pmc/tclint.pmc
@@ -23,13 +23,13 @@ pmclass TclInt
}
VTABLE void set_number_native(FLOATVAL value) {
- pmc_reuse(INTERP, SELF, dynpmc_TclFloat, 0);
+ Parrot_pmc_reuse(INTERP, SELF, dynpmc_TclFloat, 0);
SETATTR_Float_fv(INTERP, SELF, value);
}
VTABLE void set_string_native(STRING *value) {
- pmc_reuse(INTERP, SELF, dynpmc_TclString, 0);
+ Parrot_pmc_reuse(INTERP, SELF, dynpmc_TclString, 0);
SETATTR_String_str_val(INTERP, SELF, Parrot_str_copy(INTERP, value));
}
View
4 src/pmc/tclstring.pmc
@@ -25,12 +25,12 @@ pmclass TclString
}
VTABLE void set_number_native(FLOATVAL value) {
- pmc_reuse(INTERP, SELF, dynpmc_TclFloat, 0);
+ Parrot_pmc_reuse(INTERP, SELF, dynpmc_TclFloat, 0);
SETATTR_Float_fv(INTERP, SELF, value);
}
VTABLE void set_integer_native(INTVAL value) {
- pmc_reuse(INTERP, SELF, dynpmc_TclInt, 0);
+ Parrot_pmc_reuse(INTERP, SELF, dynpmc_TclInt, 0);
SETATTR_Integer_iv(INTERP, SELF, value);
}
Please sign in to comment.
Something went wrong with that request. Please try again.