paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 06:39:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
florian 1999-12-17 10:42:09 +00:00
parent f1936b0ddf
commit 94a2710341
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/webtbs/tbug761.pp Normal file
View File

@ -0,0 +1,14 @@
{$asmmode intel}
Type TFather = Object A : Integer; end;
TSon = Object (TFather) B : Integer; end;
Var Son : TSon;
begin
Asm
mov ax, Son.A
mov ax, Son.B
end;
end.