blob: 36a3c06cea1932adde18ff7436bde6bcf60b30b7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{ Old file: tbs0011.pp }
{ tests div/mod bugs, where edx is scrambled, if a called procedure does a div/mod OK 0.9.2 }
{$message don't know how to make a test from bug0011 (PM)}
var
vga : array[0..320*200-1] of byte;
procedure test(x,y : longint);
begin
vga[x+y mod 320]:=random(256);
vga[x+y mod 320]:=random(256);
end;
begin
end.
|
