usr/share/fpcsrc/3.2.0/tests/webtbs/tw2037.pp · beefree / fpc-src v3.2.0 - deb package | Gemfury

Gemfury

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

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / tests / webtbs / tw2037.pp

{ Source provided for Free Pascal Bug Report 2037 }
{ Submitted by "David Hagler" on  2002-07-11 }
{ e-mail: david@avimark.net }
program tw2037;

{$R-}

const
  FILE_FLAG_WRITE_THROUGH = -2147483648;
  FILE_ATTRIBUTE_NORMAL = 128;

var
  anattr : cardinal;

begin
  anattr := FILE_FLAG_WRITE_THROUGH or FILE_ATTRIBUTE_NORMAL;
end.