Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.0.0 / tests / webtbs / tw0761.pp
Size: Mime:
{ %CPU=i386 }
{ %OPT=-Cg- }
{$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.