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

* new illegal ref

Browse Source
This commit is contained in:
peter 1999-07-28 23:37:47 +00:00
parent f434ea3131
commit 8e6c15972e
1 changed files with 9 additions and 1 deletions

10
bugs/bug0276.pp
View File

@ -3,13 +3,21 @@ type
trec = record
ypos,
xpos : longint;
end;
end;
z80cont = record
page: array [0..11,0..16383] of byte;
end;
var
rec : tRec;
myz80 : z80cont;
begin
asm
lea edi, Rec
cmp byte ptr [edi+tRec.Xpos], true
cmp byte ptr [edi].trec.Xpos, true
mov dh,byte ptr myz80.page[ecx]
end;
end.