Re: [Help-smalltalk] Fix for extend

[Paolo Bonzini]

On 09/24/2010 10:58 PM, Mathieu Suen wrote:
> Hi Paolo,
>
> I have made a fix for the issue: http://smalltalk.gnu.org/project/issue/520.
> You can take it from my repository.
> I am not fan of the fix but at least it work.

No, it is more complicated than that.  Here is a more complete testcase:

Eval [
    (Object subclass: #AB)
        instanceVariableNames: 'a'.
    (Object subclass: #C)
        instanceVariableNames: 'c';
        createGetMethod: 'c';
        createSetMethod: 'c'.
]

Eval [
    cObj := C new.
    cObj c: 34.
    Smalltalk at: #TestObj put: cObj.

    AB
        instanceVariableNames: 'a b';
        createGetMethod: 'b';
        createSetMethod: 'b'.
    ^cObj c
]

Eval [
    cObj := C new.
    cObj c: 34.
    ^cObj instVarAt: 3
]

Eval [
    TestObj b: 12.
    AB instanceVariableNames: 'b'.
    ^TestObj b
]

Eval [
    ^TestObj instVarAt: 1
]

Eval [
    ^TestObj instVarAt: 2
]

Eval [
    AB instanceVariableNames: 'b a'.
    ^TestObj b
]

Eval [
    ^TestObj instVarAt: 1
]

Eval [
    ^TestObj instVarAt: 3
]

Paolo