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
Original issue reported on code.google.com by
masonwhe...@gmail.com
on 30 Mar 2014 at 1:48