blob: cc064087901db42d5805d85da821d09381498b70 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
{ Old file: tbs0076.pp }
{ bugs in intel asm generator. was already fixed OK 0.99.1 (FK) }
program bug0076;
{Generates wrong code when compiled with output set to intel asm.
Reported from mailinglist by Vtech Kavan.
15 Januari 1998, Daniel Mantione}
type TVtx2D = record x,y:longint end;
var Vtx2d:array[0..2] of TVtx2D;
function SetupScanLines(va,vb,vc:word):single;
var dx3d,dx2d,dy2d,dz,ex3d,ex2d,ez:longint;
r:single;
begin
dy2d := Vtx2d[vb].y;
r := (dy2d-Vtx2d[va].y); {this line causes error!!!!!!!!!!!!!!!!!!!}
end;
begin
SetupScanLines(1,2,3);
end.
|
