Is anyone using the version of PascalScript shipped with Lazarus on an arm device?

Our version has the below patch applied to it, and I do not know if this is correct (or still correct).

If anyone has arm, could you please test?

To test use Lazarus trunk (1.9).
  Revision: 56200
  Date: 25 October 2017 22:33:11
or later.

Only trunk has the latest version of pascalscript, and any test against older versions will not can test with any version of fpc, but please mention what version you used.

To test:
open the testcase  components\PascalScript\dunit\ifps3.lpi and run it.

then un-apply the patch (or comment the lines in question) and run it again.

You may also compile the IDE against the changes in PS, and go to options => EditorMacroScripting and see if "scripting active" is shown. (Also check before you make the changes)

Thanks

 Source/arm.inc | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Source/arm.inc b/Source/arm.inc
index e08b97d..72a260e 100644
--- a/Source/arm.inc
+++ b/Source/arm.inc
@@ -281,6 +281,10 @@ begin
       end;
     end;

+  if assigned(_Self) then begin
+    addgen(dword(_Self));
+  end;
+
    { process all parameters }
    for i := 0 to Params.Count-1 do begin
      if Params[i] = nil