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 / tw0881.pp
Size: Mime:
PROGRAM TEST;
TYPE
    byteSet     = SET OF 0..7;
    booleanArray    = ARRAY[0..HIGH(word) DIV 8] OF byteSet;
    booleanArrayPointer = ^booleanArray;

PROCEDURE SetBooleanArray(  CONST p     : booleanArrayPointer;
                            CONST index : word );
BEGIN
    INCLUDE(p^[index DIV 8],index MOD 8)
END;

BEGIN
END.