mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-19 18:51:31 +02:00
* crash test for automatic prefetching
git-svn-id: trunk@2515 -
This commit is contained in:
parent
79403454c5
commit
fe1cefd621
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -5684,6 +5684,7 @@ tests/test/tover2.pp svneol=native#text/plain
|
||||
tests/test/tpackrec.pp svneol=native#text/plain
|
||||
tests/test/tpara1.pp svneol=native#text/plain
|
||||
tests/test/tpara2.pp svneol=native#text/plain
|
||||
tests/test/tpftch1.pp svneol=native#text/plain
|
||||
tests/test/tprocext.pp svneol=native#text/plain
|
||||
tests/test/tprocvar1.pp svneol=native#text/plain
|
||||
tests/test/tprocvar2.pp svneol=native#text/plain
|
||||
|
28
tests/test/tpftch1.pp
Normal file
28
tests/test/tpftch1.pp
Normal file
@ -0,0 +1,28 @@
|
||||
{ %OPT=-S2 -O1 }
|
||||
|
||||
|
||||
{ check if we don't cause sigsegvs when attempting to prefetch if }
|
||||
{ typecasts are involved }
|
||||
|
||||
type
|
||||
tc1 = class
|
||||
a: tc1;
|
||||
x: boolean;
|
||||
end;
|
||||
|
||||
tc2 = class(tc1)
|
||||
b: array[1..1000000000] of byte;
|
||||
c: tc1;
|
||||
end;
|
||||
|
||||
var
|
||||
a: tc1;
|
||||
|
||||
begin
|
||||
a := tc1.create;
|
||||
while assigned(a) do
|
||||
if a.x then
|
||||
a := tc2(a).c
|
||||
else
|
||||
a := a.a;
|
||||
end.
|
Loading…
Reference in New Issue
Block a user