mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 10:48:30 +02:00
15 lines
330 B
ObjectPascal
15 lines
330 B
ObjectPascal
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.
|