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