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) {