Passing a JSONVariant sub-value to a const argument can raise an AV

procedure TestVal(const value: JSONVariant);
begin
end;

procedure Test;
var data: JSONVariant;
begin
   data := JSON.Parse('[ [], [] ]');
   for var i := 0 to data.length() - 1 do
      testVal(data[i]);

   print('Success!');
end;

Test;

This crashes in the EvalPushExprs part of the call to testVal, because the 
first argument is interpreted as potAddr rather than potResult, which leads to 
TConnectorCallExpr.GetDataPtr being called with a passed-in Result of nil, 
which gives an access violation.

Original issue reported on code.google.com by masonwhe...@gmail.com on 30 Mar 2014 at 1:48

ghkweon / dwscript

Passing a JSONVariant sub-value to a const argument can raise an AV #460