[Lazarus] Lazarus 2.0.2 EditorMacroScript error on first startup RPi4B

[Bo Berglund]

On Sun, 18 Aug 2019 14:21:30 +0200, Martin Frb via lazarus
<lazarus at lists.lazarus-ide.org> wrote:

>If you want to go on trying to see if we can find anything, then please 
>open
>   components\macroscript\emscriptclasses.pas
>around line 555
>replace TEmsSynWrapper.EMS_SearchReplace
>with:
>
>function TEmsSynWrapper.EMS_SearchReplace(ASearch, AReplace: string;
>   AOptions: TSynSearchOptions): integer;
>begin
>debugln(['*** EMS_SearchReplace ASearch ', ord(ssoReplaceAll), ' / ', 
>integer([ssoReplaceAll])]);
>debugln(['*** EMS_SearchReplace ', Pointer(ASearch), ' / ', 
>Pointer(AReplace), ' / ', integer(AOptions), ' / ', Pointer(self)]);
>debugln(['*** EMS_SearchReplace ASearch ', ASearch, ' / ', AReplace]);
>debugln(['*** EMS_SearchReplace ASearch ', length(ASearch), ' / ', 
>length(AReplace)]);
>debugln(['*** EMS_SearchReplace ASearch ', RawByteString(ASearch), ' / 
>', RawByteString(AReplace)]);
>debugln(['*** EMS_SearchReplace ASearch ', StringCodePage((ASearch)), ' 
>/ ', StringCodePage((AReplace))]);
>debugln(['*** EMS_SearchReplace ASearch ', 
>StringCodePage(RawByteString(ASearch)), ' / ', 
>StringCodePage(RawByteString(AReplace))]);
>debugln(['*** EMS_SearchReplace ASearch ', self.Text, ' / ', 
>dbgs(CaretXY)]);
>   Result := SearchReplace(ASearch, AReplace, AOptions);
>debugln(['*** EMS_SearchReplace ASearch ', Result]);
>debugln(['*** EMS_SearchReplace ASearch ', self.Text, ' / ', 
>dbgs(CaretXY)]);
>end;
>
>Start lazarus from console, so you can get the output. Copy the output.
>The output only matters, if the error occurs. So self-testing must be 
>re-enabled.

I have done this on my RPi4 with Lazarus 2.0.4.
The result after enabling the test and starting again from the console
is this sequence (line breaks added by news reader):

pi at rpi4-test:~ $ /home/pi/dev/lazarus/2.0.4/startlazarus
--pcp=/home/pi/.lazarus_2.0.4
Adding "--pcp=/home/pi/.lazarus_2.0.4" as a parameter
 is a file
SetPrimaryConfigPath NewValue="/home/pi/.lazarus_2.0.4" ->
"/home/pi/.lazarus_2.0.4"
TLazarusManager.Run starting /home/pi/dev/lazarus/2.0.4/lazarus ...
SetPrimaryConfigPath NewValue="/home/pi/.lazarus_2.0.4" ->
"/home/pi/.lazarus_2.0.4"
Hint: (lazarus) [TMainIDE.ParseCmdLineOptions]
PrimaryConfigPath="/home/pi/.lazarus_2.0.4"
Hint: (lazarus) [TMainIDE.ParseCmdLineOptions]
SecondaryConfigPath="/etc/lazarus"
Hint: (lazarus) [TBuildManager.SetBuildTarget] Old=arm-linux-gtk2
New=arm-linux-gtk2 Changed: OS/CPU=True LCL=False
Parameter type not implemented!

---Here the error message is shown and it waits for the Start IDE
button to be clicked. -----

[WARNING] SetImageList called without handle for
lbMacroView(TListView)
[WARNING] SetImageList called without handle for
lbMacroView(TListView)
[WARNING] SetImageList called without handle for
lbMacroView(TListView)

--- Here is where the IDE has started and can be used ---
--- Now close the Lazarus IDE ---

LAZARUS END - cleaning up ...
Hint: (lazarus) [TMainIDE.Destroy] B  -> inherited Destroy... TMainIDE
Hint: (lazarus) [TMainIDE.Destroy] END

--- Lazarus IDE closed ---

I just copied the command line found in the GUI menu and ran it inside
the terminal, except I removed the trailing %f since I had no file to
pass in.


-- 
Bo Berglund
Developer in Sweden