| 1 | --- tools/dev/mk_language_shell.in (revision 49475) |
|---|
| 2 | +++ tools/dev/mk_language_shell.in (working copy) |
|---|
| 3 | @@ -656,12 +656,9 @@ |
|---|
| 4 | */ |
|---|
| 5 | |
|---|
| 6 | METHOD PMC* get() { |
|---|
| 7 | - PMC* property; |
|---|
| 8 | - INTVAL array_t; |
|---|
| 9 | - STRING* property_name; |
|---|
| 10 | + PMC* property = VTABLE_getprop(INTERP, SELF, property_name); |
|---|
| 11 | + STRING* property_name = string_from_literal(INTERP, "property"); |
|---|
| 12 | |
|---|
| 13 | - property_name = string_from_literal(INTERP, "property"); |
|---|
| 14 | - shape = VTABLE_getprop(INTERP, SELF, property_name); |
|---|
| 15 | if (PMC_IS_NULL(property)) { |
|---|
| 16 | /* |
|---|
| 17 | * No property has been set yet. This means that we are |
|---|
| 18 | @@ -671,7 +668,7 @@ |
|---|
| 19 | * specify it? |
|---|
| 20 | */ |
|---|
| 21 | /* |
|---|
| 22 | - array_t = Parrot_pmc_get_type_str(INTERP, |
|---|
| 23 | + INTVAL array_t = Parrot_pmc_get_type_str(INTERP, |
|---|
| 24 | string_from_literal(INTERP, "@lang@")); |
|---|
| 25 | */ |
|---|
| 26 | property = Parrot_pmc_new(INTERP, VTABLE_type(INTERP, SELF)); |
|---|
| 27 | @@ -710,7 +707,7 @@ |
|---|
| 28 | old_property = VTABLE_getprop(INTERP, SELF, property_name); |
|---|
| 29 | VTABLE_setprop(INTERP, SELF, property_name, new_property); |
|---|
| 30 | |
|---|
| 31 | - /* how big are these property? */ |
|---|
| 32 | + /* how big are these properties? */ |
|---|
| 33 | old_size = size(INTERP, SELF, old_property); |
|---|
| 34 | new_size = size(INTERP, SELF, new_property); |
|---|
| 35 | |
|---|
