[fpc-pascal] Building FPC with gdb support for SPARC

[Mark Morgan Lloyd]

Florian Klaempfl wrote:

> Compile the IDE with GDB support (make clean all OPT=-g) run it inside GDB and
> post the stack trace:
> 
> gdb ./fp
> r
> where

OK, I think it's reproducible. Simple program, <F7> to build and step, open
disassembly window, close and SEGV. First few lines of output, slightly
truncated (can I redirect this without messing up the IDE?).

Program received signal SIGSEGV, Segmentation fault.
0x000322d4 in TRY_CONCAT_FREE_CHUNK (MC=0x502b3880) at heap.inc:679
679     heap.inc: No such file or directory.
        in heap.inc
(gdb) where
#0  0x000322d4 in TRY_CONCAT_FREE_CHUNK (MC=0x502b3880) at heap.inc:679
#1  0x00033114 in SYSFREEMEM_VAR (PCURR=0x502b3880) at heap.inc:1023
#2  0x000331c8 in SYSFREEMEM (P=0x502b3888) at heap.inc:1043
#3  0x0003134c in FREEMEM (P=0x502b3888) at heap.inc:325
#4  0x00015a54 in fpc_help_destructor (_SELF=0x502b3888, _VMT=0x538b8c,
	VMT_POS=0) at generic.inc:419
#5  0x000a6c00 in TLINE__DONE (vmt=0x538b8c, this={<TCUSTOMLINE> = {<TOBJECT>
	= {_vptr$ = {0x505fd320, 0x0}}, }, TEXT = 0x0, DEFAULTEDITORINFO = 0x0,
	EDITORINFOS = 0x0, FLAGS = 0, OWNER = 0x502c2d48}) at wcedit.pas:366
#6  0x0004f628 in TCOLLECTION__FREEITEM (ITEM=0x502b3888, this={<TOBJECT> =
	{_vptr$ = {0x55015c, 0x505fbb38}}, ITEMS = 0x505fbb38, COUNT = 50,
	LIMIT = 500, DELTA = 1000}) at objects.pp:2018
#7  0x0004f498 in TCOLLECTION__FREEALL (this={<TOBJECT> = {_vptr$ = {0x55015c,
	0x505fbb38}}, ITEMS = 0x505fbb38, COUNT = 50, LIMIT = 500, DELTA =
	1000}) at objects.pp:1963
#8  0x0004ef38 in TCOLLECTION__DONE (vmt=0x55015c, this={<TOBJECT> = {_vptr$ =
	{0x55015c, 0x505fbb38}}, ITEMS = 0x505fbb38, COUNT = 50, LIMIT = 500,
	DELTA = 1000}) at objects.pp:1862
#9  0x000a84f8 in TCODEEDITORCORE__DONE (vmt=0x538bbc, this=
	{<TCUSTOMCODEEDITORCORE> = {<TOBJECT> = {_vptr$ = {0x538bbc, 0x0}},
	BINDINGS = 0x0, LOCKFLAG = 0, CHANGEDLINE = 0, CONTENTSCHANGEDCALLED =
	false, LIMITSCHANGEDCALLED = false, MODIFIEDCHANGEDCALLED = false,
	TABSIZECHANGEDCALLED = false, STOREUNDOCHANGEDCALLED = false,
	LASTSYNTAXEDLINE = 49, SY2
#10 0x000abe1c in TCODEEDITOR__DONE (vmt=0x0, this={<TCUSTOMCODEEDITOR> =
	{<TSCROLLER> = {<TVIEW> = {<TOBJECT> = {_vptr$ = {0x55018c, 0xc200000}},
	GROWMODE = 12, DRAGMODE = 32, TABMASK = 0, COLOUROFS = 0, HELPCTX = 0,
	STATE = 2, OPTIONS = 1, EVENTMASK = 785, ORIGIN = {X = 1, Y = 1},
	SIZE = {X = 130, Y = 145}, CURSOR = {X = 0, Y = 20}, NEXT = 5
#11 0x000ee250 in TDISASSEMBLYEDITOR__DONE (vmt=0x55018c, this={<TSOURCEEDITOR>
	={<TFILEEDITOR> = {<TCODEEDITOR> = {<TCUSTOMCODEEDITOR> = {<TSCROLLER> =
	{<TVIEW> = {<TOBJECT> = {_vptr$ = {0x55018c, 0xc200000}}, GROWMODE =
	12, DRAGMODE = 32, TABMASK = 0, COLOUROFS = 0, HELPCTX = 0, STATE = 2,
	OPTIONS = 1, EVENTMASK = 785, ORIGIN = {X = 1, Y = 1}, SIZE = 9

-- 
Mark Morgan Lloyd
markMLl .AT. telemetry.co .DOT. uk

[Opinions above are the author's, not those of his employers or colleagues]