Hi, today i hit a strange bug while running the fcl-db test suite.
I'm using fpc from trunk rev 21150 windows xp 32 bit. I'm compiling
trunk with fpc 260. Attached the script i use.
I compiled and ran packages\fcl-db\tests\dbtestframework.pas
All the tests run fine, but in testsuite finalization the cpu usage goes
to sky taking to long to terminate
While debugging i found that the TTestResult instance memory is
corrupted even before the tests are run.
Follows gdb output.
Notice that the global variable testResult gets the address 0x5b000
in line 44 (GetTestRegistry.Run(testResult); ) this variable is passed
as a parameter to TTESTSUITE.RUN
But inside TTESTSUITE.RUN the parameter value (AResult) gets the address
0x676f0
If i try to dereference (p AResult^) i get a corrupted instance
Further investigation i found that 0x676f0 is the address of this
(TTestSuite instance). Dereferencing it (this^) shows correct field values
Any hint on whats going on?
Luiz
Starting program:
D:\repositories\fpc_trunk\packages\fcl-db\tests/dbtestframework.exe
[New Thread 3960.0x5b4]
Breakpoint 1, main () at dbtestframework.pas:42
42 FXMLResultsWriter.WriteHeader;
(gdb) p testResult
$1 = (^TTESTRESULT) 0x5b000
(gdb) p testResult^
$2 = {<TOBJECT> = {_vptr$ = {0x4eb6d8, 0x0}}, FRUNTESTS = 0, FFAILURES =
0x6af30,
FIGNOREDTESTS = 0x6b790, FERRORS = 0x6b7d0, FLISTENERS = 0x6b830,
FSKIPPEDTESTS = 0x6b810,
FSTARTINGTIME = 41030.043956875001}
(gdb) n
<testresults>
<testlisting>
44 GetTestRegistry.Run(testResult);
(gdb) s
TTESTSUITE__RUN (ARESULT=0x676f0, this=<error reading variable>)
at ./fcl-fpcunit/src/fpcunit.pp:1027
1027 begin
(gdb) p ARESULT
$3 = (TTESTRESULT) 0x676f0
(gdb) p ARESULT^
$4 = {<TOBJECT> = {_vptr$ = {0x4eb750, 0x0}}, FRUNTESTS = 0, FFAILURES =
0x67710,
FIGNOREDTESTS = 0x0, FERRORS = 0x0, FLISTENERS = 0x1, FSKIPPEDTESTS =
0xbaadf00d,
FSTARTINGTIME = 8.2257045098914865e-309}
(gdb) p this
$5 = (TTESTSUITE) 0x676f0
(gdb) p this^
$6 = {<TTEST> = {<TOBJECT> = {_vptr$ = {0x4eb750, 0x0}}, FLASTSTEP =
STSETUP}, FTESTS = 0x67710,
FNAME = 0x0, FTESTSUITENAME = 0x0, FENABLEIGNORES = true}
(gdb)
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
