[PATCH] Consistent use of INTERP in PMC code

Just some cleanups for consistent access to the interpreter in PMC code.

Index: classes/perlstring.pmc
===================================================================
RCS file: /home/perlcvs/parrot/classes/perlstring.pmc,v
retrieving revision 1.7
diff -u -r1.7 perlstring.pmc
--- classes/perlstring.pmc	18 Dec 2001 07:05:00 -0000	1.7
+++ classes/perlstring.pmc	21 Dec 2001 01:13:18 -0000
@@ -47,7 +47,7 @@
 
     INTVAL get_integer () {
 	STRING* s = (STRING*) SELF->cache.struct_val;
-	return string_to_int(interpreter, s);
+	return string_to_int(INTERP, s);
     }
 
     INTVAL get_integer_index () {
@@ -55,7 +55,7 @@
 
     FLOATVAL get_number () {
 	STRING* s = (STRING*) SELF->cache.struct_val;
-	return string_to_num(interpreter, s);
+	return string_to_num(INTERP, s);
     }
 
     FLOATVAL get_number_index () {
Index: classes/perlundef.pmc
===================================================================
RCS file: /home/perlcvs/parrot/classes/perlundef.pmc,v
retrieving revision 1.2
diff -u -r1.2 perlundef.pmc
--- classes/perlundef.pmc	18 Dec 2001 07:05:00 -0000	1.2
+++ classes/perlundef.pmc	21 Dec 2001 01:13:18 -0000
@@ -80,17 +80,17 @@
 
    void set_integer (PMC * value) {
       pmc->vtable = &Parrot_base_vtables[enum_class_PerlInt];
-      pmc->vtable->set_integer(interpreter, pmc, value);
+      pmc->vtable->set_integer(INTERP, pmc, value);
    }
 
    void set_integer_native (INTVAL value) {
       pmc->vtable = &Parrot_base_vtables[enum_class_PerlInt];
-      pmc->vtable->set_integer_native(interpreter, pmc, value);
+      pmc->vtable->set_integer_native(INTERP, pmc, value);
    }
 
    void set_integer_bigint (BIGINT value) {
       pmc->vtable = &Parrot_base_vtables[enum_class_PerlInt];
-      pmc->vtable->set_integer_bigint(interpreter, pmc, value);
+      pmc->vtable->set_integer_bigint(INTERP, pmc, value);
    }
 
    void set_integer_same (PMC * value) {
@@ -102,17 +102,17 @@
 
    void set_number (PMC * value) {
       pmc->vtable = &Parrot_base_vtables[enum_class_PerlNum];
-      pmc->vtable->set_number(interpreter, pmc, value);
+      pmc->vtable->set_number(INTERP, pmc, value);
    }
 
    void set_number_native (FLOATVAL value) {
       pmc->vtable = &Parrot_base_vtables[enum_class_PerlNum];
-      pmc->vtable->set_number_native(interpreter, pmc, value);
+      pmc->vtable->set_number_native(INTERP, pmc, value);
    }
 
    void set_number_bigfloat (BIGFLOAT value) {
       pmc->vtable = &Parrot_base_vtables[enum_class_PerlNum];
-      pmc->vtable->set_number_bigfloat(interpreter, pmc, value);
+      pmc->vtable->set_number_bigfloat(INTERP, pmc, value);
    }
 
    void set_number_same (PMC * value) {
@@ -124,22 +124,22 @@
 
    void set_string (PMC * value) {
       pmc->vtable = &Parrot_base_vtables[enum_class_PerlString];
-      pmc->vtable->set_string(interpreter, pmc, value);
+      pmc->vtable->set_string(INTERP, pmc, value);
    }
 
    void set_string_native (STRING * value) {
       pmc->vtable = &Parrot_base_vtables[enum_class_PerlString];
-      pmc->vtable->set_string_native(interpreter, pmc, value);
+      pmc->vtable->set_string_native(INTERP, pmc, value);
    }
 
    void set_string_unicode (STRING * value) {
       pmc->vtable = &Parrot_base_vtables[enum_class_PerlString];
-      pmc->vtable->set_string_unicode(interpreter, pmc, value);
+      pmc->vtable->set_string_unicode(INTERP, pmc, value);
    }
 
    void set_string_other (STRING * value) {
       pmc->vtable = &Parrot_base_vtables[enum_class_PerlString];
-      pmc->vtable->set_string_other(interpreter, pmc, value);
+      pmc->vtable->set_string_other(INTERP, pmc, value);
    }
 
    void set_string_same (PMC * value) {

• [PATCH] Consistent use of INTERP in PMC code by Jason Gloudon