Branch: Tag:

2015-11-06

2015-11-06 23:35:54 by Martin Nilsson <nilsson@fastmail.com>

Fix one label issue.

4117:    class Y {    inherit X;    protected void create(int yyy) { -  X:x = yyy + 2; +  x = yyy + 2;    }    };    return Y(5)->x;
9304:    for (i = 1; i <= 4; i++)    foo: break;    return i; - ]], 1); + ]], 1)   test_any([[    int i;    for (int j = 1; j <= 4; j++) {
9312:    i = j;    }    return i; - ]], 0); + ]], 0)   test_any([[    int i;    for (i = 1; i <= 4; i++)
9321:    break;    }    return i; - ]], 1); + ]], 1)   test_any_equal([[    int a, b;   foo:
9335:    b = i;    }    return ({a, b}); - ]], ({3, 1})); + ]], ({3, 1}))   test_any_equal([[    int a, b;   foo: {
9349:    }    }    return ({a, b}); - ]], ({3, 2})); + ]], ({3, 2}))   test_any_equal([[    array res = ({});    foreach (({1, 2, 3}), int x) {
9366:    }    }    return res; - ]], ({-1, 1, 1, 2, 3, -2, 1, 1, 2, 3, -3, 1, 1, 2, 3})); + ]], ({-1, 1, 1, 2, 3, -2, 1, 1, 2, 3, -3, 1, 1, 2, 3}))   test_any_equal([[    int a, b;   foo:
9381:    b = i;    }    return ({a, b}); - ]], ({3, 1})); + ]], ({3, 1}))   test_any_equal([[    int a, b;   foo:
9395:    };    b += i;    } -  return ({a, b}); +  return ({a, b})   ]], ({4, 8}));   test_any([[   foo:    if (stringp (catch {int q=1; break foo;}) + 1) return 1;    else return 2;    return 3; - ]], 3); + ]], 3)   test_any([[   foo:    do {
9410:    else return 2;    } while (0);    return 3; - ]], 3); + ]], 3)   test_do([[    void gnu (mixed... args) {};   foo:    gnu (1,2,3, gauge {break foo;},4,5); - ]]); + ]])   test_do([[    void gnu (mixed... args) {};   foo:    gnu (@indices (all_constants()), gauge {break foo;}); - ]]); + ]])   test_do([[    void gnu (mixed... args) {};   foo:    gnu (1,2,3, catch {int q=1; break foo;},4,5); - ]]); + ]])   test_do([[    void gnu (mixed... args) {};   foo:    gnu (@indices (all_constants()), catch {int q=1; break foo;}); - ]]); + ]])   test_do([[    void gnu (mixed... args) {};   foo:    gnu (@({1,2,3,4,5}), catch {int q=1; break foo;}); - ]]); + ]])   test_do([[    void gnu (mixed... args) {};   foo:    gnu (@indices (all_constants()), @allocate (511, 1), catch {int q=1; break foo;}); - ]]); + ]])   test_do([[    void gnu (mixed... args) {};   foo:    gnu (@allocate (511, 1), @indices (all_constants()), catch {int q=1; break foo;}); - ]]); + ]])   test_compile_error([[   foo: {    @indices (all_constants());    break foo;    } - ]]); + ]])   test_do([[    // Note: This is valid <= 7.0 code.    foreach (({1,2,3}), int j)    do    if (17 + j + gauge {break;}) return 0;    while (0); - ]]); + ]])   test_do([[    // Note: This is valid <= 7.0 code.    foreach (({1,2,3}), int j)    do    if (17 - j - gauge {break;}) return 0;    while (0); - ]]); + ]])   test_do([[    int gnu (mixed... args) {};    gnu(@indices (all_constants()), gauge {
9476:    return 0;    while (0);    }); - ]]); + ]])   test_do([[    int gnu (mixed... args) {};   foo:
9488:    return 0;    while (0);    }); - ]]); + ]])      cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())   ]])    - test_compile_any([[import Stdio.Readline; mapping x=([]);]]); + test_compile_any([[import Stdio.Readline; mapping x=([]);]])      // testing preprocessor   test_eq([[cpp("#define FOO(X,Y) (X) (Y)\nFOO( (A),(B) )")]],"#line 1 \"-\"\n\n( (A) ) ( (B) )")