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

--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus

Reply via email to