[lazarus] Extra (gdb) info for: Bug# 159

[Mattias Gaertner]

On Fri, 26 Dec 2003 19:34:52 +1000  prologic at shortcircuit.net.au (James
Mills) wrote:

> On Fri, Dec 26, 2003 at 10:40:17AM +0100, Mattias Gaertner wrote:
> > On Fri, 26 Dec 2003 12:15:54 +1000  prologic at shortcircuit.net.au (James
> > Mills) wrote:
> > 
> > Thanks for the report.
> > But it is not the backtrace of the range check error. You have to set a
> > break point for this. Please do the following:
> > 
> > []$ gdb lazarus
> > (gdb) break FPC_RAISEEXCEPTION
> > (gdb) run
> > (gdb) bt
> > 
> > 
> > Mattias
> 
> Here you go:

Thanks. Fixed.

I will soon change ColorRef to integer. The compiler does not warn about
these things, but inserts code to raise exceptions.


Mattias



> 
> (gdb) run
> Starting program:
> /home/prologic/programming/temp/lazarus/lazarus/lazarus 
> NOTE: editor options config file not found - using defaults
> NOTE: miscellaneous options file not found - using defaults
> NOTE: codetools config file not found - using defaults
> 
> NOTE: FPC Source Directory not set! (see Environment Options)
> 
> NOTE: Could not create Define Template for Free Pascal Sources
> TMainIDE.DoNewProject A
> TMainIDE.DoNewEditorFile A NewFilename=
> TPascalParserTool.BuildTree B OnlyIntf=FALSE  project1.lpr
> [TCustomFormEditor.CreateComponent] Class='TFORM'
> TPascalParserTool.BuildTree B OnlyIntf=FALSE  project1.lpr
> TMainIDE.DoNewEditorFile end unit1.pas
> TMainIDE.DoNewProject end 0
> 
> Breakpoint 1, $083d9936 in
> _SYSLINUX$$_RAISEEXCEPT$TOBJECT$POINTER$POINTER ()
> (gdb) bt
> #0  $083d9936 in _SYSLINUX$$_RAISEEXCEPT$TOBJECT$POINTER$POINTER ()
> #1  $083bb263 in _SYSUTILS$$_RUNERRORTOEXCEPT$LONGINT$POINTER$POINTER ()
> #2  $083d8b8b in
> _SYSLINUX$$_HANDLEERRORADDRFRAME$LONGINT$LONGINT$LONGINT ()
> #3  $083d8bcd in _SYSLINUX$$_HANDLEERRORFRAME$LONGINT$LONGINT ()
> #4  $083d8803 in _SYSLINUX$$_INT_RANGEERROR ()
> #5  $082245f6 in TCUSTOMSYNEDIT__PAINTGUTTER (valACLIP=
>         {LEFT = 0, TOP = 0, RIGHT = 30, BOTTOM = 415, TOPLEFT = {X = 0,
> Y = 0}, BOTTOMRIGHT = {X = 30, Y = 415}}, FIRSTLINE=1, LASTLINE=26,
> this=$4066c804)
>     at synedit.pp:2277
> #6  $082240c9 in TCUSTOMSYNEDIT__PAINT (this=$4066c804) at
> synedit.pp:2199
> #7  $08358b8d in TCUSTOMCONTROL__WMPAINT (MESSAGE={MSG = 1056, DC =
> 1078657828, PAINTSTRUCT = $4055e194, RESULT = 0}, this=$4066c804)
>     at customcontrol.inc:70
> #8  $083d95d5 in _SYSLINUX$$_$$_TOBJECT_$$_DISPATCH$$$$ ()
> #9  $0835661e in TCONTROL__WNDPROC (THEMESSAGE=
>       {MSG = 1056, WPARAM = 1078657828, LPARAM = 1079370132, RESULT = 0,
> WPARAMLO = 804, WPARAMHI = 16459, LPARAMLO = 57748, LPARAMHI = 16469,
> RESULTLO = 0, RESULTHI = 0}, this=$4066c804) at control.inc:1263
> #10 $083517ec in TWINCONTROL__WNDPROC (MESSAGE=
>       {MSG = 1056, WPARAM = 1078657828, LPARAM = 1079370132, RESULT = 0,
> WPARAMLO = 804, WPARAMHI = 16459, LPARAMLO = 57748, LPARAMHI = 16469,
> RESULTLO = 0, RESULTHI = 0}, this=$4066c804) at wincontrol.inc:1671
> #11 $0822d8d4 in TCUSTOMSYNEDIT__WNDPROC (MSG=
>       {MSG = 1056, WPARAM = 1078657828, LPARAM = 1079370132, RESULT = 0,
> WPARAMLO = 804, WPARAMHI = 16459, LPARAMLO = 57748, LPARAMHI = 16469,
> RESULTLO = 0, RESULTHI = 0}, this=$4066c804) at synedit.pp:5235
> #12 $0831e89a in DELIVERMESSAGE (TARGET=$4066c804, AMESSAGE=void) at
> gtkproc.inc:2175
> #13 $083a0bb8 in TGTKOBJECT__SENDMESSAGE (HANDLEWND=141599792, MSG=1123,
> WPARAM=1080261556, LPARAM=-1073746364, this=$85e11f4) at
> gtkwinapi.inc:7292
> #14 $083829ba in TGTKOBJECT__HANDLEEVENTS (this=$85e11f4) at
> gtkobject.inc:1362
> #15 $08346eb3 in TAPPLICATION__HANDLEMESSAGE (this=$85e0fa4) at
> application.inc:727
> #16 $0834714f in RUNMESSAGE () at application.inc:834
> #17 $083471cf in TAPPLICATION__RUN (this=$85e0fa4) at
> application.inc:846
> #18 $083de188 in main () at lazarus.pp:83
> 
> cheers
> James
> 
> -- 
> -Zero Defect Software Engineers Group - ZDSEG
> -
> -Web:  http://www.shortcircuit.net.au/
> -Wiki: http://wiki.shortcircuit.net.au/
> -ICQ:  98888663
> -
> -You need only two tools. WD-40 and duct tape.
> -If it doesn't move and it should, use WD-40.
> -If it moves and shouldn't, use the tape.
> 
> _________________________________________________________________
>      To unsubscribe: mail lazarus-request at miraclec.com with
>                 "unsubscribe" as the Subject
>    archives at http://www.lazarus.freepascal.org/mailarchives


--