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 / tw34055.pp
Size: Mime:
{$mode objfpc}

 type
  TDOS_FIELDNAMES = (
                      Dos_Signature, // ord = 0
                      Dos_OffsetToNewExecutable // ord = 1
                    );



const
  DosFieldLabelsB : array[TDOS_FIELDNAMES]
                        of pwidechar =
  (
    'DOS signature',
    'offset to new executable'
  );

  d : ppwidechar = @DosFieldLabelsB[Dos_OffsetToNewExecutable];

begin
  if d<>@DosFieldLabelsB[Dos_OffsetToNewExecutable] then
    halt(1);
end.