Dyn Array - no unused hint

Smart pascal source code


procedure SubTest(a : array of integer);
begin
a.Add(1);
end;

procedure Test;
var a : array of integer;
begin
  SubTest(a);
  WriteLn(a[0]);
end;

Test; // --> 1

	function Test() {
	 var a = [];
	 SubTest(a);
	 WriteLn(a[0]);
	};
	function SubTest(a$1) {
	 a$1.push(1);
	};
	Test();  // 1