| 1 | Index: tools/dev/mk_language_shell.in |
|---|
| 2 | =================================================================== |
|---|
| 3 | --- tools/dev/mk_language_shell.in (revision 49475) |
|---|
| 4 | +++ tools/dev/mk_language_shell.in (working copy) |
|---|
| 5 | @@ -647,6 +647,8 @@ |
|---|
| 6 | SUPER(); |
|---|
| 7 | }; |
|---|
| 8 | |
|---|
| 9 | +/* |
|---|
| 10 | + |
|---|
| 11 | =item C<PMC* get()> |
|---|
| 12 | |
|---|
| 13 | Returns a vector-like PMC. |
|---|
| 14 | @@ -656,12 +658,9 @@ |
|---|
| 15 | */ |
|---|
| 16 | |
|---|
| 17 | METHOD PMC* get() { |
|---|
| 18 | - PMC* property; |
|---|
| 19 | - INTVAL array_t; |
|---|
| 20 | - STRING* property_name; |
|---|
| 21 | + PMC* property = VTABLE_getprop(INTERP, SELF, property_name); |
|---|
| 22 | + STRING* property_name = string_from_literal(INTERP, "property"); |
|---|
| 23 | |
|---|
| 24 | - property_name = string_from_literal(INTERP, "property"); |
|---|
| 25 | - shape = VTABLE_getprop(INTERP, SELF, property_name); |
|---|
| 26 | if (PMC_IS_NULL(property)) { |
|---|
| 27 | /* |
|---|
| 28 | * No property has been set yet. This means that we are |
|---|
| 29 | @@ -671,7 +670,7 @@ |
|---|
| 30 | * specify it? |
|---|
| 31 | */ |
|---|
| 32 | /* |
|---|
| 33 | - array_t = Parrot_pmc_get_type_str(INTERP, |
|---|
| 34 | + INTVAL array_t = Parrot_pmc_get_type_str(INTERP, |
|---|
| 35 | string_from_literal(INTERP, "@lang@")); |
|---|
| 36 | */ |
|---|
| 37 | property = Parrot_pmc_new(INTERP, VTABLE_type(INTERP, SELF)); |
|---|
| 38 | @@ -710,7 +709,7 @@ |
|---|
| 39 | old_property = VTABLE_getprop(INTERP, SELF, property_name); |
|---|
| 40 | VTABLE_setprop(INTERP, SELF, property_name, new_property); |
|---|
| 41 | |
|---|
| 42 | - /* how big are these property? */ |
|---|
| 43 | + /* how big are these properties? */ |
|---|
| 44 | old_size = size(INTERP, SELF, old_property); |
|---|
| 45 | new_size = size(INTERP, SELF, new_property); |
|---|
| 46 | |
|---|
