[Lazarus] Several issues - Call Stack

[Luiz Americo Pereira Camara]

On 5/6/2011 22:36, Martin wrote:
> On 06/06/2011 02:22, Luiz Americo Pereira Camara wrote:
>>> Rigth, but now it appears to be always empty :-(
>>
>>
>> The same here
>>
>> Lazarus 0.9.31 r30913 FPC 2.4.2 i386-win32-win32/win64
>
> Win 7 ?   32 bit?
>

WindowsXP 32bit

GDB from 2.4.2 fcp installer

> See my other mail for trying to collect some info on it
>

It seems gdb is working:

*stopped,reason="breakpoint-hit",bkptno="17",thread-id="1",frame={addr="0x00423f6e",func="TFORMDESIGN__RLREPORT1BEFOREPRINT",args=[{name="SENDER",value="0xb67c0"},{name="PRINTIT",value="true"},{name="this",value="0xb60c0"}],file="UnitDesign.pas",fullname="D:/repositories/fortes4lazarus/demos/biolife/UnitDesign.pas",line="110"}
(gdb)
<-stack-info-depth>
^done,depth="27"
(gdb)
<-stack-list-arguments 1 0 9>
^done,stack-args=[frame={level="0",args=[{name="SENDER",value="0xb67c0"},{name="PRINTIT",value="true"},{name="this",value="0xb60c0"}]},frame={level="1",args=[{name="this",value="0xb67c0"}]},frame={level="2",args=[{name="this",value="0xb67c0"}]},frame={level="3",args=[{name="this",value="0xb67c0"}]},frame={level="4",args=[{name="DEST",value="0x0"},{name="this",value="0xb67c0"}]},frame={level="5",args=[{name="SENDER",value="0xb5a00"},{name="this",value="0xb55a0"}]},frame={level="6",args=[{name="this",value="0xb5a00"}]},frame={level="7",args=[{name="this",value="0xb5a00"}]},frame={level="8",args=[{name="this",value="0xb5a00"}]},frame={level="9",args=[{name="this",value="0xb5a00"}]}]
(gdb)
<-stack-list-frames 0 9>
^done,stack=[frame={level="0",addr="0x00423f6e",func="TFORMDESIGN__RLREPORT1BEFOREPRINT",file="UnitDesign.pas",fullname="D:/repositories/fortes4lazarus/demos/biolife/UnitDesign.pas",line="110"},frame={level="1",addr="0x00591738",func="TRLCUSTOMCONTROL__DOBEFOREPRINT",file="rlreport.pas",fullname="D:/repositories/fortes4lazarus/rlreport.pas",line="6873"},frame={level="2",addr="0x005a4f17",func="TRLCUSTOMREPORT__INTERNALPREPARE",file="rlreport.pas",fullname="D:/repositories/fortes4lazarus/rlreport.pas",line="13370"},frame={level="3",addr="0x005a662a",func="TRLCUSTOMREPORT__PREPARENEEDED",file="rlreport.pas",fullname="D:/repositories/fortes4lazarus/rlreport.pas",line="13955"},frame={level="4",addr="0x005a5121",func="TRLCUSTOMREPORT__PREVIEW",file="rlreport.pas",fullname="D:/repositories/fortes4lazarus/rlreport.pas",line="13454"},frame={level="5",addr="0x00423cc6",func="TMAINFORM__PREVIEWBUTTONCLICK",file="Main.pas",fullname="D:/repositories/fortes4lazarus/demos/biolife/Main.pas",line="38"},frame={level="6",addr="0x004dd2d3",func="TCONTROL__CLICK",file="./include/control.inc",fullname="D:/repositories/lazarus/lcl/include/control.inc",line="2286"},frame={level="7",addr="0x005284ff",func="TBUTTONCONTROL__CLICK",file="./include/buttoncontrol.inc",fullname="D:/repositories/lazarus/lcl/include/buttoncontrol.inc",line="62"},frame={level="8",addr="0x005289cf",func="TCUSTOMBUTTON__CLICK",file="./include/buttons.inc",fullname="D:/repositories/lazarus/lcl/include/buttons.inc",line="174"},frame={level="9",addr="0x00528ef1",func="TBUTTON__CLICK",file="./include/buttons.inc",fullname="D:/repositories/lazarus/lcl/include/buttons.inc",line="339"}]
(gdb)
<-thread-info>
^error,msg="Undefined mi command: thread-info (missing implementation)"
(gdb)
<-thread-select -1>
&"Thread ID -1 not known.\n"
^error,msg="Thread ID -1 not known."
(gdb)
<-thread-select 1>
^done,new-thread-id="1",frame={level="0",addr="0x00423f6e",func="TFORMDESIGN__RLREPORT1BEFOREPRINT",args=[{name="SENDER",value="0xb67c0"},{name="PRINTIT",value="true"},{name="this",value="0xb60c0"}],file="UnitDesign.pas",fullname="D:/repositories/fortes4lazarus/demos/biolife/UnitDesign.pas",line="110"}
(gdb)
<-stack-list-arguments 1 0 0>
^done,stack-args=[frame={level="0",args=[{name="SENDER",value="0xb67c0"},{name="PRINTIT",value="true"},{name="this",value="0xb60c0"}]}]
(gdb)
<-stack-list-locals 1>
^done,locals=[{name="SENDER",value="0xb67c0"}]
(gdb)