[Lazarus] Pascalscript on arm

[Martin Frb]

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 help at all.

You 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