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 / test / tparray26.pp
Size: Mime:
{ %norun }

type
  ta = bitpacked array[0..high(longint)-1] of 0..1;
var
  p: pointer;
begin
  getmem(p,sizeof(ta));
  ta(p^)[high(longint)-1]:=1;
end.