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 |
|---|---|---|---|---|
| 477605347 | 940443 | False | False | Failed to run |
Record count: 1
qemu: uncaught target signal 11 (Segmentation fault) - core dumped
/home/muller/bin/qemu-mips-linux.sh: line 73: 4135603 Segmentation fault $GDB_QEMU $QEMU_BIN $LOCAL_QEMU_OPT "${@}"
{ %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.