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.2.0 / tests / webtbs / tw31596.pp
Size: Mime:
{ %norun }
var

 offset : Integer;
 o      : TObject;

begin

 // OK
 o := TObject(1);

 offset := PtrInt(IInterface(TInterfacedObject(o))) - 1;
 //

 // project1.lpr(17,19) Error: Internal error 121120001
 offset := PtrInt(IInterface(TInterfacedObject(1))) - 1;
end.