Hello, FPC developers' list.

I have this error

"Error: Undefined symbol:
LDOCKCTRL_TCUSTOMLAZDOCKINGMANAGER_$_CREATELAYOUT$crcCC309762_FINDNEARESTCONTROLNODE$$TLAZDOCKCONFIGNODE_FINDOWNSPLITTERSIBLINGWITHCONT ROL$crc8DD0DCA" while compiling lazarus\examples\anchordocking\docking1.lpi

I searched LDockTree.pas and found FindOwnSplitterSiblingWithControl which is placed inside FindNearestControlNode inside TCustomLazDockingManager.CreateLayout. When I move FindOwnSplitterSiblingWithControl outside FindNearestControlNode then all ok.

I recompiled LCL with -alr and looked inside ldockctrl.s

I found this lines:

.section
.text.n_ldockctrl_tcustomlazdockingmanager_$_createlayout$crccc309762_findnearestcontrolnode$$tlazdockconfignode_findownsplittersiblingwithcontrol$crc8dd0dcaa .balign 16,0x90
.globl
LDOCKCTRL_TCUSTOMLAZDOCKINGMANAGER_$_CREATELAYOUT$crcCC309762_FINDNEARESTCONTROLNODE$$TLAZDOCKCONFIGNODE_FINDOWNSPLITTERSIBLINGWITHCONTROL$crc8DD0DCAA LDOCKCTRL_TCUSTOMLAZDOCKINGMANAGER_$_CREATELAYOUT$crcCC309762_FINDNEARESTCONTROLNODE$$TLAZDOCKCONFIGNODE_FINDOWNSPLITTERSIBLINGWITHCONTROL$crc8DD0DCAA: .stabs
"FINDOWNSPLITTERSIBLINGWITHCONTROL:F6,FINDOWNSPLITTERSIBLINGWITHCONTROL,FINDNEARESTCONTROLNODE",36,0,2749,LDOCKCTRL_TCUSTOMLAZDOCKINGMANAGER_$_CREATELAYOUT$crcCC309762_FINDNEARESTCONTROLNODE$$TLAZDOCKCONFIGNODE_FINDOWNSPLITTERSIBLINGWITHCONTROL$crc8DD0DCA .stabs "NODE:p6",160,0,2749,-4
.stabs "parentfp:p24",160,0,2749,-8
.stabs "result:6",160,0,2749,-12
.stabs "A:21",160,0,2761,-16
.stabs "SPLITTERNODE:6",160,0,2762,-20

Please note that after .stabs we have line without one 'A' at the end. On the other hand I am not compiler devel and I dont know - maybe it is ok :) But something inside me tells that no. Please take a look.

Paul Ishenin пишет:

Hello, FPC developers' list. I have this error

I've made reproducable test:

program Project1;
{$mode objfpc}{$H+}
procedure my_very_looooooooong_idenfier_procedure_1;
   procedure my_very_looooooooong_idenfier_procedure_2;
     procedure my_very_looooooooong_idenfier_procedure_3;
     begin
        // bug
     end;
   begin
     my_very_looooooooong_idenfier_procedure_3;
   end;
begin
   my_very_looooooooong_idenfier_procedure_2;
end;
begin
   my_very_looooooooong_idenfier_procedure_1;
end.

build line: d:\programming\fpc_2_2\bin\i386-win32\ppc386.exe -S2cgi -OG1 -gl -va -l -Fu. C:\DOCUME~1\paul\LOCALS~1\Temp\testcompileroptions.pas

Best regards,
Paul Ishenin.