String reference count issue in ARM64

[kstrophus]

Amazing work on issue #18! I get a JSON string now in ARM64!

But something is wrong with the string reference count I think. When the JSON string that gets returned goes out of scope an exception is raised. Consider this code:

procedure TForm1.Button1Click(Sender: TObject); var jo: TJSONObject; s: string; begin jo := TJSONObject.Create; jo.S['USERID'] := 'S.TESTER'; s := jo.ToJSON(true); // Get a value now :) s := ''; // Exception :( jo.Free; end;

Exception is also raised if I do not set the string to empty and the method ends (string goes out of scope). This is where the exception is:

function System._UStrClr() 24641: FreeMem(P);

[kstrophus]

The memory exception when the resulting JSON string goes out of scope is only thrown in ARM64. Other targets seem fine.

[kstrophus]

Thank you! :)