paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 01:49:08 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
bugs/bug0276.pp
View File

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