Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

pmc_type now called Parrot_pmc_get_type_str

pmc_type was an old compatability macro removed in Nov 2011 by
dffbd93: Remove very old 'compatibilty macros'.  The new way to say
that is Parrot_pmc_get_type_str.  Longer, but it matches Parrot's
naming conventions.
  • Loading branch information...
commit bdc2fee0fde58207e40407d59127e7e9481746fc 1 parent c4e4441
@Benabik Benabik authored
View
8 src/binary.c
@@ -314,10 +314,10 @@ PMC *ParTcl_binary_scan(PARROT_INTERP, STRING *BINSTR, STRING *FORMAT)
/* make sure we've found the type numbers for the PMCs we want to create */
if (!class_TclFloat)
{
- class_TclFloat = pmc_type(interp, string_from_literal(interp, "TclFloat"));
- class_TclInt = pmc_type(interp, string_from_literal(interp, "TclInt"));
- class_TclList = pmc_type(interp, string_from_literal(interp, "TclList"));
- class_TclString = pmc_type(interp, string_from_literal(interp, "TclString"));
+ class_TclFloat = Parrot_pmc_get_type_str(interp, string_from_literal(interp, "TclFloat"));
+ class_TclInt = Parrot_pmc_get_type_str(interp, string_from_literal(interp, "TclInt"));
+ class_TclList = Parrot_pmc_get_type_str(interp, string_from_literal(interp, "TclList"));
+ class_TclString = Parrot_pmc_get_type_str(interp, string_from_literal(interp, "TclString"));
}
values = pmc_new(interp, class_TclList);
View
4 src/pmc/tclfloat.pmc
@@ -18,8 +18,8 @@ pmclass TclFloat
{
VTABLE void class_init() {
- dynpmc_TclInt = pmc_type(INTERP, CONST_STRING(INTERP, "TclInt"));
- dynpmc_TclString = pmc_type(INTERP, CONST_STRING(INTERP, "TclString"));
+ dynpmc_TclInt = Parrot_pmc_get_type_str(INTERP, CONST_STRING(INTERP, "TclInt"));
+ dynpmc_TclString = Parrot_pmc_get_type_str(INTERP, CONST_STRING(INTERP, "TclString"));
}
VTABLE void set_integer_native(INTVAL value) {
View
4 src/pmc/tclint.pmc
@@ -18,8 +18,8 @@ pmclass TclInt
{
VTABLE void class_init() {
- dynpmc_TclFloat = pmc_type(INTERP, CONST_STRING(INTERP, "TclFloat"));
- dynpmc_TclString = pmc_type(INTERP, CONST_STRING(INTERP, "TclString"));
+ dynpmc_TclFloat = Parrot_pmc_get_type_str(INTERP, CONST_STRING(INTERP, "TclFloat"));
+ dynpmc_TclString = Parrot_pmc_get_type_str(INTERP, CONST_STRING(INTERP, "TclString"));
}
VTABLE void set_number_native(FLOATVAL value) {
View
4 src/pmc/tclstring.pmc
@@ -20,8 +20,8 @@ pmclass TclString
VTABLE void class_init() {
- dynpmc_TclFloat = pmc_type(INTERP, CONST_STRING(INTERP, "TclFloat"));
- dynpmc_TclInt = pmc_type(INTERP, CONST_STRING(INTERP, "TclInt"));
+ dynpmc_TclFloat = Parrot_pmc_get_type_str(INTERP, CONST_STRING(INTERP, "TclFloat"));
+ dynpmc_TclInt = Parrot_pmc_get_type_str(INTERP, CONST_STRING(INTERP, "TclInt"));
}
VTABLE void set_number_native(FLOATVAL value) {
Please sign in to comment.
Something went wrong with that request. Please try again.