paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 23:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix test for targets with little memory

Browse Source 
git-svn-id: trunk@46693 -
This commit is contained in:
florian 2020-08-25 21:39:38 +00:00
parent b7a1195f5d
commit 5aa3da26f5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/test/opt/tcse2.pp
View File

@ -2,8 +2,8 @@
{$r+}
type
tsubr = 1..100000;
tarr = array[1..100000] of longint;
tsubr = 1..10;
tarr = array[1..10] of longint;
function test(b: tsubr): longint;
begin
@ -17,7 +17,7 @@ var
begin
getmem(p,4);
p^ := 100000;
p^ := 10;
l := 5;
{ clear the optimizer state }
asm
@ -41,7 +41,7 @@ begin
{ }
{ and as such the "pushl (%eax)" pushes a wrong value afterwards }
l := test(p^);
if l <> 100000 then
if l <> 10 then
begin
writeln('Problem 1!');
halt(1);