t_id
1511
t_adddate
2005/03/06
t_result
0
t_knownrunerror
0
t_opts
-gh
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
67416417 | 873464 | False | False | Failed to run |
Record count: 1
refcount a 0: 1 refcount a 1: 2 refcount b 0: 1 refcount b 1: 1 Heap dump by heaptrc unit of /boot/home/pas/gitlab-fpc-source-fixes/tests/output/i386-haiku/webtbs/chunk000020016webtbs/tw3742 27 memory blocks allocated : 629/680 26 memory blocks freed : 617/664 1 unfreed memory blocks : 12 True heap size : 98304 True free heap : 98176 Should be : 98192 Call trace for block $0017B080 size 12 An unhandled exception occurred at $00FA7E0F: EAccessViolation: $00FA7E0F $00FA5167 $00FA5F27
{ %OPT=-gh } { Source provided for Free Pascal Bug Report 3742 } { Submitted by "Martin Schreiber" on 2005-03-04 } { e-mail: } program project1; {$mode objfpc}{$H+} //compile with -glh uses Classes; type integerarty = array of integer; scopestackcachety = record startscope: integer; stack: integerarty; end; scopestackcachearty = array of scopestackcachety; var ar2: scopestackcachearty; procedure testproc; var ar1: integerarty; begin setlength(ar1,2); setlength(ar2,2); ar2[0].stack:= copy(ar1,0,1); ar2[1].stack:= copy(ar1,0,1); writeln('refcount a 0: ',pinteger(pchar(pointer(ar2[0].stack)-8))^); writeln('refcount a 1: ',pinteger(pchar(pointer(ar2[1].stack)-8))^); end; begin testproc; writeln('refcount b 0: ',pinteger(pchar(pointer(ar2[0].stack)-8))^); writeln('refcount b 1: ',pinteger(pchar(pointer(ar2[1].stack)-8))^); finalize(ar2); end.