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 / webtbf / tw25622.pp
Size: Mime:
{ %fail }

{$mode delphi}

program test;

type
   TDynamicArray = array of record end; // or array of whatever
   PDynamicArray = ^TDynamicArray;

function TestA(): Pointer;
begin
   Result := nil;
end;

function TestB(): PDynamicArray;
begin
   // can't take address of function return value, but compiler instead says "Internal error 2006111510"
   Result := @TDynamicArray(TestA());
end;

begin
end.