oberonjs/test/expected/var_parameter.js

<rtl code>
var m = function (){
function R(){
	this.i = 0;
	this.byte = 0;
	this.a = RTL$.makeArray(3, 0);
	this.p = null;
}
var i = 0;
var byte = 0;
var b = false;
var a = RTL$.makeArray(5, 0);
var byteArray = RTL$.makeArray(3, 0);

function p1(i1/*VAR INTEGER*/, i2/*VAR INTEGER*/, byte/*VAR BYTE*/){
	i1.set(1);
	i2.set(2);
	byte.set(3 & 0xFF);
}

function p2(i/*INTEGER*/, byte/*BYTE*/, b/*BOOLEAN*/){
}

function index(i/*VAR INTEGER*/){
	return i.get();
}

function indexByte(b/*VAR BYTE*/){
	return b.get();
}

function array(a/*VAR ARRAY OF INTEGER*/){
	return a[0];
}

function p3(i/*VAR INTEGER*/, byte/*VAR BYTE*/, b/*VAR BOOLEAN*/){
	var j = 0;
	var r = new R();
	var ar = RTL$.makeArray(5, function(){return new R();});
	var ai = RTL$.makeArray(5, 0);
	j = i.get() + 1 | 0;
	j = 2 * i.get() | 0;
	j = i.get() / 2 | 0;
	j = -i.get();
	b.set(!b.get());
	a[i.get()] = i.get();
	p1({set: function($v){j = $v;}, get: function(){return j;}}, i, byte);
	p1(i, {set: function($v){j = $v;}, get: function(){return j;}}, byte);
	p1(i, RTL$.makeRef(a, index(i)), RTL$.makeRef(byteArray, indexByte(byte)));
	p2(i.get(), byte.get(), b.get());
	p1(RTL$.makeRef(r, "i"), RTL$.makeRef(ar[index(RTL$.makeRef(r, "i"))], "i"), RTL$.makeRef(ar[index(RTL$.makeRef(r, "i"))], "byte"));
	r.p = new R();
	ar[j].p = new R();
	p1(RTL$.makeRef(r.p, "i"), RTL$.makeRef(ar[j].p, "i"), RTL$.makeRef(ar[j].p, "byte"));
	p2(ar[j].p.i, ar[j].p.byte, r.p.i == ar[j].p.i);
	j = array(ai);
	j = array(r.a);
}

function testPointerDereferenceAndPassAsVAR(p/*PR*/){
	
	function innerVAR(r/*VAR R*/){
	}
	
	function innerConstVAR(r/*R*/){
	}
	innerVAR(p);
	innerConstVAR(p);
}
p3({set: function($v){i = $v;}, get: function(){return i;}}, {set: function($v){byte = $v;}, get: function(){return byte;}}, {set: function($v){b = $v;}, get: function(){return b;}});
}();