oberonjs/test/expected/set.js

<rtl code>
var m = function (){
var ci = 3;
var cb = true;
var cs1 = 2 | 4;
var cs2 = 14 & ~18;
var cs3 = 14 & 18;
var cs4 = 14 ^ 18;
var cs5 = ~2;
var s1 = 0;var s2 = 0;
var i1 = 0;
var b = false;
var aSet = RTL$.makeArray(1, 0);
var aInt = RTL$.makeArray(1, 0);

function getSet1(){
	return 2;
}

function getSet2(){
	return 4;
}
s1 = 0;
s1 = 61;
s1 = 8;
s1 = 64;
i1 = 3;
s2 = RTL$.makeSet(i1, i1 + 2 | 0, [10 - i1 | 0, 15]);
s2 = RTL$.makeSet(i1) | 4;
b = 1 << i1 & s1;
b = RTL$.setInclL(s1, s2);
b = RTL$.setInclR(s1, s2);
b = RTL$.setInclL(getSet1(), getSet2());
b = RTL$.setInclR(getSet1(), getSet2());
b = RTL$.setInclL(cs1, cs2);
b = RTL$.setInclR(cs1, cs2);
b = RTL$.setInclL(cs1 | cs2, cs1 | cs2);
b = RTL$.setInclR(cs1 | cs2, cs2 | cs1);
b = RTL$.setInclL(2 | 4, 2 | 4);
b = RTL$.setInclR(2 | 4, 4 | 2);
b = s1 == s2;
b = s1 != s2;
s1 = s1 | s2;
s1 = s1 & ~s2;
s1 = s1 & s2;
s1 = s1 ^ s2;
s1 = ~s2;
s2 |= 8/*bit: 3*/;
s1 |= 512/*bit: ((ci * 2 | 0) + 3 | 0)*/;
s1 |= 2/*bit: (cb ? 1 : 0)*/;
s2 |= 1 << i1;
aSet[0] |= 8/*bit: 3*/;
s2 &= ~(8/*bit: 3*/);
s2 &= ~(1/*bit: (!cb ? 1 : 0)*/);
s2 &= ~(1 << i1);
aSet[0] &= ~(8/*bit: 3*/);
}();