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.
partcl · Jan 25, 2012 · bdc2fee · bdc2fee
1 parent c4e4441
commit bdc2fee
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 10 deletions.
diff --git a/src/binary.c b/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);

diff --git a/src/pmc/tclfloat.pmc b/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) {

diff --git a/src/pmc/tclint.pmc b/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) {

diff --git a/src/pmc/tclstring.pmc b/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) {