Branch: Tag:

1998-10-09

1998-10-09 23:30:23 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

bugfix for `[] and `->

Rev: src/docode.c:1.40
Rev: src/peep.in:1.23
Rev: src/testsuite.in:1.123

1: - stest_true([["$Id: testsuite.in,v 1.122 1998/09/01 17:05:24 grubba Exp $"]]) + stest_true([["$Id: testsuite.in,v 1.123 1998/10/09 23:30:23 hubbe Exp $"]])   cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())
1257:   test_eq((<'f','o','o'>)['b'],0)   test_eq((<'f','o','o'>)[-1],0)    + test_eq([[class Z { mixed `->(mixed x) { return this_object()[x]; } int foo() { return 1; }}()->foo()]],1) +    // index assigning   test_any(mixed a=({1}); a[0]=2; return equal(a,({2})),1)   test_any(mixed a=(<1>); a[1]=2; return equal(a,(<1>)),1)